注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

汇总技巧

你快乐我快乐.... 汇集各类技巧,传播技巧,让我们共同熟练运用技巧..

 
 
 

日志

 
 

可以查看源代码的ASP程序  

2011-06-07 13:34:27|  分类: ◆ASP技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
 

BASP 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 eac
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:\Webs\asp101
\www\samples\"  strASPFileName)
Response.Write "PRE"  vbCRL
' 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 I
' 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 I
End I
Next
' Output out processed line
Response.Write strTemp  vbCRL
End I
Loop
Response.Write "/PRE"  vbCRL
' 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 I
%

  评论这张
 
阅读(75)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017