read.asp

一个美化的论坛程序

					Response.Write "<div align=right><font color=666666>该贴子于"&editrecord&"被作者编辑过</font></div>"
				end if%>
            <br>
            <%if sign<>"" then Response.Write "<div align=right><table cellspacing=1 cellpadding=4 bgcolor="""&tabletitlecolor&"""><tr><td bgcolor="&tablebodyacolor&">"&ubbcode(sign)&"</td></tr></table></div>"%>
          </td>
        </tr>
      </table>
      <table width="97%" align="center">
        <tr> 
          <td><br>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="4%"><img src="images/love.gif" width="16" height="16" align="absmiddle"> 
                </td>
                <td width="41%">发表时间：<%=dateandtime%> </td>
                <td width="3%"><img src="images/ip.gif" width="13" height="15"></td>
                <td width="27%">ＩＰ地址：<%=ip%></td>
                <td width="10%" align="right"> 
                  <%if username=Request.Cookies("bookbaby")("username") then
response.write "<a href=edit.asp?boardid="&boardid&"&bbsid="&request("bbsid")&"&replyid="&request("replyid")&" title=编辑该帖子><img src=""images/edit.gif"" border=""0"" width=""47"" height=""18""></a>"
end if%>
                </td>
                <%if (instr(boardmaster,Request.Cookies("bookbaby")("username"))>0 and Request.Cookies("bookbaby")("username")<>"") or session("isadmin")="club" then
	if request("replyid")="" then
		if  istop then
			 response.write "<td width=""5%"" align=""right""><a href=manage.asp?act=notop&action=bbs&boardid="&boardid&"&id="&request("bbsid")&" title=将该帖子固顶状态解除><img src=""images/istop.gif"" border=""0"" height=""18""></a></td>"
		else
			response.write "<td width=""5%"" align=""right""><a href=manage.asp?act=top&action=bbs&boardid="&boardid&"&id="&request("bbsid")&" title=将该帖子固顶><img src=""images/istop.gif"" border=""0""  height=""18""></a></td>"
		end if
		if best then
			 response.write "<td width=""5%"" align=""right""><a href=manage.asp?act=nobest&action=bbs&boardid="&boardid&"&id="&request("bbsid")&" title=将该帖子踢出精华区><img src=""images/nojing.gif"" border=""0"" width=""18"" height=""18""></a></td>"
		else
			response.write "<td width=""5%"" align=""right""><a href=manage.asp?act=best&action=bbs&boardid="&boardid&"&id="&request("bbsid")&" title=将该帖子放入精华区><img src=""images/jing.gif"" border=""0"" width=""18"" height=""18""></a></td>"
		end if
	end if
	response.write "<td width=""5%"" align=""right""><a href=manage.asp?act=del&boardid="&boardid&"&"&manage&" title=将该帖子放入回收站><img src=""images/delete.gif"" border=""0"" width=""18"" height=""18""></a></td>"
end if%>
              </tr>
            </table>
            <hr noshade width="100%" size="1">
            <li><b>&nbsp;相关主题</b> 
          </td>
        </tr>
      </table>
      <table width="97%" align=center>
        <tr> 
          <td> 
            <ul>
              <%
		response.write "<img src=face/face"&face&".gif height=15><a href=read.asp?boardid="&boardid&"&bbsid="&request("bbsid")&">"
		if len(title)<30 then
			response.write title
		else
			response.write left(title,30)&"..."
		end if
		response.write "</a><br>"
		sql="select bbsid,replygrade,replyid,face,content from reply where not del and bbsid="&request("bbsid")&" order by replyorder"
		rs.open sql,conn,1,1
		do while not rs.eof
				for n=1 to rs("replygrade")
					Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;"
				next
			response.write "<img src=face/face"&rs("face")&".gif height=15><a href=read.asp?boardid="&boardid&"&bbsid="&request("bbsid")&"&replyid="&rs("replyid")&">"
			if cstr(rs("replyid"))=request("replyid") then
				response.write "<font color=#ff0000><b>"
				if len(rs("content"))<40 then
					response.write htmlnocode(rs("content"))
				else
					response.write left(htmlnocode(rs("content")),40-n*2)&"..."
				end if
				response.write "</font></b>"
			else
				if len(rs("content"))<30 then
					response.write htmlnocode(rs("content"))
				else
					response.write left(htmlnocode(rs("content")),40-n*2)&"..."
				end if
			end if
			response.write "</a><br>"
		rs.movenext
		loop
		rs.close
%>
            </ul>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<img src="" width="1" height="3">
<table width="680" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%=tablebackcolor%>">
  <form name="form1" onkeydown="if(event.keyCode==13 && event.ctrlKey)form1.submit()" method="post" action="save.asp?act=add&boardid=<%=boardid%>&bbsid=<%=request("bbsid")%>&replygrade=<%=replygrade%>&action=reply&replyorder=<%=(getorder(request("replyid"))+1)%>">
    <tr bgcolor="#FFFFFF"> 
      <td colspan="2" height="27">&nbsp;<font color="#000000">快速回复</font></td>
    </tr>
	<%if Request.Cookies("bookbaby")("username")="" or Request.Cookies("bookbaby")("userpwd")="" then%>
    <tr bgcolor="<%=tablebodycolor%>"> 
      <td height="21" width="22%" align="right"><b>用户名：</b></td>
      <td height="21" width="78%"> 
      &nbsp;&nbsp;<input type="text" name="username" maxlength="20" size="20">
        <a href="userreg.asp">还没有注册？ </a></td>
    </tr>
    <tr bgcolor="<%=tablebodycolor%>"> 
      <td height="21" align="right" width="22%"><b>密　码：</b></td>
      <td height="21" width="78%"> 
       &nbsp;&nbsp;<input type="password" name="password" maxlength="20" size="20">
        <a href="getpassword.asp">忘记了密码？</a></td>
    </tr>
	<%end if%>
    <tr bgcolor="<%=tablebodycolor%>"> 
      <td align="right" valign=top width="22%"><b>心　情：</b></td>
      <td width="78%"> 
        <%
for i=1 to 20
	response.write "<input type=""radio"" name=""face"" value="&i
	if i=1 then response.write " checked"
	response.write "><img src=face/face"&i&".gif>&nbsp;&nbsp;"
	if i mod 10=0 and i>=10 then response.write "<br>"
next
%>
      </td>
    </tr>
    <tr bgcolor="<%=tablebodycolor%>"> 
      <td align="right" valign="top" bgcolor="<%=tablebodycolor%>" height="82" width="22%"><b>内　容：<br>
        <br>
        </b>Ctrl+Enter发送</td>
      <td bgcolor="<%=tablebodycolor%>" height="82" width="78%"> 
        <div align="center">
          <textarea cols=80 name=content rows=5></textarea>
        </div>
      </td>
    </tr>
    <tr bgcolor="<%=tabletitlecolor%>"> 
      <td colspan="2" align="center" height="13" background="images/tablebg02.gif"> 
        <input type="submit" value=" 发 言 " name=Submit&quot;>
        <input type="reset" value=" 清 空 ">
      </td>
    </tr>
  </form>
</table>
<%
function getorder(theid) 
dim tmprs 
	if theid<>"" then
    tmprs=conn.execute("select replyorder from reply Where replyid=" & theid) 
    getorder=tmprs("replyorder") 
	set tmprs=nothing 
	end if
end function 
stat="浏览"&boardtitle&"分论坛的帖子"
if Request.Cookies("bookbaby")("username")<>"" then
    set rs1=conn.execute("select username from online where username='"&Request.Cookies("bookbaby")("username")&"'")
    if not rs1.eof then
	conn.execute("update online set stat='"&stat&"',lasttime='"&now()&"' where username='"&Request.Cookies("bookbaby")("username")&"'")
    else
	conn.execute("insert into online(username,sex,stat,lasttime) values ('"&Request.Cookies("bookbaby")("username")&"',"&Request.Cookies("bookbaby")("usersex")&",'"&stat&"','"&now()&"')")
    end if
    set rs1=nothing
else
	conn.execute("delete * from online where datediff('n',lasttime,now())>20")
end if
set rs=nothing
conn.close
set conn=nothing
%>
<!--#include file="copyright.asp"-->