可以做论坛

				 
				
				
				
								'Response.Write ""&zhiwu&""
				del=request("del")
				if  uzhiwu100 then '是否正常登陆 
				Response.Write "目前您不是以管理员身份登陆请返回首页"
				else '是正常登陆
				conn.Execute("update luntan set shanzhu=1 where idl="&del)
				conn.Execute("update neirong set shanzhu=1 where idl="&del)
				
				Set fs = CreateObject("Scripting.FileSystemObject")
				jinghuau="jinghuau"
				jinghuau=""&jinghuau&"/"&del&"/"
				jinghuau=server.mappath(jinghuau)
				If fs.folderexists(jinghuau) and sdelonline=1 then
				fs.deletefolder(jinghuau)
				response.redirect "index.asp"
				else
				if not fs.folderexists(jinghuau) then
				response.redirect "index.asp"
				else
				Response.Write "你选择空间不支持在线删除，请FTP登陆手动删除：jinghuau/"&del&"/ 文件夹回首页"
				end if
				end if
				end if
				%>