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

这个就是WWW.FZONE.CN这个网站的首页的静态页,我想把他改成动态的..

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

怎么实现

只要把这三个循环弄出来就可以了,

厉害,

我写了不行,,
<script language="javascript">

<%
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "select Top 11 from love_fzone",conn,1,1
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")&"';"

End With
rs.MoveNext
Next
%>
</SCRIPT>
红的忘写了

[此贴子已经被作者于2007-3-28 16:32:39编辑过]

.Write "var Div"&i&"Text='ID:"&rs("ID")&" "&rs("address")&"';"&Chr(13)
我想输出来是这样的var Div1Text="ID11: 河北省";
我要的是双引号,我改成.Write "var Div"&i&"Text='"ID:"&rs("ID")&" "&rs("address")&""';"&Chr(13)
又不对,改了好多次,怎么改?