index2.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="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>
<%if lgname="" then%><!--#include file="notice.asp"-->   
<%end if%>   
<%   
set bf=myconn.execute("select bdname,bn from bdinfo where key='0' order by bn")   
do while not bf.eof   
bbnn=bf("bn")   
response.write"<div align=center><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>
<center><table border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor="&c1&" width=98% ><tr><td width=100% background=pic/"&sp&"3.gif height=25 bgcolor="&c1&">&nbsp;<a onclick=showtb(1"&bbnn&")><SPAN style='CURSOR: hand' ><img border=0 src=pic/fle.gif></span></a> <b><font color=#FFFFFF>"&bf("bdname")&"</font></b></td></tr></table></center></div><div align=center><center><table id=tbtype1"&bbnn&" border=0 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor='#111111' width='98%'><tr><td width='100%'>"   
set asd=myconn.execute("select*from bdinfo where key<>'0' and key='"&bbnn&"'order by bn")   
do while not asd.eof   
gif="on"   
alt="普通论坛"   
if asd("type")=1 then   
gif="member"   
alt="会员论坛"   
end if   
if asd("type")=2 then   
gif="lock"   
alt="只读论坛"   
end if   
if asd("type")=3 then   
gif="rz"   
alt="认证论坛"   
end if   
   
response.write"<table border='1' cellpadding='3' cellspacing='0' style='border-collapse: collapse' bordercolor='"&c1&"' width='100%'><tr> <td width='8%' rowspan='2'><p align='center'><img src='pic/"&gif&".gif' alt='"&alt&"'></td>  <td width='24%' bgcolor="&c2&"><p align='center'><a href=list.asp?bd="&asd("bn")&" title='"&asd("bdname")&" 点击进入此版块'>"&asd("bdname")&"</a></td><td width='35%' bgcolor="&c2&">"   
response.write"<table border='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='100%' cellpadding='0'><tr><td width='50%' align='center'>"   
   
response.write"<div align='right'><table border='0' cellspacing='0' width='100%' cellpadding='0' style='border-collapse: collapse'>"   
response.write"<tr><td width='35%' align='center'><font color='#808080'>"&alt&"</font></td><td width='18%'><img border='0' src='pic/pic2.gif' width='9' height='9' align='middle' alt='今日贴数："&asd("tnum")&" 贴'><span style='color: #CC3300' title='今日贴数："&asd("tnum")&" 贴'> "&asd("tnum")&"</span></td><td width='24%'><img border='0' src='pic/pic1.gif' alt='总贴数："&asd("bbsnum")&" 贴' width='9' height='9' align='middle'><span style='color: #CC3300' title='总贴数："&asd("bbsnum")&" 贴'> "&asd("bbsnum")&"</span></td></tr></table></div>"   
   
response.write"</td><td width='18%' align='center'>"   
response.write"<a href='say.asp?bd="&asd("bn")&"&amp;re=no'><img align=middle border=0 src='img/kj_fabiao.gif' title='在此论坛发张新帖子' width='13' height='13'></a>&nbsp<a href='list.asp?bd="&asd("bn")&"&amp;mybbs="&lgname&"'><img align=middle border=0 src='img/kj_wdwz.gif' title='查看我所发的帖子' width='13' height='13'></a>&nbsp<a href='elselist.asp?bd="&asd("bn")&"&amp;action=withmetop&mybbs="&lgname&"'><img align=middle border=0 src='img/kj_wcy.gif' title='查看我参与的主题' width='13' height='13'></a>"   
response.write"</td></tr></table>"   
response.write"</td><td width='50%' bgcolor="&c2&">"   
cc=1   
set cb=myconn.execute("select name from admin where bd='"&asd("bn")&"'")   
if cb.eof or cb.bof then   
response.write"该版面还没有斑竹！"   
else   
response.write"<img border=0 alt='版主' width='20' height='20' src=pic/tj.gif align='absmiddle'> "   
do while not cb.eof   
response.write"<a target='_blank' href='userinfo.asp?name="&kbbs(cb("name"))&"' title='※ 版主 ※<br>点击查看 "&kbbs(cb("name"))&" 的资料'>"&kbbs(cb("name"))&"</a> | "   
cc=cc+1   
if cc>4 then exit do   
cb.movenext   
loop   
end if   
cb.Close   
set cb=nothing   
   
response.write"</td></tr><tr><td width='48%' colspan='2'><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='100%'><tr><td width='85%'>"&asd("bdinfo")&"</td><td width='15%'><p align='center'>"   
if asd("picurl")<>"" then   
response.write"<a target='_blank' href=list.asp?bd="&asd("bn")&"><img border=0 src="&asd("picurl")&" alt='"&asd("bdname")&" 版块队伍图片<br>点击进入此版块'></a>"   
end if   
response.write"</td></tr></table></td><td width='50%' height='60'>"   
   
lastbbs=kbbs(asd("lastbbs"))   
if isnull(lastbbs) or lastbbs="" then   
response.write"本版面还没有帖子！"   
else   
lbs=split(lastbbs,"|?|")   
response.write"主题：<a target='_blank' href=show.asp?id="&lbs(3)&"&bd="&asd("bn")&"&totable="&lbs(5)&" title='帖子主题："&LeftTrue(kbbs(lbs(1)),60)&"'>"&LeftTrue(kbbs(lbs(1)),25)&"</a><br>作者：<a target='_blank' href='userinfo.asp?name="&kbbs(lbs(0))&"' title='查看 "&kbbs(lbs(0))&" 的资料 '>"&kbbs(lbs(0))&"</a> <br>时间："&lbs(2)&""   
end if   
response.write"</td></tr></table>"   
   
asd.movenext   
Loop   
asd.Close   
set asd=nothing   
response.write"</td></tr></table></center></div><br>"   
bf.movenext   
Loop   
bf.Close   
set bf=nothing%>   
<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>