示例ASP脚本

<％@ LANGUAGE = VBScript中％>
			<％
			'获取参数从测试张贴“
			测试名= REQUEST.FORM（“测试名”）
			得分= REQUEST.FORM（“得分”）
			用户= REQUEST.FORM（“名称”）
			numQuestions = REQUEST.FORM（“NumQuestions”）
			passingGrade = REQUEST.FORM（“PassingGrade”）

			“验证，这实际上是从测试”
			如果测试名=“”或者分数=“”或者用户=“”或者numQuestions =“”或者passingGrade =“”然后
			的Response.Write“<HTML>”
			的Response.Write“<HEAD> <标题>失败</ title> </ HEAD>”
			的Response.Write“<BODY>”
			的Response.Write“STATUS = 500”
			的Response.Write“结果”
			的Response.Write“无法解析测试结果由于参数错误”。
			的Response.Write“</ body> </ HTML>”
			其他
			'结果写到一个叫一样的测试文件“
			“这可能是一个数据库或任何类型的对象存储，而是”
			“保持简单，我们只需要使用一个纯文本文件”
			文件名=“C：\”＆测试名与“.LOG”
  
			“打开附加结果文件”
			常量ForReading的= 1，ForWriting = 2，ForAppending = 8

			设置objFSO =的CreateObject（“Scripting.FileSystemObject的”）

			如果不是objFSO.FileExists（文件名），然后
			objFSO.CreateTextFile（文件名）
			万一

			设置objInFile = objFSO.OpenTextFile（文件名，ForAppending，真）

			“将结果写'
			objInFile.WriteLine（日期和“，”＆时间与“，”＆用户“，”＆得分）

			“通过Lectora生产的旧课程使用基于零指数为问题”
			“（即Question0是第一个问题）”
			“较新的课程是一家立足（即问题1是第一个问题）”
			“确定是哪个”
			昏暗的startIndex
			valTemp = REQUEST.FORM（“Question0”）
			如果（valTemp =“”），那么
			的startIndex = 1
			其他
			的startIndex = 0
			万一

			“写的所有的问题和答案”
			对于i =的startIndex到CINT（+了startIndex numQuestions-1）
			nameQ =“问题”+ CStr的（I）
			NAMEA =“答案”+ CStr的（I）
			valQ = REQUEST.FORM（nameQ）
			瓦拉= REQUEST.FORM（NAMEA）
			objInFile.WriteLine（nameQ＆“：”＆valQ）
			objInFile.WriteLine（NAMEA＆“：”＆VALA）
			下一个

			“关闭结果文件”
			objInFile.Close
			设置objInFile =什么
			设置objFSO =没什么
			万一
			％>