vbºÍaspÈçºÎÓÃremote·ÃÎÊÔ¶³ÌÊý¾Ý¿â
·ÃÎÊÔ¶³ÌÊý¾Ý¿âµÄÇé¿öÓÐÒÔϼ¸ÖÖ£º
1£©·ÃÎÊÔ¶³ÌÊý¾Ý¿âµÄaccessÊý¾Ý¿â
2£©·ÃÎÊÔ¶³ÌmssqlÊý¾Ý¿â»òoracleµÈÆäËû¹ØÏµÊý¾Ý¿â£¬µ«ÊÇÊý¾Ý¿âͨÐŶ˿ڱ»·À»ðǽ×èµ²»òÆäËûÍøÂçÔÒòÔì³ÉÎÞ·¨Ê¹Óøö˿Ú
±¾ÎĽöÔÚwindows2000 advance server,mdac2.8ϲâÊÔͨ¹ý£¬ÆäÓàÌõ¼þ²»±£Ö¤ÄÜÕý³£ÔËÐÐ
ÔÚmdacµÄService ProvidersÖаüÀ¨Microsoft OLE DB Persistence Provider£¬Microsoft OLE DB Remoting Provider£¬µÈµÈ£¬¾Í²»Ïêϸ˵ÁË
£¬ÎÒÃǽñÌìÒªÓõ½µÄÊÇMicrosoft OLE DB Remoting Provider¡£
¿´Ò»ÏÂMS RemoteµÄ·¶Àý£º
MS Remote - Access (Jet)
¡¡¡¡i)ODBC DSN:
¡¡¡¡¡¡¡¡oConn.Open "Remote Server=http://<ServerName>;" & _ //·þÎñÆ÷ÓòÃû»òip£¬Èç¹ûÔÚ¾ÖÓòÍø¾ÍÊÇ·þÎñÆ÷Ãû×Ö
¡¡¡¡¡¡¡¡¡¡¡¡"Remote Provider=MSDASQL;" & _
¡¡¡¡¡¡¡¡¡¡¡¡"DSN=AdvWorks;" & _ //×¢Ò⣬ÕâÀïµÄodbcÊÇÖ¸·þÎñÆ÷¶ËµÄ
¡¡¡¡¡¡¡¡¡¡¡¡"Uid=admin" & _ //·ÃÎʸÃodbcÖ¸ÏòÊý¾Ý¿âµÄÓû§Ãû
¡¡¡¡¡¡¡¡¡¡¡¡"Pwd=;" //¼ûÉÏ£¬ÃÜÂë
¡¡¡¡ii)OLE DB Provider:
¡¡¡¡¡¡¡¡oConn.Open "Provider=MS Remote;" & _
¡¡¡¡¡¡¡¡¡¡¡¡"Remote Server=http://carl2;" & _
¡¡¡¡¡¡¡¡¡¡¡¡"Remote Provider=Microsoft.Jet.OLEDB.4.0;" & _
¡¡¡¡¡¡¡¡¡¡¡¡"Data Source=\somepath\mydb.mdb;", _
¡¡¡¡¡¡¡¡¡¡¡¡"admin", ""
¡¡¡¡iii)OLE DB Provider×Ô¶¨ÒåÊÂÎñ¶ÔÏó
¡¡¡¡¡¡¡¡oConn.Open "Provider=MS Remote;" & _
¡¡¡¡¡¡¡¡¡¡¡¡"Remote Server=http://carl2;&qu
Ïà¹ØÎĵµ£º
ÔÚ·þÎñÆ÷ÉÏÉú³É¶¯Ì¬ÄÚÈÝÊÇʹÓÃASP×îÖ÷ÒªµÄÔÒòÖ®Ò»£¬ËùÒÔÎÒÃÇÑ¡ÔñµÄµÚÒ»¸ö²âÊÔÏîÄ¿ÊÇÈ·¶¨°Ñ¶¯Ì¬ÄÚÈÝ·¢Ë͵½Ó¦´ðÁ÷ʹÓÃʲô·½·¨×îºÃ¡£»ù±¾µÄÑ¡ÔñÓÐÁ½ÖÖ£¨ÒÔ¼°ËüÃǵÄһЩ±ä»¯£©£ºÊ¹ÓÃÄÚǶASP±ê¼Ç£¬Ê¹ÓÃResponse.WriteÓï¾ä¡£
¡¡¡¡ Ϊ²âÊÔÕâЩ²»Í¬µÄ·½·¨£¬ÎÒÃÇ´´½¨ÁËÒ»¸ö¼òµ¥µÄASPÒ³Ãæ£¬Ò³ÃæÏȶ¨ÒåһЩ±äÁ¿È»ºó°ÑËüÃDzåÈëµ½±í¸ ......
´úÂëÈçÏÂ:
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As
Long, ByVal hWndInsertAfter As Long,& _
¡¡ ByVal X As Long, ByVal Y As
Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long & _
&n ......
1¡¢Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As
Integer)
Cancel = True
End Sub
2¡¢Private Sub
Form_Unload(Cancel As Integer)
Cancel = ......
webbrowser ²»ÄÜÊÕµ½SendMessageµÄÏûÏ¢
Ö÷ÒªÊÇÒòΪ1webbrowser µÄ¾ä±úÕÒ²»µ½¡£¾¹ýŬÁ¦ËÑË÷£¬ÖÕÓÚ½â¾öÁË¡£×ö¸ö¼Ç¼.
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function ......
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Priva ......