script ASP de exemplo

<% @ Language = VBScript%>
			<%
			"-Se os parâmetros publicado a partir do teste '
			TestName = Request.form ( "TestName")
			Classificação = Request.form ( "Score")
			user = Request.form ( "nome")
			numQuestions = Request.Form ( "NumQuestions")
			passingGrade = Request.form ( "PassingGrade")

			'Validar que este é, na verdade, de um teste'
			se TestName = "" Ou pontuação = "" Ou user = "" Ou numQuestions = "" Ou passingGrade = "", em seguida,
			Response.Write "<html>"
			Response.Write "<head> <title> A falha </ title> </ head>"
			Response.Write "<body>"
			Response.Write "STATUS = 500"
			Response.Write "<br>"
			Response.Write "Não foi possível analisar os resultados dos testes devido a um erro de parâmetro."
			Response.Write "</ body> </ html>"
			outro
			'Escreva os resultados para um arquivo nomeado o mesmo que o teste'
			"Este poderia ser um banco de dados ou qualquer tipo de armazenamento de objeto, mas '
			"Mantê-lo simples, vamos usar apenas um arquivo de texto simples '
			fileName = "c: \" & TestName e "log"
  
			"Abra o arquivo de resultados para anexar '
			Const ForReading = 1, ForWriting = 2, 8 = ForAppending

			Definir objFSO = CreateObject ( "Scripting.FileSystemObject")

			se não objFSO.FileExists (filename), em seguida,
			objFSO.CreateTextFile (nome do arquivo)
			fim se

			Definir objInFile = objFSO.OpenTextFile (fileName, ForAppending, True)

			"Escrever os resultados '
			objInFile.WriteLine (Data & "," & Time & "," & usuário & "," & score)

			'Cursos mais antigos produzidos por Lectora utilizado um índice com base zero para as perguntas'
			'(Ie Question0 é a primeira pergunta)'
			'Cursos mais novos são um baseado (ie Question1 é a primeira pergunta)'
			'Determinar qual deles é'
			Dim startIndex
			valTemp = Request.form ( "Question0")
			Se (valTemp = ""), em seguida
			startIndex = 1
			outro
			startIndex = 0
			fim se

			"Escreva todas as perguntas e respostas '
			para i = startIndex para cint (startIndex + numQuestions-1)
			nameQ = "Pergunta" + CStr (i)
			NAMEA = "Resposta" + CStr (i)
			valQ = Request.form (nameQ)
			Vala = Request.form (NAMEA)
			objInFile.WriteLine (nameQ & ":" & valQ)
			objInFile.WriteLine (NAMEA & ":" & Vala)
			Próximo

			'File Fechar resultados'
			objInFile.Close
			Definir objInFile = Nothing
			Definir objFSO = Nothing
			fim se
			%>