<!--#include file="conn.asp"-->
<%
On Error Resume Next '遇有错误仍继续执行 
	'检查用户访问的权限
	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"))
		webFolder=Server.MapPath( "Home/" & strm_Name)
		if fs.FolderExists(webFolder) then
			fs.DeleteFolder webFolder
		end if
		
		webFolder=Server.MapPath( "Home/" & strm_Name & "_Big5")
		if fs.FolderExists(webFolder) then
			fs.DeleteFolder webFolder
		end if
		
		webFolder=Server.MapPath( "Home/" & strm_Name & "_Eng")
		if fs.FolderExists(webFolder) then
			fs.DeleteFolder webFolder
		end if
		
		webFolder=Server.MapPath( "Home/" & strm_Name & "_Kor")
		if fs.FolderExists(webFolder) then
			fs.DeleteFolder webFolder
		end if
		
		webFolder=Server.MapPath( "Home/" & strm_Name & "_Jap")
		if fs.FolderExists(webFolder) then
			fs.DeleteFolder webFolder
		end if
		
		response.write strm_Name & " had been Deleted!<br>"
		rs.movenext
	Next
	rs.close
%>
