On Error Resume Next
ini_file="用ASP读取的配置文件(ini)"
set objFileSys=server.createObject("Scripting.FileSystemObject")
If not objFileSys.FileExists(ini_file) then
On Error Goto 0
set objFileSys=Nothing
Response.Write "The ini file - "&ini_file&" is not exist!"
Response.End
Else
set objReadTextFile=objFileSys.openTextFile(ini_file,1,1,0)
If Err.number<>0 then
Err.Clear
On Error Goto 0
Response.Write "Error in reading ini file - "&ini_file
response.end
End if
thetext=objReadTextFile.readall
end if
objReadTextFile.close
set objReadTextFile=Nothing
set objFileSys=Nothing
On Error Goto 0