Asp中关于Global.asa文件的编程（－）

作者:virtualboy

功能是读取发布目录下一个ini文件信息

<object id="agobjorasession" runat="server" progid="oracleinprocserver.xorasession" scope="application">
</object>
<script language=vbscript runat=server>
const const_fl_name = "\getattributecode.ini"
const const_fl_forreading = 1
const const_db_section = "[db_connection]"sub application_onstart
on error resume next
        
  dim objfs      
  dim objts          
  dim strlinedata      
  dim flgsection      
  dim strtempdata  
        
  application("service") = ""
  application("user") = ""
  strlinedata = ""  
  strtempdata = ""
  flgsection = false

  set objfs = server.createobject ("scripting.filesystemobject")
  set objts = objfs.opentextfile(server.mappath(const_fl_name),const_fl_forreading,false)
  if err.number <> 0 then
  　　err.clear
    　set objts = nothing
  　　set objfs = nothing
  　　exit sub
  end if