viewreply.asp

ASP编写的网站

<% Option Explicit %>
<!--#include file="Inc_common.asp"-->
<!--#include file="Ubb.asp"-->
<%
'**************************************
'**    Viewreply.asp
'**
'** 文件说明：查看回复页面
'** 修改日期：2004-11-12
'** 作者：HACKer007
'** Email：[e-mail]
'**************************************

dim id,replycode
  id=filter(Trim(Request.QueryString("id")))
  replycode=Request.Form("replycode")

if id="" or (not isnumeric(id)) then
  errinfo="<li>错误的id编号！"
  call error()
end if

pagename="查看回复"
call pageinfo()

  sql="Select * from topic where id="&id
  set rs=server.CreateObject("adodb.recordset")
  rs.open sql,conn,1,3

if rs.eof and rs.bof then
  errinfo="<li>该留言不存在。"
else
  if rs("replycode")="" or (not rs("reply")=1) then
    errinfo="<li>该留言没有被回复。"
  end if
end if
call error()

if replycode="" then
  Response.Write ""
else
  if replycode=rs("replycode") then
  %>
  <table align="center" cellpadding="7" cellspacing="1" class="table1" width="95%" style="border-collapse: collapse table-layout:fixed;word-break:break-all">
    <tr>
      <td width="100%" class="tablebody3">
        <B>您的留言：</B><br>
        <FONT face="Verdana" SIZE="1" COLOR="#434259"><%=rs("usertime")%></FONT>
      </td>
    </tr>
    <tr>
      <td width="100%" class="tablebody1">
        标题：<b><%=htmlencode(rs("usertitle"))%></b>
        <p><%=ubbcode(rs("usercontent"))%></p><p>
      </td>
    </tr>
    <tr>
      <td width="100%" class="tablebody3"  style="color: <%=maincolor%>">
        <B>管理员的回复：</B><br>
        <FONT SIZE="1" face="Verdana"><%=rs("retime")%></FONT>
      </td>
    </tr>
    <tr>
      <td width="80%" class="tablebody1" valign="top">
        <%=ubbcode(rs("recontent"))%><p>
      </td>
    </tr>
    <tr>
      <td valign="middle" align="center" class="tablebody3" height="21">
        <a href='javascript:window.close()'>关闭窗口</a>
      </td>
    </tr>
  </table>
  <%
  else
  %>
  <p align=center><img border="0" src="images/error.gif"></p>
  <p>
  <table cellpadding=6 cellspacing=1 align=center class=table1 width='550'>
    <tr>
      <td width='100%' class=tablebody3><B><FONT COLOR="red">您输入的回复查看码不正确，请重新输入：</FONT></B></td>
    </tr>
    <form action="Viewreply.asp?id=<%=id%>" method="POST" name="replyform">
    <tr>
      <td width='100%' height='100' align=center class=tablebody1>
        回复查看码：<input name="replycode" type="password" size="15" maxlength="100">&nbsp;
        <input type="submit" name="submit" value="查看回复">
      </td>
    </tr>
    </form>
    <tr>
      <td width='100%' align=center class=tablebody3><a href='javascript:window.close()'>关闭窗口</a></td>
    </tr>
  </table>
  </p>
<%
  end if
end if
%>