reply.asp

来自「ASP编写的网站」· ASP 代码 · 共 123 行

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

if not session("login")="true" then
  errinfo="<li>您未登陆或已经退出登陆，不能进入该页。"
  call error()
end if

pagename="回复留言"
call pageinfo()

select case request("act")
  case "update"
  call update()
  case else
  call main()
end select

sub main()
dim id
  id=Request.QueryString("id")

  sql="Select id,username,usertime,usertitle,usercontent,recontent,checked from topic where id="&id
  set rs=server.CreateObject("adodb.recordset")
  rs.open sql,conn,1,3

  if rs.eof and rs.bof then
    rs.close
    set rs=nothing
    errinfo="<li>该留言不存在。"
    call error()
  end if
%>
<script src="ubb.js"></script>
<form action="?act=update" method="POST" name="frmAnnounce">
  <input type="hidden" name="id" size="12" maxlength="15" value="<%=id%>">
  <div align="center">
    <table align="center" cellpadding="5" cellspacing="1" class="table1" width="95%" style="border-collapse: collapse table-layout:fixed;word-break:break-all">
      <tr>
        <td width="100%" class="tablebody3">标题：<b><%=htmlencode(rs(3))%></b><br>
        作者：<%=htmlencode(rs(1))%><br>
        时间：<font face="Verdana" SIZE="1" COLOR="#434259"><%=rs(2)%></font>
		<hr color="#555555" align="left" width="40%" size="1">
        <%=ubbcode(rs("usercontent"))%><p></td>
      </tr>
      <tr>
        <td width="100%" align="center" class="tablebody1" height="24"><b>管理员回复</b></td>
      </tr>
      <tr>
        <td width="80%" align="center" class="tablebody2" height="160">
        <!--#include file="Inc_ubb.asp"-->
        <textarea class="smallarea" cols="60" name="usercontent" title="Ctrl+Enter提交" rows="12" onkeydown="ctlent()"><%=rs(5)%></textarea><br>
        <%
  dim ii,i
  for i=1 to 42
    if len(i)=1 then ii="0" & i else ii=i
    response.write "<img src=""images/faces/"&ii&".gif"" border=0 onclick=""insertsmilie('[face"&ii&"]')"" style=""CURSOR: hand"">&nbsp;"
    if i=17 or i=34 then response.write "<br>"
  next
%> </td>
      </tr>
      <tr>
        <td valign="middle" align="center" class="tablebody1" height="21">
        <input type="Submit" value="提 交" name="Submit">&nbsp;&nbsp;
        <input type="reset" name="Submit2" value="清 除"> </td>
      </tr>
      <%
if not rs(6)=1 then
%>
      <tr>
        <td valign="middle" align="center" class="tablebody1" height="21"><b>
        提示：如果留言被回复，将会自动通过审核!</b></td>
      </tr>
      <%
end if
%>
    </table>
  </div>
</form>
<%
  conn.close
  set rs=nothing
end sub

sub update()

  dim recontent,id
  recontent=request.Form("usercontent")
  id=request.Form("id")

  if recontent="" then
    errinfo="<li>未填写回复内容。"
    call error()
  end if

  Set rs= Server.CreateObject("ADODB.Recordset")
  sql="select * from topic where id="&id
  rs.open sql,conn,3,2
  rs.update
  rs("reply")="1"
  rs("retime")=NOW()
  rs("recontent")=recontent
  rs("checked")=1
  rs.update
  rs.close

%>
<script>self.opener.location.reload();</script>
<script>self.close();</script>
<%
end sub
%>