vb Á¬½ÓÊý¾Ý¿â ÎÊÌâ

  VB code:


Imports System.Web
Imports System.Web.SessionState


Namespace GDSDMAP




Public Class [Global]
Inherits System.Web.HttpApplication

#Region " ×é¼þÉè¼ÆÆ÷Éú³ÉµÄ´úÂë "

Public Sub New()
MyBase.New()

'¸Ãµ÷ÓÃÊÇ×é¼þÉè¼ÆÆ÷Ëù±ØÐèµÄ¡£
InitializeComponent()

'ÔÚ InitializeComponent() µ÷ÓÃÖ®ºóÌí¼ÓÈκγõʼ»¯

End Sub

'×é¼þÉè¼ÆÆ÷Ëù±ØÐèµÄ
Private components As System.ComponentModel.IContainer

'×¢Òâ: ÒÔϹý³ÌÊÇ×é¼þÉè¼ÆÆ÷Ëù±ØÐèµÄ
'¿ÉÒÔʹÓÃ×é¼þÉè¼ÆÆ÷Ð޸Ĵ˹ý³Ì¡£
'²»ÒªÊ¹ÓôúÂë±à¼­Æ÷ÐÞ¸ÄËü¡£
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
components = New System.ComponentModel.Container
End Sub

#End Region

Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
' ÔÚÓ¦ÓóÌÐòÆô¶¯Ê±¼¤·¢

Application.Add("dbconnstring", "driver={SQL server};server=.;uid=gdhes;pwd=gdhes1234;database=gdhes;")
Application.Add("CheckSys", "driver={SQL server};server=192.1.0.201;uid=CheckSys;pwd=sa;database=123;")

restartGConn()
End Sub

Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
' ÔڻỰÆô¶¯Ê±¼¤·¢

On Error Resume Next


Dim GConn As ADODB.Connecti