<%@ Language=VBScript %>
<%
Set rs10= Server.CreateObject("ADODB.Recordset")
sql0="select * from admin where id=1"
rs10.open sql0,conn,1,3
admin=rs10("admin")
password=rs10("password")
user=trim(request("username"))
passwd=cstr(Request("password"))
if passwd=password and user=admin then
rs10.close
dim sql
dim rs
set rs=server.createobject("adodb.recordset")
sql="delete from enet where gbookid="&request("gbookid")
rs.open sql,conn,1,1
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "index.asp"
else
%>
...::删除留言:::...
+ + + + + + 管 理 员 删 除 留 言 + + + + + +
<% end if
%>