<%@ 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"))
 

	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")

	End if
set rs=server.createobject("adodb.recordset")
sql="update Websen_Info set flag=1 where info_id="&Info_ID
rs.open sql,conn,1,3
	RsHtml.Close
	Set RsHtml=nothing
conn.close%>
<iframe src="../../manage/makehtml/seller/makedetail.asp?all=update&id1=<%=id1%>&id2=<%=id2%>&schtml=开始生成>>" frameborder="0" scrolling="yes" height="0" widht="0"></iframe>
<%
 Response.write"<script>location.href='admin_check.asp?action="&action&"&keywords="&keywords&"&type="&request("type")&"'</script>"
%>