Beispiel ASP-Skript

<% @ Language = VBScript%>
			<%
			"Lassen Sie die Parameter aus dem Test geschrieben '
			Testname = Request.Form ( "Testname")
			score = Request.Form ( "Score")
			user = Request.Form ( "name")
			numQuestions = Request.Form ( "NumQuestions")
			passingGrade = Request.Form ( "PassingGrade")

			"Überprüfen Sie, dass dies tatsächlich von einem Test '
			wenn testname = "" Oder score = "" Oder user = "" Oder numQuestions = "" Oder passingGrade = "" dann
			Response.Write "<html>"
			Response.Write "<head> <title> Failure </ title> </ head>"
			Response.Write "<body>"
			Response.Write "STATUS = 500"
			Response.Write "<br>"
			Response.Write "Es konnte keine Testergebnisse aufgrund eines Parameterfehler analysieren."
			Response.Write "</ body> </ html>"
			sonst
			"Schreiben Sie die Ergebnisse in eine Datei, die die gleiche wie der Test namens '
			"Dies könnte eine Datenbank oder jede Art von Objekt-Speicher sein, aber '
			', Um es einfach zu halten, werden wir nur eine flache Textdatei'
			filename = "c: \" & Testname & ".log"
  
			"Öffnen Sie die Ergebnisdatei für Anfügen '
			Konst ForReading = 1, ForWriting = 2, ForAppending = 8

			Set objFSO = Create ( "Scripting.FileSystemObject")

			wenn nicht objFSO.FileExists (filename), dann
			objFSO.CreateTextFile (filename)
			end if

			Set objInFile = objFSO.OpenTextFile (filename, ForAppending, True)

			'Schreiben der Ergebnisse'
			objInFile.WriteLine (Datum & "," & Time & "," & user & "," & score)

			'Ältere Kurse von Lectora benutzt, um eine Null basierender Index für die Fragen "
			"(Dh Question0 ist die erste Frage)"
			"Neuere Kurse sind eine Basis (dh Question1 ist die erste Frage)"
			"Bestimmen, welches es ist"
			Dim start
			valTemp = Request.Form ( "Question0")
			if (valTemp = "") dann
			start = 1
			sonst
			start = 0
			end if

			'Alle Fragen und Antworten schreiben'
			für i = start zu cint (start + numQuestions-1)
			nameQ = "Frage" + CStr (i)
			namea = "Antwort" + CStr (i)
			valQ = Request.Form (nameQ)
			Vala = Request.Form (NAMEA)
			objInFile.WriteLine (nameQ & ":" & valQ)
			objInFile.WriteLine (NAMEA & ":" & Vala)
			Nächster

			'Close Ergebnisdatei'
			objInFile.Close
			Set objInFile = Nothing
			Set objFSO = Nothing
			end if
			%>