vb adodb.stream writeдÈëÍøÒ³´úÂëΪutf8±àÂëµÄÎÊÌâ
´ÓÍøÒ³Í¨¹ýinet¿Ø¼þµÄInet1.GetChunk¶ÁÈ¡Æä´úÂ룬ȻºóÏëת»»Îªºº×Ö£¬×ª»»´úÂëÈçÏÂ
Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim strRecText As String
Dim strBuffer As String
Select Case State
Case 1
StatusBar1.Panels(2) = "ÕýÔÚ²éѯÖ÷»úµÄIP"
Case 2
StatusBar1.Panels(2) = "³É¹¦ÕÒµ½Ö÷»úµÄIP"
Case 3
StatusBar1.Panels(2) = "ÕýÔÚÓÚÖ÷»úÁ´½Ó"
Case 4
StatusBar1.Panels(2) = "ÓëÖ÷»úÁ´½Ó³É¹¦"
Case 5
StatusBar1.Panels(2) = "ÕýÔÚÏòÖ÷»ú´«ËÍÃüÁî"
Case 6
StatusBar1.Panels(2) = "³É¹¦ÏòÖ÷»ú´«ËÍÃüÁî"
Case 7
StatusBar1.Panels(2) = "ÕýÔÚ½ÓÊÕÖ÷»úµÄÏìÓ¦"
Case 8
StatusBar1.Panels(2) = "³É¹¦½ÓÊÕÖ÷»úµÄÏìÓ¦"
Case 11
 
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
Private Sub DataList1_Click()
If DataList1.Text = "" Then
Lbl_EmpId = ""
Lbl_EmpName = ""
Lbl_Birth = ""
Lbl_Sex = ""
Lbl_Political_ ......
VB+Access·ÖÎöάÐÞ¹ÜÀíϵͳ£¬ÔõÑù½øÈëϵͳ´°ÌåÉÏÏÔʾµÇ½Óû§Ãû£»
Çë¸ßÊÖ°ïæ£»
Õâ¸öÒ»°ãÊÇÓû§¾¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔʾÔÚstatebarÀïµÄ°É¡£
ÒýÓÃ
Õâ¸öÒ»°ãÊÇÓû§¾¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔÊ ......
ÓÉÓÚÿÔ´ӱðµÄ¹«Ë¾ËÍÀ´Ò»¸ötxtÎļþ£¬¸ñʽÈçÏ£º
0023939608011»Æ¸ùÑø & ......
ÓÃʲô£¿
VB×Ô¼ººÃÏñÓлͼº¯Êý°É,ÁíÍâVBÒ²ÊÇ¿ÉÒÔÓÃAPIµÄ,¶øÇҺܷ½±ã
ÒýÓÃ
VB×Ô¼ººÃÏñÓлͼº¯Êý°É,ÁíÍâVBÒ²ÊÇ¿ÉÒÔÓÃAPIµÄ,¶øÇҺܷ½±ã
ΪʲôvcûÓÐ×Ô¼ºµÄ»Í¼º¯Êý£¿
ÒýÓÃ
ÒýÓà 1 Â¥ wltg2001 µ ......