vb Á¬½ÓÊý¾Ý¿â ÎÊÌâ
VB.NET 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.Connection
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿
1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
É¢¼¼Êõ·Ö»¹ÕæÂé·³ - -
ÈçÌ⣬VBÄÚÈçºÎʹÓÃÔ¤±àÒë²ÎÊý¡£
ÕâÊǽӵÄÉÏÒ»Ìù°É
#If Ìõ¼þ1 Then
Óï¾ä1
#ElseIf Ìõ¼þ2 Then
Óï¾ä2
#Else ......
ÈçÌ⣬ÎÒ´úÂëÈçÏÂ
Dim a As Long
Dim b As Long
a = &H5
b = &H31
List1.AddItem a Xor b
Êä³ö½á¹ûΪ52
¿ÉÊÇÕýÈ·½á¹ûӦΪ34£¬ÎÒÊÇÄǸöµØ·½³ö´íÁËÄØ£¿Çë´óÏÀ°ïæ
List1.AddItem hex( ......