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

<%
 
 action=Replace_Text(request("action"))
  id=Replace_Text(request("id"))
 gsid=request("gsid")
set rs=server.createobject("adodb.recordset")
sql="update Websen_productshow set flag=1 where ID="&ID
rs.open sql,conn,1,3

Set RsPro=Server.CreateObject("Adodb.Recordset")
	RsPro.open ("select * From Websen_productshow Where id="&id&""),conn,1,3
	If Not RsPro.Eof Then 
		id1=RsPro("id")
		id2=RsPro("id")
	%>
			<iframe src="../../manage/makehtml/productshow/makedetail.asp?all=update&id1=<%=id1%>&id2=<%=id2%>&schtml=开始生成>>" frameborder="0" scrolling="yes" height="0" widht="0"></iframe>
			
	<%End if

	RsPro.Close
	Set RsPro=Nothing
	set rsb=server.CreateObject("adodb.recordset")
	sqlc="select  * from  Websen_worldec_config "
     rsb.open sqlc,conn,1,1     
    cpmark=rsb("cpmark")
	rsb.close
	set rsb=nothing
	set rsc=server.CreateObject("adodb.recordset")
	sqlc="select  * from  Websen_corporation where ID="&gsid   
     rsc.open sqlc,conn,1,3     
	rsc("mark")=rsc("mark")+cpmark
	rsc.update
    rsc.close
	set rsc=nothing
conn.close
Response.write"<script>location.href='admin_check.asp?action="&action&"&keywords="&keywords&"&type="&request("type")&"'</script>"

%>