luntandel.asp

可以做论坛

<%@ Language=VBScript %> 
<% Response.Buffer = True %>
<!--#include file="conn.asp"-->
<!--#include file="user.asp"-->
<%
'Response.Write ""&zhiwu&""
del=request("del")
if  uzhiwu<>100 then '是否正常登陆 
Response.Write "目前您不是以管理员身份登陆请<a href=index.asp>返回首页</a>"
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&"/ 文件夹<br><a href=./ target=_self>回首页</a>"
end if
end if
end if
%>