checkkey.asp

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

 <%
if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>" 
response.end
end if
%>
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/filesystem.asp"-->
<!--#include file="../../inc/safe.asp"-->
 
<%
keyid=Replace_Text(request("keyid"))
gsid=Replace_Text(request("gsid"))
action=Replace_Text(request("action"))
if keyid="" then 
  response.Write("<script>alert('对不起!参数传递错误!');history.back(-1);</script>")
 response.End()
end if
set rsc=server.CreateObject("adodb.recordset")
sqlc="select * from yixiang_config_price"
rsc.open sqlc,conn,1,1
if not rsc.eof then 
if rsc("isopen")=1 then 
  response.Write("<script>alert('对不起!当前正在竞价阶段，无效的审核操作!');history.back(-1);</script>")
  response.End()
 else
 
 if action="1" then
 conn.execute "update yixiang_temp_price set ispay=1 where id="&keyid
 elseif action="0" then
 
 conn.execute "update yixiang_temp_price set ispay=0 where id="&keyid
 end if
 response.Redirect(request.ServerVariables("HTTP_REFERER"))
end if
rsc.close
end if

%>