|
|
<!--#include file="conn.asp"-->
<%
Dim vertigo1,vertigo2
set vertigo2=server.CreateObject("adodb.recordset")
vertigo1="select top 6 * from [good_info] where check='yes' order by id desc"
vertigo2.open vertigo1,conn,1,1
IF not vertigo2.eof and not vertigo2.bof then
ist=0
do while not vertigo2.eof
%>
document.write("<td width='200' align='center' ><a href='good_info.asp?id=<%=vertigo2("id")%>' target=_blank><img src='<%=vertigo2("pic")%>' width=50 height=50 border=0 style='border: 1px solid #000000'><br><%=left((vertigo2("id")),6)%></a></td>")
<%
ist=ist+1
if ist>0 and ist mod%3=0 then
response.write("</tr>")
end if
vertigo2.movenext
loop
end if
conn.Close
Set conn=Nothing
%>
这是我学着写的程序，请问各位大哥我哪里不对了？ |
|
IP卡
狗仔卡
发表于 2010-1-15 05:13:50
收藏
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡