del.asp

物流管理系统,可以用于中小企业,建立自己的内部物流管理.

<%@ codepage ="936" %>
<%
if instr(session("flag_fyadmin"),"01")=0 then
response.write "<SCRIPT language=JavaScript>alert('对不起，你没有权限打开此页！');"
response.write"this.location.href='../login.asp';</SCRIPT>" 
response.end
end if
%><!--#include file="../../inc/config.asp"-->
<!--#include file="../../conn/dbconn2.asp" -->
<%
dim sql,rs,Id,gid
Id=request.querystring("id")
gid=request.querystring("gid")
if request.querystring("id") then
set rs=server.createobject("adodb.recordset")
sql="delete from guestbook where id="&Id
rs.open sql,conn,1,1
rs.close
set rs=nothing
conn.close
set conn=nothing
response.Redirect"khbook.asp"
else
set rs=server.createobject("adodb.recordset")
sql="delete from hfbook where id="&gid
rs.open sql,conn,1,1
rs.close
set rs=nothing
conn.close
set conn=nothing
response.Redirect"khbook.asp"
end if 
%>