script ASP Sample

<% @ Language = VBScript%>
			<%
			«Obtenir les paramètres affichés à partir du test '
			testname = Request.Form ( "TestName")
			Score = Request.Form ( "Score")
			user = Request.Form ( "name")
			numQuestions = Request.Form ( "NumQuestions")
			passingGrade = Request.Form ( "PassingGrade")

			«Valider que ce soit réellement à partir d'un test '
			si testname = "" Ou score = "" Ou user = "" Ou numQuestions = "" Ou passingGrade = "", puis
			Response.Write "<html>"
			Response.Write "<head> <title> Défaut </ title> </ head>"
			Response.Write "<body>"
			Response.Write "STATUS = 500"
			Response.Write "<br>"
			Response.Write "n'a pas pu analyser les résultats des tests en raison d'une erreur de paramètre."
			Response.Write "</ body> </ html>"
			autre
			'Ecrire les résultats dans un fichier portant le même nom que le test'
			"Cela pourrait être une base de données ou tout type de magasin d'objets, mais '
			«Garder les choses simples, nous allons simplement utiliser un fichier texte '
			fileName = "c: \" & testname & ".log"
  
			'Ouvrez le fichier de résultats pour append'
			Const ForReading = 1, ForWriting = 2, ForAppending = 8

			Set objFSO = CreateObject ( "Scripting.FileSystemObject")

			sinon objFSO.FileExists (filename) puis
			objFSO.CreateTextFile (fileName)
			fin si

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

			'Ecrivez les résultats'
			objInFile.WriteLine (Date & "," & Time & "," & user & "," & score)

			«Cours âgées produits par Lectora utilisés un indice de zéro pour des questions '
			»(C.-à-Question0 est la première question) '
			'Cours les plus récents sont une base (ie Question1 est la première question)'
			«Déterminer lequel il est '
			Dim startIndex
			valTemp = Request.Form ( "Question0")
			if (valTemp = ""), puis
			startIndex = 1
			autre
			startIndex = 0
			fin si

			'Ecrivez toutes les questions et réponses'
			pour i = startIndex à Cint (startIndex + numQuestions-1)
			nameQ = "Question" + CStr (i)
			nomA = "Réponse" + CStr (i)
			valQ = Request.Form (nameQ)
			Vala = Request.Form (nomA)
			objInFile.WriteLine (nameQ & ":" & valQ)
			objInFile.WriteLine (nomA & ":" & Vala)
			Prochain

			'Fichier Fermer les résultats'
			objInFile.Close
			Réglez objInFile = Nothing
			Réglez objFSO = Nothing
			fin si
			%>