<%@ codepage ="936" %>
  <% 
	data_path="../../" 'ACC连接数据库路径，对SQL无效
	numid="no"
	dir="no" 
 
Response.Buffer = True 
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Response.AddHeader "Pragma", "No-Cache" 
  %>
  <!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
   <!--#include file="../rolecheck.asp"-->
 <%
  action=request("action")
  id=Replace_Text(request("id"))
 m=request("m")
 set rs=server.createobject("adodb.recordset")
if m=0 then
sql="update Websen_post set flag=1 where id="&id
end if
if m=3 then
sql="update Websen_post set flag=0 where id="&id
end if
if m=1 then
sql="update Websen_post set hot=1 where id="&id
end if
if m=2 then 
sql="update Websen_post set hot=0 where id="&id
end if
rs.open sql,conn,1,3
    'set RsHTml=server.createobject("adodb.recordset")
	'SqlHTml="Select flag,hot From Websen_post Where id="&id
	'RsHtml.Open SqlHtml,Conn,1,3
    'gsid=rsHTml("username")
	'if m=0 then
	 'rsHTml("flag")=1
	 'end if
	 'if m=1 then
	 'rsHTml("hot")=1
	 'elseif m=2 then
	   'rsHTml("hot")=0 		
	   
	'end if

	'RsHtml.Close
	'Set RsHtml=nothing
	
	
	'set rsb=server.CreateObject("adodb.recordset")
	'sqlc="select  * from  Websen_worldec_config "
     'rsb.open sqlc,conn,1,1     
    'ppmark=rsb("ppmark")
	'rsb.close
	'set rsb=nothing
	'set rsc=server.CreateObject("adodb.recordset")
	'sqlc="select  * from  Websen_corporation where [user]='"&gsid&"'"   
     'rsc.open sqlc,conn,1,3     
	'rsc("mark")=rsc("mark")+ppmark
	'sd=rsc("mark")
	'rsc.update
    'rsc.close
	'set rsc=nothing
    conn.close
Response.write ("<script>location.href='postmanage.asp?action=&action&'</script>")
%>