index.asp

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

<!--#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>
<!--#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/2.gif> 论 坛 版 主 <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%>       
<!--#include file="lmbbs.asp"--><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>            
<p></p>            
<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"-->