link.asp

功能强大的一个b/s工作站

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<%
response.buffer=true
call nav()
stats="友情论坛"
call head_var(2,0,"","")
%>		
<!--#include file="skintop.asp"-->
<%
response.write "<table cellpadding=3 cellspacing=1 align=center class=tableborder1>"&_
	"<TR><Th  colSpan=2 align=left height=25>-=> 友情论坛</Th></TR>"&_
	"<TR><TD vAlign=top class=tablebody1 width=100% >"&_
	"<table width=100% >"
myCache.name="bbslink"
 if myCache.valid then
 response.write myCache.value
 ''mycache.makeEmpty
 else
 Dim linkinfo
 i=7
 sql="select boardname,readme,url from bbslink where islogo=0 order by id"
 set rs=conn.execute(sql)
 if not rs.eof and not rs.bof then
 do while not rs.eof
 if i>6 then 
 linkinfo = linkinfo & "<tr><td width=""16%"">"
 i=1
 else
 linkinfo = linkinfo & "<td width=""16%"">"
 end if
 linkinfo = linkinfo & "<a href="&rs(2)&" target=_blank title="""&rs(1)&""">"&rs(0)&"</a>"
 rs.movenext
 linkinfo = linkinfo & "</td>"
 if i=6 then linkinfo = linkinfo & "</tr>"
 i=i+1
 loop
 end if

 i=7
 sql="select boardname,readme,url,logo from bbslink where islogo=1 order by id"
 set rs=conn.execute(sql)
 if not rs.eof and not rs.bof then
 linkinfo = linkinfo & "<tr><td colspan=6><hr align=center size=1 color="&forum_body(27)&"></td></tr>"
 do while not rs.eof
 if i>6 then
 linkinfo = linkinfo & "<tr><td width=""16%"">"
 i=1
 else
 linkinfo = linkinfo & "<td width=""16%"">"
 end if
 linkinfo = linkinfo & "<a href="&rs(2)&" target=_blank><img src="""&rs(3)&""" border=0 alt="""&rs(0)&"："&rs(1)&""" height=31 width=88></a>"
 rs.movenext
 linkinfo = linkinfo & "</td>"
 if i=6 then linkinfo = linkinfo & "</tr>"
 i=i+1
 loop
 end if

 i=7
 sql="select boardname,readme,url,logo from bbslink where islogo=2 order by id"
 set rs=conn.execute(sql)
 if not rs.eof and not rs.bof then
 linkinfo = linkinfo & "<tr><td colspan=6><hr align=center size=1 color="&forum_body(27)&"></td></tr>"
 linkinfo = linkinfo & "<tr><td colspan=6><MARQUEE direction=left onmouseout=this.start()  onmouseover=this.stop() scrollAmount=3 scrollDelay=1>"
 do while not rs.eof
 linkinfo = linkinfo & "<a href="&rs(2)&" target=_blank><img src="""&rs(3)&""" border=0 alt="""&rs(0)&"："&rs(1)&""" height=31 width=88></a> "
 rs.movenext
 loop
 end if
 linkinfo = linkinfo & "</td></tr>"
 set rs=nothing
 if isnull(linkinfo) or linkinfo="" then linkinfo=" "
 myCache.add linkinfo,dateadd("n",9999,now)
 response.write linkinfo
 end if

response.write "</table></TD></TR></table>"
%>
<!--#include file="skinbottom.asp"-->
<%
call footer()
%>