delreceive.asp

来自「OA最新破解2008版 全新 破解 希望大家用着舒服」· ASP 代码 · 共 42 行

<!--#include file="../../conn/dbconn2.asp"-->
<!--#include file="../../inc/safe.asp"-->
<%
  Response.Buffer = true
  Response.ExpiresAbsolute=now()-1
  Response.Expires=0
  Response.CacheControl="no-cache"
%>
<%
if Not ChkPost then 
response.redirect ("../../login/chklogin.asp?login=4")
response.end
end if

if session("id")="" then
response.Redirect("../../login/login1.asp")
response.end
end if
%>
<%
if Chkrequest(request("id")) then
id=request("id")
else
Response.Redirect ("../../login/chklogin.asp?login=4")
end if
dim rs,sql

sql="delete from [getprice] where id="&id&""
conn.execute sql
if err.Number<>0 then
err.clear
response.write "删 除 失 败 !<br>"
else
Response.Redirect ("receivemessagelist.asp")
end if
%>
<%

conn.close
set conn=nothing
%>