shortcut.asp

商务网站,信息分类,可以搜索加上ACCESS数据库

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

<%
dim objRS,sql
dim sortid,rootid
dim tmp,sortname,comment
dim IsErr

sortid = Request.QueryString("sortid")
sortname = Request.QueryString("sortname")
comment  = Request.QueryString("comment")

IsErr = 0
if sortid = "" or Trim(sortid) = "" or Trim("sortname") = "" then
    IsErr = 1
else
    sortid = Clng(sortid)
    sql = "select * from shortcut where sortid = " & sortid
    Set objRS = objConn.Execute(sql)
    if not (objRS.EOF and objRS.BOF) then
        IsErr = 2
    else
        sql = "select top 1 thispath from pathform where (thispath like '%" & chr(44) & sortid & "')" 
        Set objRS = objConn.Execute(sql)
        tmp = objRS("thispath")
        tmp = split(tmp,chr(44))
        rootid = tmp(0)
        Set objRS = Server.CreateObject("ADODB.RecordSet")
        sql = "shortcut"
        objRS.Open sql, objConn, 3, 3
        objRS.AddNew
            objRS("rootid") = rootid
            objRS("sortid") = sortid
            objRS("sortname") = sortname
            if not (IsNull(comment) or comment = "") then objRS("description")= comment
        objRS.Update()
        objRS.Close()
    end if
    Set objRS = nothing
end if
objConn.Close()
Set objConn = nothing
if IsErr = 1 then
    Response.Write("<script language=""JavaScript"">alert(""意外参数错误！"");history.go(-1)</script>")
elseif IsErr = 2 then
    Response.Write("<script language=""JavaScript"">alert(""此类已经在首页显示！"");history.go(-1)</script>")
else
    Response.Write("<script language=""JavaScript"">alert(""首页显示成功，用户可从首页直接进入此类目！"");history.go(-1)</script>")
end if
%>