作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

功能是读取发布目录下一个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

相关软件：