让使用者可以看到你的ASP的原代码

/单科班 /专业班 /提高班 /中专班 /大专班 /特色就业 /特色全能 /就业创业班 /大学生培训班 /知识天地/

信息公告：

聊城科慧苑电脑设计学校是一所专业计算机学校，本特只开设计算机专业，不设其他专业，我们要的就是专业化！专业培训才会出专业人才！质量第一，价格最合理，不含一点水份是科慧苑电脑学校永远的特色！特大喜讯：一、为了能让更多的学生步入大学殿堂，享受高等教育，拿大专毕业证、提高就业层次，我校开设了大专、本科班、函授、业余、脱产各种学习形式，毕业后颁发全国承认的大专（本科）学历证书，可参加公务员考试，可在网上查询，正在热报中！二、科慧苑特色就业班、特色全能班、中专班、专业班、正在热招中，欢迎广大学员来校学习。三、招聘：专业平面设计师3名（大专以上学历）；装饰装璜设计师2名（大专以上学历）；板卡级芯片级硬件维修师3名（大专以上学历）；实习老师8名（计算机专业，大专以上学历）

首页

让使用者可以看到你的ASP的原代码

阅读：时间： 2005-12-17 9:44:11 编辑： admin

假如你写了一个ASP的程序,希望让你的使用者看到ASP的原始代码,你可以利用FileSystemObject这个对象送出程序原始代码.
<%@ Language=VBScript %>
<%Option Explicit %>
<%
Dim strURL
strURL = Request.QueryString("URL")

Dim strDir, strFileName
strDir = Request.ServerVariables("APPL_PHYSICAL_PATH")

Response.Write strDir

strFileName = Replace(strURL,"/","\")
strFileName = strDir & strFileName

Const ForReading = 1
Dim objFSO, objTextStream
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile(strFileName, ForReading)

Response.Write "<HTML><BODY>"
Response.Write "<XMP>" & objTextStream.ReadAll & "</XMP>"
Response.Write "</BODY></HTML>"

objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing

%>

聊城计算机学校——科慧苑电脑设计学校欢迎您的到来！