asp读文本的问题
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 COLOR=#008000><!--",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
------------------------------------------------------------------------------------------------------
Set oInStream = FileObject.OpenTextFile(strFilename, 1, 0, 0 )
strLine=replace(strLine,"-->","--></FONT>",1,-1,1)
这2个括号里的数字参数是什么意思谁可以说下吗
