|
#2
wsh2272008-08-08 09:57
这是所有的代码！
<%=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> |
grs.open "select * from config",conn,1,3
版主帮忙啊 我现在一点头绪都没有显示类型不正确,或与其他参数冲突
