|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
如果你写了一个ASP的程序,希望让你的使用者看到ASP的原始代码,你可以利用FileSystemObject这个对象送出程序原始代码. <%@ 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 %> 返回类别: 教程 上一教程: @ 指令参考之二 - @ENABLESESSIONSTATE 下一教程: 加密你的ACCESS数据库 您可以阅读与"让使用者可以看到你的ASP的原代码"相关的教程: · 使用组件来保护你的ASP代码 · 使用ASP加密算法加密你的数据 · 使用ASP加密算法加密你的数据(二) · 可以查看源代码的ASP程序 · 加亮显示ASP文章原代码 |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |