delcool.asp

来自「商务网站,信息分类,可以搜索加上ACCESS数据库」· ASP 代码 · 共 27 行

<%Option Explicit%>

<%
dim sql
dim staid
dim referer

referer = Request.ServerVariables("HTTP_REFERER")
staid   = Request.Form("staid")

if Trim(staid) = "" then
    Response.Write("<script language=""JavaScript"">alert(""请选择要删除的站点！"");history.go(-1)</script>")
    Response.End
end if
%>
<!--#include file="functions.asp"-->
<!--#include file="CONFIG.ASP"-->
<!--#include file="adoconn.asp"-->
<%
sql = "delete * from cool where id in (" & staid & ")"
objConn.Execute(sql)

mkhtml objConn,"cool","../cool.html",MAXCOOLSHOW
objConn.Close()
Set objConn = nothing
Response.Redirect(referer)
%>