ASP實現(xiàn)查看ASP文件源碼的函數(shù)代碼分享

2011/6/24 15:40:17 出處：本站人氣：19次字號：小中大

騎自行車的正確

在校大學生該如

微信朋友圈怎么

每日一囧

下面跟大家分享的是關于ASP程序?qū)崿F(xiàn)查看asp文件源碼的函數(shù)代碼，希望能夠給大家?guī)韼椭騿l(fā)。

<%
SUB PrintLine (ByVal strLine)
   strLine=server.HTMLEncode(strLine)
   strLine=replace(strLine,"<%","<FONT COLOR=#ff0000><%")
   strLine=replace(strLine,"%>","%></FONT>")
   strLine=replace(strLine,"<SCRIPT","<FONT COLOR=#0000ff><SCRIPT",1,-1,1)
   strLine=replace(strLine,"</SCRIPT>","</SCRIPT></FONT>",1,-1,1)
   strLine=replace(strLine,"","--></FONT>",1,-1,1)
   Response.Write strLine
END SUB
Function ShowCode(filename)
   Dim strFilename
   Dim FileObject, oInStream, strOutput
   strFilename = filename
   Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
   Set oInStream = FileObject.OpenTextFile(strFilename, 1, 0, 0 )
   While NOT oInStream.AtEndOfStream
   strOutput = oInStream.ReadLine
   Call PrintLine(strOutput)
   Response.Write("<BR>")
   Wend
end function
%>
<HTML>
<HEAD>
<TITLE>ASP源碼瀏覽器</TITLE>
</HEAD>
<BODY BGCOLOR=#FFFFFF>
<form action=viewcode.asp method=post>
請輸入ASP文件名
<input type=file name=filename>
<input type=submit value="查看源程序">
</form>
<%
on error resume next
dim file
file=request.form("filename")
response.write file & "源程序如下<hr>"
if trim(file)<> "" then
   call showcode(file)
end if
%>
</FONT>
</BODY>
</HTML>

熱門評論

文章推薦

相關資訊

本類常用軟件

ASP實現(xiàn)查看ASP文件源碼的函數(shù)代碼分享