<SCRIPT language=javascript>
//写入用户层信息
var Div1Text="ID:yuz 台湾";
var Div2Text="ID:yizhe 辽宁";
var Div3Text="ID:SASSYGIRL 山东";
var Div4Text="ID:muxi 辽宁";
var Div5Text="ID:skyY 哈尔滨";
var Div6Text="ID:咔咔 吉林";
var Div7Text="ID:QP 上海";
var Div8Text="ID:zeye 北京";
var Div9Text="ID:sowor 北京";
var Div10Text="ID:luosz 广州";
var Div11Text="ID:PaNda 香港";

var Div1Url="http://www.fzone.cn/hompy/mini/default.asp?h_id=10298338";
var Div2Url="http://www.fzone.cn/hompy/mini/default.asp?h_id=10298390";
var Div3Url="http://www.fzone.cn/hompy/mini/default.asp?h_id=184807";
var Div4Url="http://www.fzone.cn/hompy/mini/default.asp?h_id=10298357";
var Div5Url="http://www.fzone.cn/hompy/mini/default.asp?h_id=10290642";
var Div6Url="http://www.fzone.cn/hompy/mini/default.asp?h_id=85979";
var Div7Url="http://www.fzone.cn/hompy/mini/default.asp?h_id=37868";
var Div8Url="http://www.fzone.cn/hompy/mini/default.asp?h_id=10294257";
var Div9Url="http://www.fzone.cn/hompy/mini/default.asp?h_id=10287964";
var Div10Url="http://www.fzone.cn/hompy/mini/default.asp?h_id=118133";
var Div11Url="http://www.fzone.cn/hompy/mini/default.asp?h_id=54240";

layer1.innerHTML="<div class='showMyDiv'>"+Div1Text+"</div>";
layer2.innerHTML="<div class='showMyDiv'>"+Div2Text+"</div>";
layer3.innerHTML="<div class='showMyDiv'>"+Div3Text+"</div>";
layer4.innerHTML="<div class='showMyDiv'>"+Div4Text+"</div>";
layer5.innerHTML="<div class='showMyDiv'>"+Div5Text+"</div>";
layer6.innerHTML="<div class='showMyDiv'>"+Div6Text+"</div>";
layer7.innerHTML="<div class='showMyDiv'>"+Div7Text+"</div>";
layer8.innerHTML="<div class='showMyDiv'>"+Div8Text+"</div>";
layer9.innerHTML="<div class='showMyDiv'>"+Div9Text+"</div>";
layer10.innerHTML="<div class='showMyDiv'>"+Div10Text+"</div>";
layer11.innerHTML="<div class='showMyDiv'>"+Div11Text+"</div>";
</SCRIPT>
这个是用JAVASCRIPT写的,我想用VB写成调用数据库的不知道怎么写,

最麻烦的这个功能是估计里面用了不只一个循环，除了楼主代码里那三个可能的循环之外。这个程序复杂的地方就在于，那个表格的生成，固定位置还好办点，随机就更麻烦了。

没那么复杂,我想弄一个表,弄一条记录,表格和图片就那样不动,弄成死的,然后我从后台改图片的路径和会员名,

怎么实现

如果就11条记录改起来就不难了，
比如
表结构
表明usinfo
ID 数字型
userID 字符串
City 字符串
<script language="javascript">
//写入用户层信息
<%
rs.Open "select Top 11 from usinfo"
Dim i
For i=1 To 11
With Response
.Write "var Div"&i&"Text='ID"&rs("usID")&" "&rs("City")&"';"&Chr(13)
.Write "var Div"&i&"Url='http://www.fzone.cn/hompy/mini/default.asp?h_id="&rs("ID")&"';"
.Write "layer"&i&".innerHTML='<div class=showMyDiv >'+Div"&i&"Text+'</div>";"
End With
rs.MoveNext
Next
%>
</SCRIPT>

[此贴子已经被作者于2007-3-28 13:38:04编辑过]

我想根本不用3个循环，一个循环照样可以。