<!--#include file = "Startup.asp"-->
<!-- #include file="Function.asp" -->
<%
call adminer()
Call Header()
Call ComeUrl()
%>
<%
Dim id
id=trim(request("id"))
If IsNumeric(id) = False Then
	GoError "请通过页面上的链接进行操作，不要试图破坏此演示系统。"
End If
%>
<%
dim todo
todo=trim(request("todo"))
if todo="pass" then
%>
<%
sSql="update GuestBook set ispass=true where id=" & id
oRs.open sSql,oConn,1,3
response.write "<p align=center>留言<b>通过审核</b>，3秒后自动返回留言管理页！<script>window.setTimeout(""location.href='guestbook.asp'"",3000);</script></p>"
%>
<%
Else
sSql="update GuestBook set ispass=false where id=" & id
oRs.open sSql,oConn,1,3
response.write "<p align=center>留言<b>拒绝通过</b>，3秒后自动返回留言管理页！<script>window.setTimeout(""location.href='guestbook.asp'"",3000);</script></p>"
End If
%>