<%@ codepage ="936" %>
  <% 
	data_path="../../" 'ACC连接数据库路径，对SQL无效
	numid="31"
	dir="../err.asp" 
  %>
  <!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
   <!--#include file="../rolecheck.asp"-->
 <%
  action=Replace_Text(request("action"))
  info_id=Replace_Text(request("info_id"))
  gsid=request("gsid")
 set rs=server.createobject("adodb.recordset")
sql="update Websen_Info set flag=1 where info_id="&Info_ID
rs.open sql,conn,1,3

set RsHTml=server.createobject("adodb.recordset")
	SqlHTml="Select * From Websen_Info Where info_id="&Info_ID
	RsHtml.Open SqlHtml,Conn,1,3
		
	IF NOt RsHtml.Eof then 
		id1=RsHtml("info_id")
		id2=RsHtml("info_id")
		if RsHtml("type")="卖" then 
				HtmlPath="tradeinfo"
			else
				HtmlPath="seller"
			end if
			
			
			
	
	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
conn.close
		%>
		<iframe src="../../manage/makehtml/<%=HtmlPath%>/makedetail.asp?all=update&id1=<%=Info_ID%>&id2=<%=Info_ID%>&schtml=开始生成>>" frameborder="0" scrolling="yes" height="0" widht="0"></iframe>
		<%
	End if	
		RsHtml.Close
	Set RsHtml=nothing
	Response.write"<script>location.href='index.asp?action="&action&"&keywords="&keywords&"&type="&request("type")&"'</script>"
	
%>