ASP数据库读取问题,高手来看看,谢谢!

来源:百度知道 编辑:UC知道 时间:2024/06/15 22:45:09
<marquee direction=left height=14 id="link" onmouseout=link.start() onmouseover=link.stop() scrollAmount=1 scrollDelay=10>
<table width="580" height="99" border="0" cellpadding="0" cellspacing="0">
<tr>
<%
dim rs_rasim,sqltxt,u
sqltxt="select top 10 * from Bs_Img Order BY ID desc"
set rs_rasim=server.createobject("adodb.recordset")
rs_rasim.open sqltxt,connstr,1,1
u=0
do while not rs_links.eof
%>

<td>
<table width="135" height="143" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="100">
<div align="center"><a href="<%=rs_rasim("img")%>">
<img src="<%=rs_rasim("img")%>" width="120" heig

刚才看了一下,少打了一个end if
你注意看看for循环后面的内容
----------------------------------
<marquee direction=left height=14 id="link" onmouseout=link.start() onmouseover=link.stop() scrollAmount=1 scrollDelay=10>
<table width="580" height="99" border="0" cellpadding="0" cellspacing="0">
<tr>
<%
dim rs_rasim,sqltxt,u
sqltxt="select top 10 * from Bs_Img Order BY ID desc"
set rs_rasim=server.createobject("adodb.recordset")
rs_rasim.open sqltxt,connstr,1,1
u=0
for u=1 to 10
if not rs_links.eof then
imgsrc=rs_rasim("img")
imgtitle=rs_rasim("title")
rs_rasim.movenext
else
imgsrc="nopic.gif"
imgtitle="暂无图片"
end if
%>

<td>
<table width="135" height="143" border="0" cellpadding="0" ce