shdel.asp

asp整站系统

<%
if session("flag")="" then
response.write "<SCRIPT language=JavaScript>alert('对不起，你没有权限打开此页！');"
response.write"this.location.href='../login.asp';</SCRIPT>" 
response.end
end if
%>
<!--#include file="../../conn/addconn.asp" -->
<%
id=request("id")
if id="" then 
response.write "<SCRIPT language=JavaScript>alert('对不起，请选择项目！');"
response.write"this.location.href='admin_hy.asp';</SCRIPT>" 
else
set rs=server.CreateObject("ADODB.RecordSet")
'sql="delete * from zuixinshuixun where id in ("&id&")"
'rs.open sql,conn,1,3
rs.open "delete from hy where id in ("&id&")",conn,1,3
set rs=nothing
response.write "<SCRIPT language=JavaScript>alert('删除成功！');"
response.write"this.location.href='admin_hy.asp';</SCRIPT>" 
response.end
end if
%>