<%@ codepage ="936" %>
 
<% 
	data_path="../../" 'ACC连接数据库路径，对SQL无效
	numid="61"
	dir="../err.asp" 
  %>
  <!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
     <!--#include file="../rolecheck.asp"-->
<%
 pass=Replace_Text(request("pass"))
 
 id=Replace_Text(request("id"))
 gsid=request("gsid")
 page=Replace_Text(request("page"))
 
 sql="update Websen_expo set sh=1 where id="&id 
 conn.execute(sql)
 
 
 
 set rsb=server.CreateObject("adodb.recordset")
	sqlc="select  * from  Websen_worldec_config "
     rsb.open sqlc,conn,1,1     
    sjmark=rsb("sjmark")
	rsb.close
	set rsb=nothing
	set rsc=server.CreateObject("adodb.recordset")
	sqlc="select  mark from  Websen_corporation where ID="&gsid   
     rsc.open sqlc,conn,1,3     
	rsc("mark")=rsc("mark")+sjmark
	sd=rsc("mark")
	rsc.update
    rsc.close
	set rsc=nothing
 
 
Response.write("<iframe src='../../manage/makehtml/expo/makedetail_expo.asp?all=update&id1="&id&"&id2="&id&"' width=0 height=0 ></iframe>")	
conn.close
set conn=nothing
response.Write  "<script>window.location.href='expo.asp?pass="&pass&"&page="&Page&"'</script>"%>