gbook_del.asp

来自「这是一个物流网站的源代码」· ASP 代码 · 共 25 行

<!--#include file="../inc/Config.asp"-->
<%
Dim Language
delid=Request("delid")
if delid="" then 
	response.Redirect(request.servervariables("HTTN_REFERER"))
	response.End
end if
%>
<!--#include file="../inc/conn.asp"-->
<% 
sql="select * from ebook where E_id in (" & delid & ")"
set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,3
    while not rs.eof
       rs.delete
       rs.update
       rs.movenext
	wend
	rs.close
set rs=nothing
response.redirect "Gbook_Admin.asp"
%>