如何让对方在线查看我的程序代码？
时间：2010-05-13 16:34:00
<％@ 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
％>
标签：asp,代码
0
投稿猜你喜欢
asp.net上传图片保存到数据库的代码
2024-01-16 05:00:37
Python设计模式之建造者模式实例详解
2021-07-13 17:37:03
深入了解Python中Lambda函数的用法
2023-02-03 10:09:01
javascript页面上使用动态时间具体实现
2024-05-11 09:36:06
Python的内存泄漏及gc模块的使用分析
2023-09-17 18:07:30
python optparse模块使用实例
2021-02-03 22:01:36
Web内容写作：得到更好稿件的头15条规则[译]
2011-06-09 14:38:00
python实现从ftp服务器下载文件
2022-04-30 18:54:53
MYSQL初学者命令行使用指南
2024-01-15 08:46:33
python图形界面开发之wxPython树控件使用方法详解
2022-05-04 04:39:28
python调用kubernetesAPI简单使用方法
2021-05-09 23:25:21
Mysql数据库名和表名的大小写敏感性问题
2010-06-07 14:07:00
Hibernate Oracle sequence的使用技巧
2023-07-06 05:18:42
django数据库报错解决汇总:django.db.utils.OperationalError 1045,1049,2003
2024-01-28 00:19:57
MySQL定位并优化慢查询sql的详细实例
2024-01-25 20:32:16
从开发人员角度看IE8的开发新特性
2010-02-26 10:48:00
Python实现将内容转为base64编码与解码
2021-11-25 14:44:24
使用requests库制作Python爬虫
2023-08-17 21:43:23
Python操作MongoDB数据库PyMongo库使用方法
2023-03-16 00:13:14
解决Python print输出不换行没空格的问题
2021-03-21 11:05:57