<%@  language="VBSCRIPT" codepage="936" %>
<%
 data_path="../../" 'ACC连接数据库路径，对SQL无效 
  numid="no"
 dir="no"
%>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<!--#include file="../rolecheck.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
    <title></title>
    <link href="../css/style.css" rel="stylesheet" type="text/css">
</head>
<%
	fid=Replace_Text(request("rid"))
	picture=Request("picture")
	if fid="" then
	 response.Write("<script>alert('参数传递错误!');history.back(-1);</script>")
     response.End()
	end if
	
	 set rsf=server.CreateObject("adodb.recordset")
	 sqlf="select FileFlag from Websen_vipgrade where id="&fid
	 rsf.open sqlf,conn,1,3
	 if not rsf.eof then 
	 rsf("FileFlag")=picture
	 rsf.update
	 Response.Write("修改成功")
	 rsf.close
	 end if
 %>