index.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>" 
%>
<p></P><!--#include file="tlbiao.asp"-->
<!--#include file="hyck.asp"--><!--#include file="zxzrtz.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="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%> 
<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> 
<% 
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><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>