pass.asp

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

<%@ 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
if instr(session("masterflag"),"18")=0 then
response.redirect "../err.asp"
response.end
end if
%>
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../inc/safe.asp"-->

<!--#include file="../../conn/conn.asp"-->
<% 

'对已经操作了指数值的进行处理(还原分数）

if Chkrequest(request("id")) then
id=request("id")
else
Response.Redirect ("/login/chklogin.asp?login=4")
end if
if Chkrequest(request("bprid")) then
bprid=request("bprid")
else
Response.Redirect ("/login/chklogin.asp?login=4")
end if
if Chkrequest(request("action")) then
action=request("action")
else
Response.Redirect ("/login/chklogin.asp?login=4")
end if
type1=request("type")
if type1="好评" then
conn.execute("update wygkcn_corporation set trust_score=trust_score-1 where id="&bprid&"")
elseif type1="批评" then
conn.execute("update wygkcn_corporation set trust_score=trust_score+1 where id="&bprid&"")
end if
conn.execute("update Yixiang_trustadv set pass=0 where id="&id&"")
conn.close
set conn=nothing
response.redirect("trust_score.asp?action="&action&"")
%>