read.asp

一个美化的论坛程序

<%Response.Buffer=true%>
<!--#include file="char.asp"-->
<script src=hd.js></script>
<!--#include file="top.asp"-->
<%
if boardtype="2" and Request.Cookies("bookbaby")("username")="" then Response.Redirect "userlogin.asp?errmsg="&server.URLEncode("本论坛为正规论坛，需要登陆才能浏览！")
if request("boardid")="" then
	response.write "<script>javascript:alert('请选择论坛!');window.close();</script>"
	response.end
else
	boardid=request("boardid")
end if
sql="select count from board where boardid="&boardid
rs.open sql,conn,1,1
if rs.eof then
	response.write "<script>javascript:alert('该论坛不存在，可能已经被管理员删除!');window.close();</script>"
	response.end
end if
rs.close
sql="select editrecord,face,title,istop,content,username,hits,dateandtime,ip,best from bbs where not del and boardid="&boardid&" and bbsid="&request("bbsid")
rs.open sql,conn,1,3
if rs.eof and rs.bof then 
	response.write "<script>javascript:alert('没有找到相关的贴子,可能已经被管理员删除!');window.close();</script>" 
	response.end
else
	action="bbs"
	istop=rs("istop")
	title=rs("title")
	content=rs("content")
	username=rs("username")
	hits=rs("hits")
	face=rs("face")
	best=rs("best")
	dateandtime=rs("dateandtime")
	ip=rs("ip")
	editrecord=rs("editrecord")
	if Request("replyid")="" then
		rs("hits")=rs("hits")+1
		rs.update
		hits=rs("hits")
		manage="action=bbs&id="&request("bbsid")
		rs.close
	else
		rs.close 
		sql="select editrecord,replygrade,face,content,username,hits,dateandtime,ip from reply where not del and replyid="&request("replyid")
		rs.open sql,conn,1,3
		if rs.eof and rs.bof then 
			response.write "<script>javascript:alert('没有找到相关的贴子,可能已经被管理员删除!');window.close();</script>"
			response.end 
		else
			action="reply"
			replygrade=rs("replygrade")
			content=rs("content")
			username=rs("username")
			hits=rs("hits")
			face=rs("face")
			dateandtime=rs("dateandtime")
			ip=rs("ip")
			editrecord=rs("editrecord")
			rs("hits")=rs("hits")+1
			rs.update
			hits=rs("hits")
			manage="action=reply&id="&request("replyid")
			rs.close 
		end if
	end if
sql="select title,userweburl,userwebname,face,sex,email,oicq,address,adddate,announce,score,sign from user where username='"&username&"'"
rs.open sql,conn,1,1
	usertitle=rs("title")
	userweburl=rs("userweburl")
	userwebname=rs("userwebname")
	userface=rs("face")
	sex=rs("sex")
	email=rs("email")
	oicq=rs("oicq")
	announce=rs("announce")
	score=rs("score")
	address=rs("address")
	adddate=rs("adddate")
	sign=rs("sign")
rs.close
end if
if not(instr(boardmaster,Request.Cookies("bookbaby")("username"))>0 and Request.Cookies("bookbaby")("username")<>"") then
	hiddenip=split(ip,".")
	ip=hiddenip(0)+"."+hiddenip(1)+".*.*"
end if
%>
<img src="" width="1" height="3">
<table cellspacing=1 cellpadding=1 width=680 align=center bgcolor=<%=tablebackcolor%> border=0>
  <tr bgcolor="<%=tablebodycolor%>"> 
    <td colspan=2 height=25> 
      <table width="100%" border="0" cellspacing="1" cellpadding="1" align="center">
        <tr> 
          <td width="56%"><a href="add.asp?action=bbs&boardid=<%=boardid%>"><img alt="发表新贴" src="images/add.gif" border=0 align="absmiddle" width="99" height="25"></a> 
            <%
response.write "<a href=add.asp?action=reply&boardid="&boardid&"&bbsid="&request("bbsid")&"&replygrade="&replygrade&"&replyorder="&(getorder(request("replyid"))+1)&"><img  alt=回复该贴子 src=""images/reply.gif"" align=""absmiddle"" border=0 width=""99"" height=""25""></a>"
%>
            <img src="images/newpoll.gif" width="99" height="25" align="absmiddle"> 
          </td>
          <td width="44%" align="right"> 
            <div align="right"><a href=# onClick="javascript:WebBrowser.ExecWB(4,1)"><img src="images/saveas.gif" border=0 width=16 height=16 alt=保存该页为文件 align=absmiddle></a> 
              <object id="WebBrowser" width=0 height=0 classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2">
              </object> &nbsp;您是本贴的第<b> <%=hits%></b> 位阅读者<font color="#000000"></font></div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td colspan=2 height=25> 
      <table width="99%" border="0" cellspacing="0" cellpadding="0" align="center" height="100%">
        <tr> 
          <td><font color="#990000">帖子主题：</font><b><font color=#000000><%=title%></font></b> 
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td valign=top align=center width="22%" height=20 bgcolor="<%=tablebodycolor%>"> 
      <table width="94%" border="0" cellspacing="1" cellpadding="1">
        <tr> 
          <td  style=filter:glow(color=#FF66FF,strength=2);font-size:11pt; valign="bottom" height="27"><b><font color="#FFFFFF"><%=username%></font></b></td>
        </tr>
        <tr> 
          <td><img src=face/<%=userface%> border="1"></td>
        </tr>
        <tr> 
          <td><%if usertitle<>"" then response.write "头衔："&usertitle&"<br>"%>
		  状态：<%
          set rs=conn.execute("select username from online where username='"&username&"'")
          if not rs.eof then
          Response.Write "<font color=#ff0000>在线</font>,有人找我吗?"
          else
          Response.Write "<font color=#999999>离线</font>,给我留言吧!"
          end if
          rs.close
          %><br>
		  等级：<!--#include file=grade.asp-->
            <br>
            性别：<%if sex then response.write "<font color=#0000ff>帅哥</font>" else response.write "<font color=#66cc00>靓妹</font>" end if%>
            <br>
            来自：<%=address%><br>
            注册：<%=adddate%><br>
            发贴：<%=announce%><br>
            积分：<%=score%></td>
        </tr>
      </table>
    </td>
    <td valign=top width="78%" height=20 bgcolor="<%=tablebodycolor%>"> 
      <table width="97%" align="center">
        <tr> 
          <td><a href="userinf.asp?name=<%=server.URLEncode(username)%>"><img  alt=查看<%=username%>的资料 src="images/userinf.gif" border=0 width="45" height="18" align="absmiddle"></a> 
            <a target=_blank  href="<%=userweburl%>"><img alt=访问<%=username%>的个人站点:<%=userwebname%> src="images/homepage.gif" border=0 width="47" height="18" align="absmiddle"></a> 
            <a href="mailto:<%=email%>"><img alt="给<%=username%>发邮件" src="images/email.gif" border=0 width="45" height="18" align="absmiddle"></a> 
            <a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=oicq%>"><img alt="查看<%=username%>的QQ信息" src="images/oicq.gif" border=0 width="47" height="18" align="absmiddle"></a> 
            <a href="search.asp?action=<%=action%>&keytype=username&keyword=<%=server.URLEncode(username)%>""><img alt=搜索<%=username%>的贴子 src="images/search.gif" border=0 width="47" height="18" align="absmiddle"></a> 
            <a href="#"><img alt="将<%=username%>加为好友" src="images/friend.gif" border=0 width="48" height="18" align="absmiddle"></a> 
            <a href="#" onClick="javascript:read('messanger.asp?action=new&name=<%=server.URLEncode(username)%>','messanger','width=420,height=290')"><img alt="给<%=username%>发短消息" src="images/message.gif" border=0 width="60" height="18" align="absmiddle"></a> 
            <hr noshade width="100%" size="1">
          </td>
        </tr>
      </table>
      <table width="94%" cellpadding="0" cellspacing="0">
        <tr> 
          <td><ul><%=ubbcode(content)%></ul>
            <br>
            <br>
            <%if editrecord<>"" then