上面的是读文本的例子,也符合你所提的要求
下面是写文本的例子:
<%
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.txt", True)
a.WriteLine("这是一个测试。")
a.Close
%>
下面判断的程序执行成功了!
<%
set myFileObj=createObject("Scripting.FileSystemObject")
sfile=server.mappath("password.txt")
set myF=myFileObj.OpenTextFile(sfile)
snetpwd=""
snetpwd1=myf.readline
while (snetpwd1<>"<!--example-->") and (myf.AtEndOfStream <> True)
SNetPWD=SNetPWD&snetpwd1
snetpwd1=myf.readline
wend
%>
<%=snetpwd%>