<%
dim tbsql
dim tbrs
OpenDataConn
'Set tbrs = server.CreateObject("adodb.recordset")
tbsql = "select * from Banner where bz=3 order by linkid desc"
set tbrs = conn.execute(tbsql)
'tbrs.Open tbsql,conn,1,1
%>
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<%do while not tbrs.eof%>
<%if lcase(right(tbrs("picurl"),6)) = ".gif" or lcase(right(tbrs("picurl"),6)) = ".jpg" then%>
<a target="_blank" href="<%=tbrs("web")%>"><img border=0 src="../admin/picture/<%=tbrs("picurl")%>" alt="<%=tbrs("deseriptor")%>" width="88" height="31" style="border: 0px solid #000000"></a>
<%else%>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="
http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="88" height="31">
<param name="movie" value="../admin/picture/<%=tbrs("picurl")%>">
<param name="quality" value="high">
<param name="SCALE" value="noborder">
<embed src="../admin/picture/<%=tbrs("picurl")%>" width="578" height="108" quality="high" pluginspage="
http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" scale="noborder"></embed></object>
<%end if%>
<%
dim b
b=b+1
if b>=56 then exit do
tbrs.movenext
loop
tbrs.close
set tbrs=nothing
%>
</td>
</tr>
</table>
这段代码可有错误啊????