·您的位置: 首页 » 资源教程 » 编程开发 » ASP » 可以查看源代码的ASP程序

可以查看源代码的ASP程序

类别: ASP教程  评论数:0 总得分:0
<B>ASP Source Code:</B>
<HR>
<%
Dim objFSO, objInFile \'object variables for file access
Dim strIn, strTemp \'string variables for reading and color
processing
Dim I \'standard loop control variable
Dim strASPFileName \'string containing filename of ASP file to view
Dim ProcessString \'flag determining whether or not to output each
line

\' We don\'t start showing code till we find the start script comment
ProcessString = 0

\' Get file name from query string
strASPFileName = Request.QueryString("file")

\' Conditional limiting use of this file to current directory
If InStr(1, strASPFileName, "", 1) Then strASPFileName = ""
If InStr(1, strASPFileName, "/", 1) Then strASPFileName = ""

\' Set the default so it shows itself if nothing or an invalid
\' path is passed in. Delete the following line to just display
\' a message.
If strASPFileName = "" Then strASPFileName = "source.asp"

If strASPFileName <> "" Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objInFile = objFSO.OpenTextFile("D:Websasp101
wwwsamples" & strASPFileName)

Response.Write "<PRE>" & vbCRLF
\' Loop Through Real File and Output Results to Browser
Do While Not objInFile.AtEndOfStream
strIn = Server.HTMLEncode(objInFile.ReadLine)
\' Check for start script comment
If InStr(1, strIn, "&lt;!-- BEGIN SCRIPT --&gt;",
1) Then
ProcessString = 1
strIn = Server.HTMLEncode
(objInFile.ReadLine)
End If
\' Check for end script comment
If InStr(1, strIn, "&lt;!-- END SCRIPT --&gt;", 1)
Then ProcessString = 0
\' If we\'re on a line to be processed then do so
If ProcessString = 1 Then
strTemp = ""
\' Loop through line
For I = 1 to Len(strIn)
\' First look for script openers
to start red
If InStr(I, strIn, "&lt;%", 1) =
I Then
strTemp = strTemp
& "<FONT COLOR=#FF0000>" & Mid(strIn, I, 1)
Else
\' If no script openers
look for closers to end red
If InStr(I, strIn, "%
&gt;", 1) = I Then
strTemp =
strTemp & "%&gt;</FONT>"
I = I + 4
Else
\' If neither
just copy to strTemp as is
strTemp =
strTemp & Mid(strIn, I, 1)
End If
End If
Next
\' Output out processed line
Response.Write strTemp & vbCRLF
End If
Loop
Response.Write "</PRE>" & vbCRLF

\' Close file and free variables
objInFile.Close
Set objInFile = Nothing
Set objFSO = Nothing
Else
\' If they entered no filename or one with a / or ... deny
access
Response.Write "Sorry, but you do not have access to view
files outside the current directory."
End If
%>
-= 资 源 教 程 =-
文 章 搜 索
关键词:
类型:
范围:
纯粹空间 softpure.com
Copyright © 2006-2008 暖阳制作 版权所有
QQ: 15242663 (拒绝闲聊)  Email: faisun@sina.com
 纯粹空间 - 韩国酷站|酷站欣赏|教程大全|资源下载|免费博客|美女壁纸|设计素材|技术论坛   Valid XHTML 1.0 Transitional
百度搜索 谷歌搜索 Alexa搜索 | 粤ICP备19116064号-1