<!-- #include file="../conn.asp" -->
<!-- #include file="admin.asp" -->
<%call ling()
Call Head
%>
<%
id=request("id")
retext=request("retext")
p=request("p")

if id="" or Isnumeric(id)=false then
if saytk>1 then
  Call Error("<title>出错</title></head><body><body bgcolor="""&yanse1&"""><p>ID无效！")
else
  Call Error("<card title=""回复留言""><p>ID无效！")
  end if
end if
IF retext="" then
if saytk>1 then
  Call Error("<title>出错</title></head><body><body bgcolor="""&yanse1&"""><p>回复内容不能为空！")
else
  Call Error("<card title=""回复留言""><p>回复内容不能为空！")
  end if
end if
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from [gbook] where [ID]=" & id
rs.open rsstr,conn,1,2

rs("retext")=retext
rs("retime")=now()
rs.update

rs.close
set rs=nothing
conn.close
set conn=nothing
call saycardd("回复留言")
%>
回复成功，<br/>
----------<br/>
<a href="Admin_ly.asp?sid=<%=sid%>&amp;p=<%=p%>&amp;saytk=<%=saytk%>">[留言管理]</a><br/>
<a href="../class.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[设计中心]</a><br/>
<a href="../index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[后台管理]</a><br/><br/>
<%response.write""
call headsay()%>
