这是所有的代码!
<%=ttop%>
<style type="text/css">
<!--
.style3 {font-size: 16px}
-->
</style>
<div align='center'>
<table width="<%=tbw%>" border="1" bordercolor="<%=c1%>" cellspacing="0"
cellspacing='0' style='border-collapse: collapse'>
<tr>
<td width='50%' class=td1 bgcolor="<%=c1%>" background="<%=tbg%>" align='center' height="24">
<%
dim messages,pp,grs
Set grs = Server.CreateObject("ADODB.Recordset")
color=Red]grs.open "select * from config",conn,1,3[/color]
papern=0
Set papers = Server.CreateObject("ADODB.Recordset")
papers.open "select * from paper where bd=0 order by id",conn,1,3
if papers.eof then
response.Write("<img src=pic/msg.gif>论坛运行正常,目前暂无公告!")
else
do while not papers.eof
paper=papers("paper")
paper=split(paper,"|")
pp=papers("id")
messages=messages&" <img src=pic/msg.gif><a href=# onclick=openscript('paper.asp?id="& papers("id")& "')><b>"&paper(0)&"</b></a>"
papern=papern+1
papers.movenext
loop
end if
set papers=nothing
%>
<marquee onmouseover="this.stop()" onmouseout="this.start()" scrollamount="2" scrolldelay="4" width="60%">
<%=messages%></marquee>
</td>
</tr>
</table>
<table class=css border='1' bordercolor="<%=c1%>" cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='<%=tbw%>'>
<tr>
<td width='11%'>
<p align="center"><img border="0" src="pic/inn.gif"></td>
<td width='47%'>
<%if isnull(lguserid) or lguserid="" then%>
<table width="96%" border="0" cellspacing="0" cellspacing='0' style='border-collapse: collapse'>
<tr><td width="4%" >
<p style="margin-top: 5; margin-bottom: 2">
<td width="90%" style='padding:5px'>
<table class=css align=center border=0 cellpadding=2 cellspacing=0 style='border-collapse: collapse' width='95%'><tr>游客您好!</b>欢迎注册<font color=green><%=bbsname%></font>,享受更多服务!</tr><tr><form method=POST action=login.asp?action=login><td width=52px>用户名:</td><td><input size=11 name=lgname></td><td width=52px>保 存:</td><td><select name=cook style='font-family: 宋体 (serif); font-size: 9pt'><option value=0>不保存</option><option value=1>保存一天</option><option value=30>保存一月</option><option value=365>保存一年</option></select></td></tr><tr><td>密 码:</td><td><input type=password name=lgpwd size='11'></td><td>方 式:</td><td><select size='1' name='lgtype' style='font-size: 9pt; font-family: 宋体'><option selected value=1>正常登录</option><option value=2>隐身登录</option></select></td></tr><tr><%if conn.execute("select postcode from config")(0)=0 then%><td>验证码:</td><td><input size=3 name=adminid maxlength=6> <img src=inc/code.asp></td><%else%><%end if%><td><input type=submit value='登 陆' name=Submit></td><td><input type=reset value='重 置' name=reset></td></tr></form></table>
</td>
</table>
<%
else
dim usern,userinfo
set rs=conn.execute("select*from [user] where name='"&lgname&"'")
%>
<table width="100%" border="1" cellspacing="0" cellspacing='0' style='border-collapse: collapse'>
<table cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="<%=c2%>" width="352">
<tr><td rowspan="4" width="120"><%set usern=conn.execute("select top 1 userinfo from [user] where userid="&lguserid&"")
userinfo=usern("userinfo")
userinfo=split(userinfo,"|")
%><div align="center"><img src="<%=kbbs(userinfo(5))%>" width="<%=kbbs(userinfo(6))%>" height="<%=kbbs(userinfo(7))%>" border=0></div></td>
<td colspan="2"><img border="0" src="pic/home.gif"> <a href="usersetup.asp">我的资料</a></td>
</tr>
<tr>
<td width="103">::
<a href="elselist.asp?action=mytop">我发表的帖子</a></td>
<td width="130"> :: <a href="sms.asp">我的论坛信箱</a></td>
</tr>
<tr>
<td width="103">::
<a href="elselist.asp?action=withmetop">我参与的帖子</a></td>
<td width="130"> :: <a href="sms.asp?action=write">
我要发送短信</a></td>
</tr>
<tr>
<td width="103">::
<a href="usersetup.asp?action=popedom">我的论坛权限</a> </td>
<td width="130"> ::
<a href="forumstats.asp">
版面帖数统计</a></td>
</tr>
</table>
<%end if%>
</td>
<%
set rs=conn.execute("select maxonline,maxtopic,maxontime,nowtime,todaynum,topicnum,allnum,usernum,newuser from config")
newuser=rs("newuser")
newuser=split(newuser,"|")
maxonline=rs("maxonline")
maxontime=rs("maxontime")
realnowtime=formatdatetime(now()+timeset/24,2)
nowtime=replace(rs("nowtime"),",","")
if FormatDateTime(conn.execute("select nowtime from config")(0),2)<>realnowtime then
conn.execute("update bdinfo set todaynum=0")
conn.execute("update config set todaynum=0,nowtime='"&realnowtime&"'")
conn.execute("update [user] set tnum=0")
if Date()-weekday(date(),2)+1=date() then conn.execute("update [user] set wnum=0")
end if
%>
<td width=40% class=tableBody1 valign="top">
<TABLE border=0 width="98%" align=center><tr><td height=24>
共有<b><%=rs("usernum")%></b>位会员</td>
<td>
最新来宾:<span class="style3">[</span><b><a target='_blank' href='userinfo.asp?userid=<%=newuser(0)%>' title='查看 <%=kbbs(newuser(1))%>的资料'><%=kbbs(newuser(1))%></a></b><span class="style3">]</span></td>
</tr>
<tr><td height="1" colspan="2">
<table border=0 cellspacing=0 cellpadding=0 align=center style="width:100%" bgcolor=<%=c1%> class=tableborder1>
<tr><td> </td></tr>
</table>
</td></tr><TR><TD>
今日帖数:<font color=red><%=rs("todaynum")%></font></td><td>
最高日帖数:<%=rs("maxtopic")%>
</td></tr><tr><TD>
话 题 数:<%=rs("topicnum")%></td><td>
总 帖 数:<%=rs("allnum")%>
</td></tr><tr><TD>
现在时间:<%=FormatDateTime(now+timeset/24,4)%></td><td>
论坛岁月:<b><font color=red><%=datediff("d","2007-7-27",date())%></font></b> 天
</td>
</tr> <tr><TD colspan="2"> </td>
</tr> </table>
</td>
<td width='12%'>
<p align="center">
<object classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000" id="obj1" codebase="http://download.,0,40,0" border="0" width="100" height="110">
<param name="movie" value="pic/Clock.swf">
<param name="quality" value="High">
<embed src="pic/Clock.swf" pluginspage="http://www. type="application/x-shockwave-flash" name="obj1" width="100" height="110" quality="High"></object>
</td>
</tr> </table>
</center>
</div><div align='center'>
<center>
<table width="<%=tbw%>" border="1" class=tableBorder6 bordercolor="<%=c1%>" cellspacing="0" cellspacing='0' bgcolor="<%=c2%>" class=tableBorder6 style='border-collapse: collapse'>
<tr>
<td class=td1 height="28" align='center'> <a href=userlist.asp target=_blank>用户列表</a> <font face=Wingdings color=<%=c1%>>v</font> <font color=<%=c1%>><a href="bbsshow.asp?action=topmark" target=_blank>十大积分排行</a> </font><font face=Wingdings color=<%=c1%>>v</font> <a href=bbsshow.asp?action=tnum target=_blank>今日发帖排行榜</a> <font face=Wingdings color=<%=c1%>>v</font> <a href=bbsshow.asp?action=wnum target=_blank>本周发帖排行榜</a></td>
</tr> </table>
</center>
</div>
<%=tbottom%>
<br>