Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

¹ØÓÚASP.net(vb)²¥·Å¼à¿ØÂ¼ÏñµÄÎÊÌâ

ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ

²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.

ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......

VBÄÚÈçºÎʹÓÃÔ¤±àÒë²ÎÊý

É¢¼¼Êõ·Ö»¹ÕæÂé·³ - -
ÈçÌ⣬VBÄÚÈçºÎʹÓÃÔ¤±àÒë²ÎÊý¡£
ÕâÊǽӵÄÉÏÒ»Ìù°É

#If Ìõ¼þ1 Then 
  Óï¾ä1     
#ElseIf Ìõ¼þ2 Then 
  Óï¾ä2
#Else  ......

VBÒì»òÎÊÌâ

ÈçÌ⣬ÎÒ´úÂëÈçÏÂ
Dim a As Long
Dim b As Long
a = &H5
b = &H31
List1.AddItem a Xor b
Êä³ö½á¹ûΪ52
¿ÉÊÇÕýÈ·½á¹ûӦΪ34£¬ÎÒÊÇÄǸöµØ·½³ö´íÁËÄØ£¿Çë´óÏÀ°ïæ

List1.AddItem hex( ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ