link.asp

来自「下载管理系统,重新修改,无错.放心使用. 用户名和密码都是admin:admi」· ASP 代码 · 共 21 行

<%
on error resume next
response.write "<center><table border=0 cellpadding=4 cellspacing=0 style=""border-collapse: collapse"" bgcolor="& Tablebodycolor &" width=""778""><tr><td height=8><space height=8></td></tr><tr><td align=center>"
dim t
sql="select * from logo"
rs.open sql,conn,1,1
t=0
do while not rs.eof
response.write "<a href="&rs("logourl")&" target=_blank title="&rs("logoname")&">"
response.write "<img src="&rs("logoimg")&" border=0 alt="&rs("logoname")&">"
response.write "</a>&nbsp;&nbsp;"
t=t+1
if t=maxgoodlink then
response.write "</td></tr><tr>"
t=0
end if
rs.movenext
loop
rs.close
response.write "</tr></table></center>"
%>