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

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


Ïà¹ØÎĵµ£º

VBÔõÑùÅжϡ¢·ÀÖ¹³ÌÐòÖظ´Ö´ÐÐ

Private Sub Form_load()
    'ÅжϳÌÐòÊÇ·ñÒѾ­ÔËÐÐ
    If App.PrevInstance
Then
     MsgBox "±¾³ÌÐòÒѾ­ÔËÐУ¡", vbInformation Or vbOKOnly, "ÌáʾÐÅÏ¢"
     Unload
Me
     Exit Sub
&n ......

vb³ÌÐòÖÐwebbrowser ½ÓÊÜSendMessage µÄÏûÏ¢

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 ......

Run Asp For Xampp ÈÃxamppÖ§³Öasp

½ñÌìͬѧװÁËÒ»¸öxampp.À´Ê¹ÓÃFTPºÍMysql. µ«ÊÇËûÊÇʹÓÃASP.netÀ´½øÐÐÍøÒ³¿ª·¢µÄ,È»ºóÓÖ²»ÏëÁíÍâ×°IIS,½ÐÎÒ°ïËûŪ. ÉÏÍøGoogleÒ»ÏÂ,·¢ÏÖ¹úÍâÓÐÈË·¢¹ý½Ì³ÌÁË,²»¹ýÊÇÓ¢ÎĵÄ.ÕûÀíÁËһϺÍ×Ô¼ºÅäÖÃÍê³ÉµÄÐĵÃÖØз¢³öÀ´. Ê×ÏÈ,ÄãÒªÉÏxamppµÄ¹ÙÍøÉÏÏÂÔØ°²×°xampp,°²×°¹ý³Ì¹ÙÍøÓÐÏêϸµÄ˵Ã÷. °²×°Íê³Éºó,È·¶¨ÄãµÄxamppÄܳɹ¦Ô ......

VBʵÏÖÈ«´°ÌåÒƶ¯

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 ......

aspÖ®fso²Ù×÷´óÈ«

Õª×Ô£ºhttp://zxlh168.blog.163.com/blog/static/7778614020098168638654/
<%
’FSO×é¼þÃû³Æ
dim FSObject
FSObject="Scripting.FileSystemObject"
’=========================================================
’¡ôÊÇ·ñÖ§³Ö×é¼þ
’=============================================== ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ