这个改成动态的怎么改, - ASP

ヤforget♀戀

电梯直达

1^#

发表于 2010-1-7 01:39:56 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

<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写成调用数据库的不知道怎么写,

收藏0

使用道具举报

~~精灵小姐$

2^#

发表于 2010-1-7 01:39:58 | 只看该作者

用数组和循环就可以实现，但不明白楼主想实现什么效果？

回复支持反对

使用道具举报

Rain

3^#

发表于 2010-1-7 01:40:02 | 只看该作者

如果就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>