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

<%
dim userid,action
userid=replace_text(request("userid"))
action=replace_text(request("action"))
if userid="" then 
  response.Write("<script >alert('参数传递错误！');history.back(-1);</script>")
  response.End() 
end if
if userid<>"" and action<>"" then
set rst=server.CreateObject("adodb.recordset")
sqlt="select  * from Websen_corporation where id="&userid
rst.open sqlt,conn,1,3
if not rst.eof then 
rst("Uflag")=action
rst.update
rst.close
end if
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end if




%>