<!--#include file=CONN.ASP-->
<!--#include file=../config.asp-->
<!--#include file=cookies.asp-->
<%
dim flag
flag=request.cookies("foxwww")("fox")
if flag=10 then
response.Write "<script LANGUAGE='javascript'>alert('您只是后台测试员，请注意身份！');window.location='right.asp';</script>"
response.end
end if%>
<%
dim rs,sql,id,i,str2,sql1
id=request("id")
'''''''''''''''''''''
'通过FSO组件删除文件'
'''''''''''''''''''''
sql1="select cardpic from FOX_user where id="&id
set rs=conn.execute(sql1)
Server.CreateObject("Scripting.FileSystemObject").GetFile(server.mappath("../cardupfiles")&"\"&rs("cardpic")).delete

set rs=server.createobject("adodb.recordset")
sql="select cardpic from [FOX_user] where id="&id
rs.open sql,conn,1,3
rs("cardpic")=0
rs.update
response.write "<script language=JavaScript>" & chr(13) & "alert('会员认证资料清除成功！');" &"window.location='userlist.asp'" & "</script>"
%></body></html>