lmbbs.asp

asp构建网站bbs.采用B/S架构

<%
response.write"<div align=center><center><table height=25 border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='98%'><tr><td background='pic/"&sp&"3.gif'>&nbsp;<img border='0' src='pic/fl.gif'> <font color='#FFFFFF'><b>论 坛 联 盟</b></font> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href=# onclick=javascript:window.open('lm.asp','','width=450,height=201') style='color: #FFFFFF' title='查看"&tl&"论坛联盟代码'>[ 本论坛联盟代码 ]</a>"
response.write"</td></tr></table></center></div><div align=center><center><table border=1 bordercolor="&c1&" cellpadding=0 cellspacing=0 style='border-collapse: collapse' width=98% ><tr><td width=100% ><table border=0 cellpadding=0 cellspacing=0 style='border-collapse: collapse' width=100% ><tr><td width=8% align=center rowspan=2 style='border-right: 1px solid "&c1&"'><img border=0 src=pic/team.gif></td><td width=95% valign=top>"
if lmbbs=1 then call lm1()
if lmbbs=2 then call lm2()

sub lm1()
response.write"<p style='margin-top: 5; margin-bottom:3'><table border=0 cellpadding=0 cellspacing=0 style='border-collapse: collapse' width=100% ><tr>"
set rs=myconn.execute("select*from lmbbs")
los=1
do while not rs.eof
response.write"<td width=12% > <p align='center' style='margin: 4'><a target='_blank' href='"&rs("url")&"'>"&rs("name")&"</a></td>"
rs.movenext
los=los+1
if los>6 then 
los=1
response.write"</tr>"
end if
loop
rs.close
set rs=nothing
response.write"</tr></table>"
end sub

sub lm2()
response.write"<p style='margin-top: 5; margin-bottom:3'><marquee onmouseover=this.stop() onmouseout=this.start() scrollAmount=5  width='100%'>"
set rs=myconn.execute("select*from lmbbs")
do while not rs.eof
response.write"<a target='_blank' href='"&rs("url")&"' title='"&rs("name")&"'><img src="&rs("picurl")&" border=0 width=88 height=31></a> "
rs.movenext
loop
rs.close
set rs=nothing
response.write"</marquee>"
end sub
response.write"</td></tr></table></td></tr></table></center></div><br>"
%>