hyck.asp

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

<br>
<div align='center'>
 <center>
 <table border='1' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='<%=c1%>' width='98%' height='24'>
 <tr>
 <td width='100%' background='pic/<%=sp%>3.gif'>&nbsp;<img border='0' src='pic/fl.gif' width='10' height='12'> <font color='#FFFFFF'><b>论 坛 信 息</b></font></td>
 </tr>
 </table>
 </center>
</div>

<div align='center'>
 <center>
 <table border='1' cellpadding='2' cellspacing='0' style='border-collapse: collapse' bordercolor='<%=c1%>' width='98%'>
 <tr>
 <td width='8%'>
 <p align="center"><img border="0" src="pic/inn.gif"></td>
 <td width='52%'>
<%if lgname="" then%>
<table border=0 cellpadding=0 cellspacing=0 style='border-collapse: collapse' width=100% >
<tr><form method=POST action=bbselse.asp><td width=100% >
<p align="center" style="margin-top: 5; margin-bottom: 5"><b>游客，您好。</b>您现在无法正常使用本论坛全部功能，请尽快登陆！</p>
<p align="center" style="margin-top: 5; margin-bottom: 5">
<img border="0" src="pic/tl.gif"> 用户名：<input size='10' name='lgname'>&nbsp;&nbsp;<img border="0" src="pic/tl.gif"> 密&nbsp; 码：<input type='password' size='10' value name='lgpwd'></p>
<p align="center" style="margin-top: 5; margin-bottom: 5">Cookies：<select style='FONT-SIZE: 9pt' size='1' name='cook'><option value='j0' selected>不保存</option>
<option value='j1'>保存一天</option><option value='j30'>保存一月</option><option value='j365'>保存一年</option></select> 
<select size=1 name=lgtype style='font-size: 9pt'><option selected value=1>正常登陆</option><option value=2>隐身登陆</option></select></p>
<p align="center" style="margin-top: 5; margin-bottom: 5"><input type='submit' value=' 登 陆 ' name='B1'> <input type='reset' value=' 重 置 ' name='b2'> 
[<a target='_blank' href="zhuce.asp">会员注册</a>]</td></form></tr></table>
<%
else
set rs=myconn.execute("select*from [user] where name='"&lgname&"'")
q1=rs("qian")
m1=rs("meili")
j1=rs("jingyan")
ties=rs("bbsnum")
%>
 <table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='100%'>
 <tr>
 <td width='34%'>
 <p align="center"><img align=absmiddle border="0" src="<%=rs("toupic")%>" width="<%=rs("ku")%>" height="<%=rs("ch")%>"></td>
<%set rs=nothing%>
 <td width='66%'>
 <table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='100%'>
 <tr>
 <td width='100%' colspan='2'> &nbsp;<b>欢迎您，<u><a href='userinfo.asp?name=<%=lgname%>' title='查看 我自己 的详细资料' target='_blank'><%=lgname%></a></u></b></td>
 </tr>
 <tr>
 <td width='45%'> &nbsp;帖 数：<%=ties%></td>
 <td width='55%'>
<%
mailno=myconn.execute("select count(name) from hand where tname='"&lgname&"'")(0)
mailnewno=myconn.execute("select count(tname) from hand where tname='"&lgname&"' and isnew='0'")(0)
if mailnewno>0 then
response.write"<a href='bbsmail.asp?id=0' target='_blank'>留言板："&mailno&"/"
response.write"<font color=red><b>"&mailnewno&"</b>(新)</font><marquee width=18 direction=up height=12 scrolldelay=1 scrollamount=2><img border='0' src='pic/newmail.gif' width='21' height='14' align='absmiddle'></marquee></a>"
else
response.write"<a href='bbsmail.asp?id=0' target='_blank'>留言板："&mailno&"/"
response.write mailnewno
response.write"(新)</a>"
end if
set mailno=nothing
set mailnewno=nothing
%>
 </td>
 </tr>
 <tr>
 <td width='45%'> &nbsp;金 钱：<%=q1%></td>
 <td width='55%'>当前处于 <font color=<%=c1%>><b><%=lgtext2%></b></font> 状态 </td>
 </tr>
 <tr>
 <td width='45%'> &nbsp;魅 力：<%=m1%></td>
 <td width='55%'>IP：<%=ip%></a>
 </td>
 </tr>
 <tr>
 <td width='45%'> &nbsp;经 验：<%=j1%></td>
 <td width='55%'><a href='login.asp?action=exit'>退出论坛</a></td>
 </tr>
 <tr>
<%sqltype="lg"%>
<!--#include file="upji.asp"-->
 <td width='100%' colspan='2'> &nbsp;等 级：<b><%=dj%></b>『<%=dd%>』<%=djpic%></td>
 </tr>
 </table>
 </td>
 </tr>
 </table>
<%end if%>
 </td>
 <td width='40%'>
 <table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='100%'>
 <tr>
 <td width='100%' colspan="2" height="22">
<%
set seegg=myconn.execute("select id,zhuti,riqi,bd from gonggao where bd=0 order by id desc")
response.write"<script>var ggmenu='<img border=0 align=absmiddle src=pic/gonggao.gif><b>公告列表：</b>"
if seegg.eof then
zhuti2="当前没有公告"
response.write"没有公告"
else
do while not seegg.eof
idgg=seegg("id")
zhuti="<a href=javascript:openscript("&idgg&")>"&kbbs(seegg("zhuti"))&"</a>"
riqi=seegg("riqi")
response.write"<br><img src=pic/fl.gif> "&zhuti&""
seegg.movenext
loop
set seegg2=myconn.execute("select id,zhuti,riqi,bd from gonggao where bd=0 order by id desc")
zhuti2=""&kbbs(seegg2("zhuti"))&""
end if
seegg.close
set seegg=nothing
response.write"'</script> &nbsp;<img border=0 align=absmiddle src=pic/gonggao.gif> <b>公告</b>：<a onmouseover=ShowMenu(ggmenu,200)><SPAN style='CURSOR: hand; color="&c1&"'>"&zhuti2&"</span></a>"
set seegg2=nothing
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
%>

 </td>
 </tr>
 <tr>
 <td width='100%' colspan="2" height="19"> &nbsp;<img border="0" src="img/jt1.gif"> 欢迎我们的新会员：<b><a target='_blank' href='userinfo.asp?name=<%=kbbs(newuser)%>' title='查看 <%=kbbs(newuser)%> 的资料'><%=kbbs(newuser)%></a></b></td>
 </tr>
 <tr>
 <td width='52%' height="19"> &nbsp;<img border="0" src="img/jt1.gif"> 注册会员：<%=regno%></td>
 <td width='48%' height="19"><img border="0" src="img/jt1.gif"> 现在时间：<%=FormatDateTime(now+timeset/24,4)%></td>
 </tr>
 <tr>
 <td width='52%' height="19"> &nbsp;<img border="0" src="img/jt1.gif"> 总 帖 数：<%=tienoa%></td>
 <td width='48%' height="19"><img border="0" src="img/jt1.gif"> 话 题 数：<%=tieno%></td>
 </tr>
 <tr>
 <td width='52%' height="19"> &nbsp;<img border="0" src="img/jt1.gif"> 最高日帖数：<%=mosttopic%></td>
 <td width='48%' height="19"><img border="0" src="img/jt1.gif"> 今日帖数：<font color=<%=c1%>><%=todaynum%></font></td>
 </tr>
 </table>
 </td>
 </tr>
 </table>
 </center>
</div>
<br>