autobakdel.asp

聊天室源码呵呵你好用~~~~~~2.0版本

<%@ LANGUAGE=VBScript%>
<%Response.Expires=0
Server.ScriptTimeout=600
if Session("a_c_user_name")="" then
 Response.write "<b>[操作失败]</b><p>您尚未登录（或已经超时退出），不能进行此操作！"
 Response.end
end if
if Session("a_c_user_level")<10 then
 Response.Write "<b>[操作失败]</b><p>您没有删除备份包的权限！"
 Response.End
end if
id=Trim(Request.QueryString("id"))
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj = s & ":" & f & ":" & m
sj2= n & "-" & y & "-" & r & " " & sj
Set fs=CreateObject("Scripting.FileSystemObject")
bd=Server.Mappath("autobak/"&id)
if fs.FileExists(bd)=False then
 Response.Write "<br><br><br><p align='center'>备份包： <font color=#FF0000>" & id & "</font></b> 不存在，不能执行删除操作</p>"
 Response.Write "<p align='center'><a href='javascript:history.go(-1);'>返回</a></p>"
 Response.end
end if
fs.DeleteFile bd, forcef
Response.Write "<br><br><br><p align=center>已经将备份包 <font color=#FF0000>" & id & "</font> 删除！</p>"
Response.Write "<p align=center>删除时间：<font color=#FF0000>" & sj2 & "</font></p>"
Response.Write "<p align=center><a href='javascript:history.go(-1)'>返回</a></p>"%>