dim fs, file
path= "test.ini" '你要读取的INI文件的名字和路径
set fs = CreateObject("Scripting.FileSystemObject")
if not fs.FileExists(path) then
Response.Write "<b>文件" & filename & "不存在,您读取什么!</b><br>" & vbCrLf
' 如果文件不存在则显示一个错误信息
else
set file = fs.OpenTextFile(path, ForReading)
Response.Write "恭喜," & filename & "读取成功!" & vbCrLf
' 否则打开它并显示内容
Response.Write "<p>" & vbCrLf
Response.Write "<hr size=1>" & vbCrLf
Response.Write "</td></tr>"
Response.Write "<tr><td>"
Response.Write "<font size=3><pre>" & vbCrLf
do while not file.AtEndOfStream
Response.Write file.ReadLine & vbCrLf
loop
Response.Write "</pre></font>" & vbCrLf
Response.Write "</td></tr>"
Response.Write "<tr><td>"
Response.Write "<hr size=1>" & vbCrLf
file.Close()
end if