set.asp

来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 37 行

<%@ codepage ="936" %>
<%
if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>" 
response.end
end if
	'权限限制^^^^^^^^^^^^^^^^^^^^
 dim ishavegant
 ishavegant=false
 in_str=split(session("masterflag"),",")
 for each ins in in_str
 if trim(ins)="41" then 
 ishavegant=true
 end if
 next 
 if ishavegant=false then
 response.redirect "../err.asp"
 response.end
 end if
 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
%>
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
 <%
 action=replace_text(request("action"))
 id=replace_text(request("id"))
 if action="0" then 
 conn.execute "update wygkcn_productshow set zsbz='' where id="&id
 response.Redirect(request.ServerVariables("HTTP_REFERER")) 
 end if
 if action="1" then 
  conn.execute "update wygkcn_productshow set zsbz='03' where id="&id
   response.Redirect(request.ServerVariables("HTTP_REFERER")) 
  end if
 %>