links-1.asp

日记本（多用户版）V3.0 主要功能： 1、日记本基本功能：添加、修改日记等。 2、日记加密：当日记添加时

<!--#include file="inc.asp"-->
var linkcode;linkcode="<%
mfkiqpl.openmdb
set rs=conn.execute("select id,n5,n3 from setos where id=1")
tt=rs("n5")
whow=rs("n3")
mfkiqpl.closers(rs)
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
if whow then
sql="select * from links where ok=true order by webtop,id"
else
sql="select * from links order by webtop,id"
end if
rs.open sql,,3,1
response.write("<table width=100%  border=0 cellspacing=0 cellpadding=0>")
d=0
do while d<tt
response.write ("<tr>")
if rs("weblogo")<>"" then
response.write("<td height=35 align=center><a href=links/goto.asp?id="&rs("id")&" target=_blank><img src=links/"&rs("weblogo")&" border=0 width=88 height=31 title="&rs("webbio")&"></a></td>")
else
response.write("<td height=35 align=center><a href=links/goto.asp?id="&rs("id")&" target=_blank title="&rs("webbio")&">"&rs("webname")&"</a></td>")
end if
response.write("</tr>")
rs.movenext
d=d+1
if rs.eof then
exit do
end if
loop
mfkiqpl.closers(rs)
mfkiqpl.closeconn
response.write("</table>")
%>";
document.write(linkcode)