delshortcut.asp

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

<%Option Explicit%>
<!--#include file=adoconn.asp-->

<%
dim sql
dim sortid
dim IsErr

sortid = Request.QueryString("sortid")

IsErr = 0
if sortid = "" or Trim(sortid) = "" then
    IsErr = 1
else
    sql = "delete * from shortcut where sortid = " & sortid
    objConn.Execute(sql)
end if
objConn.Close()
Set objConn = nothing
if IsErr = 1 then
    Response.Write("<script language=""JavaScript"">alert(""意外参数错误！"");history.go(-1)</script>")
else
    Response.Write("<script language=""JavaScript"">location.replace(""admsort1.asp"")</script>")
end if
%>