file >
readall-readline

read and print server side file code

自己由浏览器读取自己伺服端的档案原始码

Set fso = Server.CreateObject ("Scripting.FileSystemObject")
or
Set fso = CreateObject ("Scripting.FileSystemObject")

Set ts = fso.OpenTextFile(thePath)

.Readline 
.Readall

***** this is a file show example *******
<%
'***** this is a file show code start *******
thePath="c:\mypath\a-File.asp"
Set fso = Server.CreateObject ("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(thePath)

fileShow = ts.Readline ' only read a line

fileShow = ts.Readall 'read all file
ts.close
Set ts=nothing
Set fso=nothing

response.write "*** EZER.com code show example ***<br>"

'-------- do not show VB but only Text by <pre>-----------
response.write("<pre>" & fileShow & "</pre>")

'-------- no VB code but only Text -------
response.write Server.HTMLencode(fileShow)

'------- show VB <% %> code by <pre> ------
response.write("<pre>" & Server.HTMLencode(fileShow) & "</pre>")

'------- show VB <% %> code by <pre> ------
response.write "<pre>" & replace(fileShow,"<","& lt;") &"</pre>"

response.end

%>

若首次档案读出没字时....可能将显示出错误讯息

可在读文件中先设附注数据, 所以每个被读的檔
都有个本站资料

------ attention for often error appears  --------

Microsoft VBScript runtime error ' 800a003e ' 
Input past end of file

Ezer solutation : 

Try to add something in the text file for it to work or to show.
may because: without htmlencode or replace function 
the VB code can not be show
when nothing to show the error will appear.....

Example : to add 
***START OF FILE*** Author: Ezer ****
***END OF FILE*** 
or something remark text