www.gusucode.com > 运动用品商城网站系统源代码程序 > IncAsp/all_com.asp
<% host=lcase(request.servervariables("HTTP_HOST")) function comadd(hw_id) chkid hw_id set rs=server.createobject("adodb.recordset") rs.open "select sort_id from venshop_hw where hw_id="&hw_id&"",conn,1,1 if rs.eof then showerr "e" else sort_id=rs("sort_id") end if rs.close set rs=nothing if Request.Cookies("venshop")("com")="" then Response.Cookies("venshop")("com")=hw_id Response.Write "<script language=javascript>window.location.href='"&Request.ServerVariables("Http_Referer")&"';</script>" response.End elseif Request.Cookies("venshop")("com")<>"" then comid=split(request.Cookies("venshop")("com"),"/") for i=0 to ubound(comid) baksort=comid(i) if hw_id=comid(i) then showerr "e1" else set rs=server.createobject("adodb.recordset") rs.open "select sort_id from venshop_hw where hw_id="&baksort&"",conn,1,1 if rs.eof then response.write "<script language=javascript>alert('Error');history.go(-1);</script>" response.End else sort=rs("sort_id") end if rs.close set rs=nothing if sort<>sort_id then showerr "e2" end if end if next Response.Cookies("venshop")("com")=Request.Cookies("venshop")("com")&"/"&hw_id Response.Write "<script language=javascript>window.location.href='"&Request.ServerVariables("Http_Referer")&"';</script>" response.End end if end function function comdel(hw_id) chkid hw_id comid=split(Request.Cookies("venshop")("com"),"/") for i=0 to ubound(comid) if hw_id<>comid(i) then if com="" then com=comid(i) else com=com&"/"&comid(i) end if end if next Response.Cookies("venshop")("com")=com Response.Write"<script language=javascript>window.location.href='"&Request.ServerVariables("Http_Referer")&"';</script>" end function function comdelall Response.Cookies("venshop")("com")="" Response.Write"<script language=javascript>window.location.href='"&Request.ServerVariables("Http_Referer")&"';</script>" end function %>