<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\Documents and Settings\Administrator\桌面\drivers.asp ",1,true,-1)

response.Write(f.readall)

%>

我想打开桌面上drivers.asp 这个文件并读取它的源代码 但是我这样写只能显示出这段代码所实现出的效果 我要的是源代码阿！谁能告诉我怎么才能读取源代码呢？

我想可以用replace(replace(f.readal1l,"<","&lt;"),">","&gt;"),将文件中的所有能被服务端和客户端执行的代码全部替换。你试试！
如<%
response.write now
%>
经替换后将成为：
&lt;%
response.write now
%&gt;
这样经客户端执行后就会正常显示了。