index10.asp

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

<script language="javascript">                                                   
function click() {                                                   
if (event.button==2) {  //改成button==2为禁止右键                                                   
alert('您想干什么呢嘻嘻，这样可不好哦')                                                   
}                                                   
}                                                   
document.onmousedown=click                                                   
</script>
<!--#include file="up.asp"-->
<%ggnum=5 
response.write"<style>TABLE {BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 1px; }TD {BORDER-RIGHT: 0px; BORDER-TOP: 0px;}</style>" 
%> 
<!--#include file="tlbiao.asp"-->
<!--#include file="hyck.asp"--><!--#include file="zxzrtz.asp"-->
<p></P>
<table cellSpacing="0" cellPadding="0" width="98%" align="center" border="0">
  <tr>
    <td width="200"><img src="pic/leftcat.gif" width="200" height="27"></td>
    <td background="pic/catbg.gif"><img border="0" src="pic/catbg.gif" width="1" height="27"></td>
    <td width="200"><img src="pic/rightcat.gif" width="200" height="27"></td>
  </tr>
</table>
<!--#include file="dj.asp"--> 
<table cellSpacing="0" cellPadding="0" width="98%" align="center" border="0">  
  <tr>  
    <td width="19" valign="top">  
      <p align="center"><img src="pic/bottomleftcat.gif" width="19" height="15"></p>  
    </td>  
    <td background="pic/bottomcatbg.gif">  
      <p align="center">&nbsp;</p>  
    </td>  
    <td width="19" valign="top">  
      <p align="center"><img src="pic/bottomrightcat.gif" width="19" height="15"></p>  
    </td>  
  </tr>  
</table>  
<p></p>  
<table cellSpacing="0" cellPadding="0" width="98%" align="center" border="0">  
  <tr>  
    <td width="200"><img src="pic/leftcat.gif" width="200" height="27"></td>  
    <td background="pic/catbg.gif"><img border="0" src="pic/catbg.gif" width="1" height="27"></td>  
    <td width="200"><img src="pic/rightcat.gif" width="200" height="27"></td>  
  </tr>  
</table>  
  
<!--#include file="index1.asp"--><table cellSpacing="0" cellPadding="0" width="98%" align="center" border="0">  
  <tr>  
    <td width="19" valign="top">  
      <p align="center"><img src="pic/bottomleftcat.gif" width="19" height="15"></p>  
    </td>  
    <td background="pic/bottomcatbg.gif">  
      <p align="center">&nbsp;</p>  
    </td>  
    <td width="19" valign="top">  
      <p align="center"><img src="pic/bottomrightcat.gif" width="19" height="15"></p>  
    </td>  
  </tr>  
</table>  
<p></p>  
<table cellSpacing="0" cellPadding="0" width="98%" align="center" border="0">  
  <tr>  
    <td width="200"><img src="pic/leftcat.gif" width="200" height="27"></td>  
    <td background="pic/catbg.gif"><img border="0" src="pic/catbg.gif" width="1" height="27"></td>  
    <td width="200"><img src="pic/rightcat.gif" width="200" height="27"></td>  
  </tr>  
</table>  
<!--#include file="mail/index.asp"--><table cellSpacing="0" cellPadding="0" width="98%" align="center" border="0">  
  <tr>  
    <td width="19" valign="top">  
      <p align="center"><img src="pic/bottomleftcat.gif" width="19" height="15"></p>  
    </td>  
    <td background="pic/bottomcatbg.gif">  
      <p align="center">&nbsp;</p>  
    </td>  
    <td width="19" valign="top">  
      <p align="center"><img src="pic/bottomrightcat.gif" width="19" height="15"></p>  
    </td>  
  </tr>  
</table>  
<p></p><table cellSpacing="0" cellPadding="0" width="98%" align="center" border="0">  
  <tr>  
    <td width="200"><img src="pic/leftcat.gif" width="200" height="27"></td>  
    <td background="pic/catbg.gif"><img border="0" src="pic/catbg.gif" width="1" height="27"></td>  
    <td width="200"><img src="pic/rightcat.gif" width="200" height="27"></td>  
  </tr>  
</table>  
<!--#include file="cham.asp"--><table cellSpacing="0" cellPadding="0" width="98%" align="center" border="0">  
  <tr>  
    <td width="19" valign="top">  
      <p align="center"><img src="pic/bottomleftcat.gif" width="19" height="15"></p>  
    </td>  
    <td background="pic/bottomcatbg.gif">  
      <p align="center">&nbsp;</p>  
    </td>  
    <td width="19" valign="top">  
      <p align="center"><img src="pic/bottomrightcat.gif" width="19" height="15"></p>  
    </td>  
  </tr>  
</table>  
<br><table cellSpacing="0" cellPadding="0" width="98%" align="center" border="0">  
  <tr>  
    <td width="200"><img src="pic/leftcat.gif" width="200" height="27"></td>  
    <td background="pic/catbg.gif"><img border="0" src="pic/catbg.gif" width="1" height="27"></td>  
    <td width="200"><img src="pic/rightcat.gif" width="200" height="27"></td>  
  </tr>  
</table>  
<!--#include file="line.asp"--> 
 
<%         
remoteaddr=Request.ServerVariables("REMOTE_ADDR")         
strsplit=split(Request.Servervariables("HTTP_USER_AGENT"),";")         
strsplit(1)=replace(strsplit(1),"MSIE","Internet Explorer")         
strsplit(2)=replace(strsplit(2),")","")         
strsplit(2)=replace(strsplit(2),"NT 5.1","XP")         
strsplit(2)=replace(strsplit(2),"NT 5.0","2000")         
response.write"<div align=center><center><table height=25 border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='98%'><tr><td width='180' background='pic/"&sp&"3.gif'>&nbsp;<img border='0' src='pic/fl.gif'> <font color='#FFFFFF'><b>在 线 统 计</b></font></td></tr></table></center></div><div align=center><center><table border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor="&c1&" width=98% ><tr><td><table border=0 cellpadding=0 cellspacing=0 style='border-collapse: collapse' width=100% >"&_         
"<tr><td width=8% align=center height=50 rowspan=2 style='border-right: 1px solid "&c1&"'><p><img border=0 src=pic/yk.gif></p>"&_         
"</td><td height=25 width=95% ><p style='margin-top: 3; margin-bottom: 3'>&nbsp;目前论坛总共有 <b>"&lineno&"</b> 人在线。其中 <b>"&usno&"</b> 位会员，<b>"&nusno&"</b> 位游客。最高峰同时在线人数：<b>"&mostonline&"</b> 人。"&_         
"<p style='margin-top: 3; margin-bottom: 3'>&nbsp;您的IP："&remoteaddr&" &nbsp;&nbsp;端口："&Request.ServerVariables("REMOTE_PORT")&" &nbsp;&nbsp;操作系统："&strsplit(2)&" &nbsp;&nbsp;浏览器："&strsplit(1)&"</td></tr><tr><td height=25 width=95% ><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 name desc")         
do while not useol.eof         
olna=useol("name")         
pic=useol("pic")         
ip=useol("ip")         
if admin<>3 then ip="已设置保密"         
if olna="" or isnull(olna) then          
iiii="<span title='IP："&ip&"'><img width='12' height='11' border=0 src=pic/0.gif> 游客<span>"         
else         
iiii="<a href='mailcon.asp?menu=write&towho="&kbbs(olna)&"' target='_blank'><img width='12' height='11' border=0 src=pic/"&pic&".gif alt='点击给 "&kbbs(olna)&" 留言'></a><a href='userinfo.asp?name="&kbbs(olna)&"' title='点击查看 "&kbbs(olna)&" 的资料<br>IP："&ip&"<br>最后更新："&useol("ltime")&"'> "&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=99% ><p style='margin-top: 0; margin-bottom: 6'>&nbsp;在线名单图例： &nbsp;<img width='12' height='11' border=0 src=pic/3.gif> 管 理 员 <img border=0 src=pic/"&sp&"2.gif> <img width='12' height='11' border=0 src=pic/5.gif> 超 级 版 主<img border=0 src=pic/"&sp&"2.gif> <img width='12' height='11' border=0 src=pic/2.gif> 论 坛 版 主 <img border=0 src=pic/"&sp&"2.gif> <img width='12' height='11' border=0 src=pic/6.gif> VIP 会 员<img border=0 src=pic/"&sp&"2.gif> <img width='12' height='11' border=0 src=pic/1.gif> 论 坛 会 员 <img border=0 src=pic/"&sp&"2.gif> <img width='12' height='11' border=0 src=pic/0.gif> 论 坛 游 客</p></td></tr></table></td></tr></table></td></tr></table></center></div><br>"         
if lmbbs<>0 then%>
<table cellSpacing="0" cellPadding="0" width="98%" align="center" border="0">  
  <tr>  
    <td width="200"><img src="pic/leftcat.gif" width="200" height="27"></td>  
    <td background="pic/catbg.gif"><img border="0" src="pic/catbg.gif" width="1" height="27"></td>  
    <td width="200"><img src="pic/rightcat.gif" width="200" height="27"></td>  
  </tr>  
</table> 
<!--#include file="lmbbs.asp"-->
<p></P>
<table cellSpacing="0" cellPadding="0" width="98%" align="center" border="0">  
  <tr>  
    <td width="200"><img src="pic/leftcat.gif" width="200" height="27"></td>  
    <td background="pic/catbg.gif"><img border="0" src="pic/catbg.gif" width="1" height="27"></td>  
    <td width="200"><img src="pic/rightcat.gif" width="200" height="27"></td>  
  </tr>  
</table>  
<!--#include file="googles.asp"--><table cellSpacing="0" cellPadding="0" width="98%" align="center" border="0">  
  <tr>  
    <td width="19" valign="top">  
      <p align="center"><img src="pic/bottomleftcat.gif" width="19" height="15"></p>  
    </td>  
    <td background="pic/bottomcatbg.gif">  
      <p align="center">&nbsp;</p>  
    </td>  
    <td width="19" valign="top">  
      <p align="center"><img src="pic/bottomrightcat.gif" width="19" height="15"></p>  
    </td>  
  </tr>  
</table>  
<br><%end if         
response.write"<div align=center><center><table border=0 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor=#111111 width=98% ><tr><td width=100% align=center><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></center></div>"         
%><!--#include file="down.asp"-->