开宾馆记录多久消失 免费查开宾馆记录查询

访客3年前黑客文章855

<%@ Language=VBscript %>
<%Server.scriptTimeout=50000%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY>
<%
function JudgeParaRegular(intID)
if intID<>"" and isnumeric(intID) then
JudgeParaRegular=intId
else
Response.Write "输入错误!" 
Response.End 
end if
end function
intFileSize=JudgeParaRegular(Request.QueryString("intFileSize"))
strPath=Request.QueryString("strPath")
if instr(strPath,":")=0 then strPath=server.MapPath(strPath)
%>
<%
function deletefiles(path)
on error resume next
Set fs=Server.CreateObject("scripting.FileSystemObject")
if fs.FileExists(path) then
fs.DeleteFile path,True
response.write "成功删除"&path
else
response.write "文件不存在!"
end if
Set fs=nothing
if Err.number<>0 then Response.Write Err.number 
end function
strFile=request("strFile")
if request("strFile")<>"" then
deletefiles strFile
end if 

%>

<%
function ListFolderFiles(strPath,intFileSize,intFlag)
strOriginPath= Request.ServerVariables("script_Name")& "?strPath=" &Request.QueryString("strPath") & "&intFileSize="&Request.QueryString("intFileSize")
if strPath<>"" then
if intFlag=0 then
intFlag=intFlag+1
end if 
Set objFs=Server.CreateObject("scripting.FileSystemObject")
Set objFdir=objFs.GetFolder(strPath)
strParentPath= objFs.GetParentFolderName(strPath)
for each strSubFiles in objFdir.files
if strSubFiles.size /(1024^2)>=intFileSize then
Response.Write "<TR>" & vbcrlf
Response.Write "<TD>" & replace(strNullTran(strSubFiles),strNullTran(strSubFiles.Name),"<b>"&strNullTran(strSubFiles.Name)&"</b>") & "</TD>" & vbcrlf
Response.Write "<TD>"& strNullTran(FormatNumber(strSubFiles.size /(1024^2),2)) &" MB</TD>" & vbcrlf
Response.Write "<TD>" & strNullTran(strSubFiles.type) & "</TD>" & vbcrlf
Response.Write "<TD>" & strNullTran(strSubFiles.datelastmodified) & "</TD>" & vbcrlf
Response.Write "<TD><A HREF='"& strOriginPath & "&strFile="&strNullTran(strSubFiles)&"'><img align=ab *** iddle border=0 src='https://www.hack56.com/images/2sxkkzgf2kh.htm'></A></TD>" & vbcrlf
Response.Write "</TR>" & vbcrlf
intFlag=intFlag+strSubFiles.size
end if
next
for each strSubFolders in objFdir.SubFolders
if intFlag=0 then intFlag=1
ListFolderFiles strSubFolders,intFileSize,intFlag

相关文章

开一个甜品工作室要多少钱?这些投资费用必不可少

开一个甜品工作室要多少钱?这些投资费用必不可少

想要投资创业,选择什么项目较量好呢?许多投资者城市有这样的疑问。据观测,如今甜品市场的成长前景可以说一片光亮,因此开一个甜品事情室成了许多人的不二之选,可是各人在选择开店以前,对这个项目标投资用度还长...

渗透技术|域渗透的金之钥匙

渗透技术|域渗透的金之钥匙

  最近几年很少搞内网渗透了,这几年发展的快啊,看了A牛翻译的 ,发现趋势都是powershell脚本化了。想当年遇到的域控都是windows 2003的,找朋友要些vbscript脚本自动化,然...

挣钱小武器(挣钱软件下载应用)

挣钱小武器(挣钱软件下载应用)

我试过很多的赚钱的app,基本都是费力不讨好的,网上兼职赚钱比如学生赚,米赚,酷划锁屏,,,都是一样的 小鱼赚钱是一个全新升级的移动APP的功能强大综合服务平台,一键下载APP试玩游戏体会获得相对性...

黑客技术怎么入门(自学黑客技术入门教程)

黑客技术怎么入门(自学黑客技术入门教程)

必火网络安全学校,全栈开发网络安全技术工程师文化教育培训,为学生就业为之! 学习培训真技术性变成一名合格的白帽,必火让你详细的职业规划。 各大网站安全性培训最全方位的课程内容,700三节课程内容,想...

找黑客雇佣平台(黑客免费帮忙不收钱的)

  找黑客聘请服务平台(网络黑客完全免费帮助不收款的)大家都听闻网上赌博输了钱的事。前不久"杀猪盘"也是曝出了许多 。图片出处互联网因为我收到了许多 盆友的寻求帮助。再度声明警报解决!许多 盆友在网赌...

到哪里找专业的黑客(哪里可以找黑客帮忙)

一、到哪里找专业的黑客(哪里可以找黑客帮忙) 1、请问是在哪里找黑客的如果你是想看你朋友所有的发出评论和收到评论,那是没法直接看的。但是如果你有兴趣的话,去看她关注里哪几个你觉得可疑的互动频繁密切的...