<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
While Not objTs.AtEndOfStream
strLineData = objTs.ReadLine
　If Trim(strLineData) <> "" Then
If flgSection = True And Mid(strLineData,1,1) = "[" And _
　　Mid(strLineData,Len(strLineData),1) = "]" Then
　　　objTs.Close
　Set objTs = Nothing
　　　Set objFs = Nothing
　　　Exit Sub
　　End If
　　If strLineData = CONST_DB_SECTION Then
　　　flgSection = True
　　 End If

If flgSection = True Then
If Mid(strLineData,1,7) = "Service" Then
　　strTempData = Trim(Mid(strLineData,8,Len(strLineData)-7))
　　If Mid(strTempData,1,1) = "=" Then
　　　　strTempData = Trim(Mid(strTempData,2,Len(strTempData)-1))
　　　　Application.Lock
　　　　 Application("Service") = Mid(strTempData,2,Len(strTempData)-2)
　　　　Application.UnLock
　　 End If
End If
If Mid(strLineData,1,4) = "User" Then
　　strTempData = Trim(Mid(strLineData,5,Len(strLineData)-4))
　　If Mid(strTempData,1,1) = "=" Then
　　strTempData = Trim(Mid(strTempData,2,Len(strTempData)-1))
　　Application.Lock
　　Application("User") = Mid(strTempData,2,Len(strTempData)-2)
　　Application.UnLock
End If
End If
End If
End If
Wend
objTs.Close
Set objTs = Nothing
Set objFs = Nothing
End Sub
</script>

[1]

如何动态添加Form项？ 如何计算ASP页面的载入时间？

评论 (0) All