<!--#include file="conn.asp"-->
<%
	'检查用户访问的权限
	call checkuser(5)

	'封杀用户
	strSQL="Select m_name From member Where m_lock=1"
	Set rs=Server.CreateObject("ADODB.RecordSet")
	rs.open strSQL,conn,1,1
	Set fs = Server.CreateObject( Const_ScriptFileSystem )
	for i=1 to rs.recordcount
		strm_Name=Trim(rs("m_name"))
		if fs.FolderExists(Server.MapPath( "Home/" & strm_Name)) then
			fs.CopyFile Server.MapPath( "Home/close.asp"),Server.MapPath( "Home/" & strm_Name & "/conn.asp"),true
		end if
		response.write strm_Name & "is Locked!<br>"
		rs.movenext
	Next
	rs.close
%>
