<%@ codepage ="936" %>
 <% 
	data_path="../../" 'ACC连接数据库路径，对SQL无效
	numid="18"
	dir="../err.asp" 
  %> 
<!--#include file="../../conn/conn.asp"-->
 <!--#include file="../../inc/safe.asp"-->
 <!--#include file="../rolecheck.asp"-->

<% 
'对网胜通会员提供评论进行加减分处理

if Replace_Text(request("id")) then
id=request("id")
else
Response.Redirect ("/login/chklogin.asp?login=4")
end if
if Replace_Text(request("bprid")) then
bprid=request("bprid")
else
Response.Redirect ("/login/chklogin.asp?login=4")
end if
if Replace_Text(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 Websen_corporation set trust_score=trust_score+1 where id="&bprid
elseif type1="批评" then
conn.execute "update Websen_corporation set trust_score=trust_score-1 where id="&bprid
end if
conn.execute  "update Websen_trustadv set pass=1 where id="&id
conn.close
set conn=nothing
response.redirect("trust_score.asp?action="&action&"")
%>