index.asp

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

<!--#include file="up.asp"-->
<%
if xtxx<>"n" then
set bbs1=myconn.execute("select * from bbsinfo") 
newuser=bbs1("newuser")
regno=bbs1("usernum")
tienoa=bbs1("bbsnum")
tieno=bbs1("topicnum")
mosttopic=bbs1("mosttopic")
mostonline=bbs1("mostonline")
todaynum=bbs1("todaynum")
set bbs1=nothing
response.write"<table style='BORDER-COLLAPSE: collapse;MARGIN: 3px' width=98% border=1 align=center cellspacing=0 bordercolor="&c1&" height=30><tr><td align=center width=40><img title=论坛系统信息 src=pic/nav.gif align=absmiddle></td><td><p style='margin: 4'>欢迎我们的新会员：<a href='userinfo.asp?name="&kbbs(newuser)&"'><font color="&c2&"><b>"&kbbs(newuser)&"</b></font></a><img border=0 src=pic/"&sp&"2.gif>注册会员：<b>"&regno&"</b><img border=0 src=pic/"&sp&"2.gif>现在时间：<b>"&FormatDateTime(now+timeset/24,4)&"</b>"
response.write"<p style='margin: 4'>总 帖 数：<b>"&tienoa&"</b><img border=0 src=pic/"&sp&"2.gif>"
response.write"话题数：<b>"&tieno&"</b><img border=0 src=pic/"&sp&"2.gif>最高日帖数：<b>"&mosttopic&"</b><img border=0 src=pic/"&sp&"2.gif>今日帖数：<font color="&c2&"><b>"&todaynum&"</b></font></td></tr></table>"
end if
if xtgg<>"n" then
response.write"<table id=menu0 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><img src=pic/gonggao.gif></td><td valign=top>"
set seegg=myconn.execute("select id,zhuti,riqi,bd from gonggao where bd=0 order by id")
if seegg.eof then
response.write"<script>menu0.style.display='none'</script>"
else
response.write"<MARQUEE onmouseover=this.stop() onmouseout=this.start() scrollAmount=1 direction=up width=100% height=40>"
do while not seegg.eof
idgg=seegg("id")
response.write"<p style='margin:5px'><img src=pic/bbsinfo.gif> <a href=javascript:openscript("&idgg&")><font color="&c2&">"&kbbs(seegg("zhuti"))&"</font></a></p>"
seegg.movenext
loop
response.write"</marquee>"
end if
seegg.close
set seegg=nothing
response.write"</td></tr></table>"
end if
if lgname="" then
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><form name=form1 method=post action=bbselse.asp><tr> <td align=center width=40><img src=pic/members.gif></td><td valign=top> <P style='MARGIN: 5px;'>用户名： <input type=text name=lgname size=12> 密 码： <input type=password name=lgpwd size=12> Cookies： <select style='FONT-SIZE: 9pt' size=1 name=cook><option value=0 selected>不保存</option><option value=1>保存一天</option>"&_
"<option value=30>保存一月</option><option value=365>保存一年</option></select>&nbsp;<select style='FONT-SIZE: 9pt' size=1 name=lgtype><option value=s selected>正常登陆</option> <option value=y>隐身登陆</option></select> <input type=submit name=Submit value=' 登 陆 '></p></td></tr></form></table>"
end if
set bf=myconn.execute("select bdname,bn from bdinfo where key='0' order by bn")
do while not bf.eof
bbnn=bf("bn")
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/fl.gif></td><td background=pic/"&sp&"3.gif height=28> <P style='MARGIN: 5px;'><b><font color=#FFFFFF>"&bf("bdname")&"</font></b></p></td></tr>"
set asd=myconn.execute("select*from bdinfo where key<>'0' and key='"&bbnn&"'order by bn")
do while not asd.eof
gif="on"
if asd("type")=1 then gif="member"
if asd("type")=2 then gif="lock"
if asd("type")=3 then gif="rz"
response.write"<tr><td align=center width=40><img src='pic/"&gif&".gif'></td><td valign=top><table width=100% border=0 cellspacing=0><tr><td><p style='margin-left: 3; margin-top: 5'><a href=list.asp?bd="&asd("bn")&">"&asd("bdname")&"</a></p></td><td rowspan=2 width=40>"
if asd("picurl")<>"" then
response.write"<a href=list.asp?bd="&asd("bn")&"><img border=0 src="&asd("picurl")&"></a>"
end if
response.write"</td><td rowspan=2 width=280><p style='margin-left:10px'>"
lastbbs=kbbs(asd("lastbbs"))
if isnull(lastbbs) or lastbbs="" then
response.write"本版面还没有帖子！"
else
lbs=split(lastbbs,"|?|")
response.write"作者：<a href='userinfo.asp?name="&kbbs(lbs(0))&"'>"&kbbs(lbs(0))&"</a> <br>时间："&lbs(2)&"<br>主题：<img align=absmiddle src=face/"&lbs(4)&".gif> <a href=show.asp?id="&lbs(3)&"&bd="&asd("bn")&"&totable="&lbs(5)&">"&LeftTrue(kbbs(lbs(1)),20)&"</a>"
end if
response.write"</p></td></tr><tr><td valign=top><p style='margin:4px'><img src=pic/bbsinfo.gif> <font color=#999999>"&asd("bdinfo")&"</font></p></td></tr><tr bgcolor=#FAFAFA> <td><p style='margin:4px'>"
cc=1
set cb=myconn.execute("select name from admin where bd='"&asd("bn")&"'")
if cb.eof or cb.bof then
response.write"该版面还没有斑竹！"
else
response.write"版面斑竹："
do while not cb.eof
response.write"<a href='userinfo.asp?name="&kbbs(cb("name"))&"'>"&kbbs(cb("name"))&"</a> | "
cc=cc+1
if cc>4 then exit do
cb.movenext
loop
end if
cb.Close
set cb=nothing
response.write"</p></td><td>&nbsp;</td><td> <p style='margin:4px'>总帖数："&asd("bbsnum")&"&nbsp; 今日帖数："&asd("tnum")&"</td></tr></table></td></tr>"
set tie=nothing
asd.movenext
Loop
asd.Close
set asd=nothing
response.write"</table>"
bf.movenext
Loop
bf.Close
set bf=nothing
if zxtj<>"n" then
%><!--#include file="line.asp"-->
<%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/tj.gif></td><td valign=top> "&_
"<P style='MARGIN: 5px;'>目前论坛总共有 <b>"&lineno&"</b> 人在线 。其中 <b>"&usno&"</b> 位会员 ， <b>"&nusno&"</b> 位游客。最高峰同时在线人数：<b>"&mostonline&"</b></p><table border=0 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor=#111111 width=100% ><tr>"
ni=1
ha=1
set useol=myconn.execute("select*from online order by ip")
do while not useol.eof
olna=useol("name")
pic=useol("pic")
if olna="" or isnull(olna) then 
iiii="<img border=0 src=pic/0.gif> 游客"
else
iiii="<a href='userinfo.asp?name="&kbbs(olna)&"' title='最后更新："&useol("ltime")&"'><img border=0 src=pic/"&pic&".gif> "&kbbs(olna)&"</a>"
end if
response.write"<td width='18%' height=20>&nbsp;"&iiii&"</td>"
ha=ha+1
ni=ni+1
if ha>5 then
ha=1
response.write"</tr>"
end if
if ni>lineno then exit do
useol.movenext
Loop
useol.Close
set useol=nothing
set usno=nothing
set lineno=nothing
response.write"</table><hr size=1 color="&c1&" width=98% ><p style='margin:6'>&nbsp;在线名单图例：<img border=0 src=pic/3.gif> 管理员 <img border=0 src=pic/"&sp&"2.gif> <img border=0 src=pic/2.gif> 版 主 <img border=0 src=pic/"&sp&"2.gif> <img border=0 src=pic/1.gif> 论坛会员 <img border=0 src=pic/"&sp&"2.gif> <img border=0 src=pic/0.gif> 游 客</td></tr></table>"
end if
if ltlm<>"n" and lmbbs<>0 then%><!--#include file="lmbbs.asp"--><%end if
response.write"<br><table width=98% border=0 cellspacing=0 align=center><tr><td align=center height=30 valign=bottom> <img border=0 src=pic/on.gif align=absmiddle> 普通论坛&nbsp; <img border=0 src=pic/member.gif align=absmiddle> 会员论坛&nbsp; <img border=0 src=pic/lock.gif align=absmiddle> 只读论坛&nbsp; <img border=0 src=pic/rz.gif align=absmiddle> 认证论坛</td></tr></table><br></body>"%>
<!--#include file="down.asp"-->