lmbbs.asp

一个小巧的论坛程序 本程序基本功能： 可开设任意数目的讨论区类别和版块 使用Cookies

<%
response.write"<table style='BORDER-COLLAPSE: collapse;MARGIN: 3px' width=98% border=1 align=center cellspacing=0 bordercolor="&c1&" height=28><tr bgcolor="&c2&"> <td background=pic/"&sp&"3.gif align=center width=40 height=28><img src=pic/nav.gif align=absmiddle></td><td background=pic/"&sp&"3.gif height=28> <P style='MARGIN: 5px;'><b><font color=#FFFFFF>论 坛 联 盟</font></b></p></td></tr><tr><td align=center width=40 height=40><img src=pic/members.gif></td><td valign=top>"
if lmbbs=1 then call lm1()
if lmbbs=2 then call lm2()

sub lm1()
response.write"<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 style='margin: 5'><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"<marquee onmouseover=this.stop() onmouseout=this.start() scrollAmount=2  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=100 height=40></a> "
rs.movenext
loop
rs.close
set rs=nothing
response.write"</marquee>"
end sub

response.write"</td></tr></table>"


%>