| |
<%
set rs=server.CreateObject("ADODB.RECORDSET")
sql="select * from Msmir_link where linktype=1 and veryfy=1 order by id asc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("当前没有图片链接...")
else
while not rs.eof
for w=1 to 10
response.Write(" ![]() ")
rs.movenext
if rs.eof then exit for
next
response.Write("
")
wend
end if
rs.close
set rs=nothing
%>
|
|
|
