 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<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, "<!-- BEGIN SCRIPT -->", 1) Then ProcessString = 1 strIn = Server.HTMLEncode (objInFile.ReadLine) End If \\\' Check for end script comment If InStr(1, strIn, "<!-- END SCRIPT -->", 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, "<%", 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, "% >", 1) = I Then strTemp = strTemp & "%></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 %> 返回类别: 教程 上一教程: ASP文章系统的解决方案 下一教程: ASP直接读取修改ACCESS数据的演示实例 您可以阅读与"可以查看源代码的ASP程序"相关的教程: · 查看ASP源代码的方式 · 关于解决商务平台ASP程序的源代码泄漏设想与思索 · 将HTML源代码规范化，转变成XSL代码的ASP工具 · 虚拟web目录轻易泄露ASP源代码 (MS,缺陷) · 用ASP实现的代码批量修改程序，FSO相关 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
