ASP Examples

* Basic examples - simple asp form

Simple ASP form - Submitting html form and inerting into a SQL database

<%
name = Request.Form("name")
course = Request.Form("course")
semester = Request.Form("semester")
year = Request.Form("year")
%>

<%
set conn = Server.CreateObject("ADODB.Connection")
conn.connectionstring = "DRIVER={SQL SERVER};SERVER=localhost;UID=Username;PWD=Password;DATABASE=Student_Info;"
conn.open
sql = "INSERT INTO student (name,course,semester,year) values (" & name &",'" & course &"','" & semester &"','" & year &"')"
conn.execute(sql)
conn.close
%>

HTML Code:

<form action="simpleform.asp" method="POST">
Name : <input name="Address" type="text" size="35"><br>
Course : <input name="Regarding" type="text" size="35"><br>
Semester : <input name="Regarding" type="text" size="35"><br>
Year : <input name="Regarding" type="text" size="35"><br>
<input type="submit" name="Submit" value="Submit">
<input type="reset" name="Reset" value="Reset">
</form>

* Intermediate examples - Encrypting strings

Encrypting Strings - Form that encrypts and decrypts strings

<%
Private Function Encrypt(ByVal string)
Dim x, i, temp
For i = 1 To Len( string )
x = Mid( string, i, 1 )
temp = temp & Chr( Asc( x ) + 1 )
Next
temp = StrReverse( temp )
Encrypt = temp
End Function

Private Function Decrypt(ByVal encryptedstr)
Dim x, i, temp
encryptedstr = StrReverse( encryptedstr )
For i = 1 To Len( encryptedstr )
x = Mid( encryptedstr, i, 1 )
temp = temp & Chr( Asc( x ) - 1 )
Next
Decrypt = temp
End Function

testing = Encrypt("AnyString")
result = Decrypt(testing)

Response.Write testing
Response.Write "<br>" & result
%>

* Advanced examples - Restarting Windows Service remotely

Restart Windows Service - Restarting a windows service remotely using a form

<%
Dim Computer
Dim ComputerName
Dim adsPath
Dim dso
Dim Service
Dim TargetService

TargetService = "NameofService"

username = "username"
password = "password"

ComputerName = "thecomputername"
adsPath = "WinNT://" & ComputerName & ",computer"
Set dso = GetObject("WinNT:")
Set Computer = dso.OpenDSObject(adsPath, username, password, 1)
Set Service = Computer.GetObject("service", TargetService)

If Service.Status = 4 Then
Service.Stop
Service.Start
Response.Write "<br>The " & Service.Name & " service has been restarted."
Else
If Service.Status = 1 then
Service.Start
Response.Write "<br>The " & Service.Name & " service has been restarted."
Else
Response.Write "<br>The " & Service.Name & " service could not be stopped."
End If
End If
%>

Note: user must have admin rights to the server