网络编程
位置:首页>> 网络编程>> Asp编程>> 如何让对方在线查看我的程序代码?

如何让对方在线查看我的程序代码?

  发布时间:2010-05-13 16:34:00 

标签:asp,代码

<%@ 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
%>

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com