reply.asp

旋木留言本 v1.51 主要功能： UBB代码支持

<% Option Explicit %>
<%response.buffer=true%>

<!--#include file="Inc_common.asp"-->
<!--#include file="Ubb.asp"-->
<%
'**************************************
'**    Reply.asp
'**
'** 文件说明：回复留言页面
'** 修改日期：2004-9-22
'** 作者：Howlion
'** Email：[e-mail]
'**************************************
pagename="回复留言"
call pageinfo()
dim id
id=request("id")
select case request("act")
case "reply"
call update()
case else
call main()
end select

sub main()
if not session("login")="true" then
response.write " 错 误 ! !<br><br>您没有登陆或者已经退出登陆，不能进入该页。"
exit sub
else

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

if rs.eof and rs.bof then
response.write " 错 误 ! !<br><br>该留言不存在。"
exit sub
end if
%>
<script src="ubb.js"></script>
<form action="?act=reply" 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">
<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><br>-------------------------------<br><%=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("recontent")%></textarea><br>
<br>点击表情符号可以将其加入正文（正文内容不能大于300字符）。<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">提示：回复留言将会同时使其通过审核</td>
</tr>
<tr>
<td valign="middle" align="center" class="tablebody1" height="21"><b><input type="Submit" value="提 交" name="Submit">&nbsp;&nbsp;<input type="reset" name="Submit2" value="清 除"> </b></td>
</tr>
</table>
</div>
</form>
<%
conn.close
set rs=nothing
end if
end sub

sub update()
if not session("login")="true" then
response.write " 错 误 ! !<br><br>您没有登陆或者已经退出登陆，不能进入该页。"
exit sub
else

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

if recontent="" then
errinfo="请输入回复内容。"
error(errinfo)
exit sub
end if

sql="update topic set checked='1' where id="&id
conn.execute(sql)

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.update
rs.close
%>
<script>self.opener.location.reload();</script>
<script>self.close();</script>
<%
end if
end sub
%>