【正确答案】＜%@ language=VBScript%＞
   ＜%
   Dim objFS, strFile, objTextStream, strLine, strHTML Set objFS=Server. CreateObject ("Scripting. FileSystemObject")
   StrFile=Server. MapPath(Request. Server Vari-ables("SCRIPT_NAME"))
   Response.Write"文件的物理路径是:"& strFile &"＜br＞"
   Set objTextStream = objFS Open TextFile (strFile,1,0)
   Response. Write"ASP源程序如下:＜br＞"
   Do While objTextStream. AtEndofStream＜＞True
   strLine= objTextStream. ReadLine
   strHTML=Server. HTMLEncode(strLine)
   Response. Write strLine &"＜br＞"& vbcrlf Loop
   objWextStream. Close
   Set objTextStream=Nothing
   Set objFS=Nothing
   %＞