如何用fso读取指定文件的内容.

[hxhx520]

我用一个文件myini.ini其中包括以下内容:
[SET]
MIAO=100
URL=http://www.sina.com.cn
cs=0

我想用asp调用myini.ini文件,然后判断cs的值,这里cs的值为0或1,请问用asp的fso要如何编这个程序.请教高手解答

[Jaron]

<%
response.write getfulltext(server.mappth("myini.ini")) '显示ini的内容

Public Function getfulltext(ByVal full_filename)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(full_filename) Then
Set objCountFile = objFSO.OpenTextFile(full_filename, 1, True)
If Not objCountFile.AtEndOfStream Then getfulltext = objCountFile.ReadAll
Set objCountFile = Nothing
Else
getfulltext = "ERROR"
End If
Set objFSO = Nothing
End Function

'方法二
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
Set tsObject = fsoObject.OpenTextFile(Server.MapPath("myini.ini"))

Do While tsObject.AtEndOfStream <> True
line=tsObject.readline
response.write line '分析line.内容
Loop

set tsObject=nothing
Set fsoObject = Nothing
%>

[N1rvana]

<%@language=VBScript%>
<%
dim fso, f, r,i
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.MapPath("myini.ini"), 1)
for i=1 to 4 '因为你的文件是在第四行，所以就读到4了
r = f.ReadLine()
next
Response.Write(r)
Response.End()
%>

[N1rvana]

读出来以后的判断你可以自己做到的。