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 ×¢ÊͳÌÐò´úÂëµÄ·ûºÅÊÇ '£¬Ö»ÒªÔÚijÐгÌÐòÇ°Ãæ¼ÓÉϸ÷ûºÅ¾Í¿ÉÒÔ×¢Ê͸ÃÐгÌÐò¡£µ«Èç¹û³ÌÐò´úÂëÓï¾äºÜ¶àµÄʱºò£¬Ò»ÐÐÒ»ÐеØ×¢Ê;ͷdz£²»·½±ã¡£Æäʵ VB
±¾ÉíÌṩÁËÒ»´ÎÐÔ×¢ÊͶàÌõÓï¾äµÄ¹¦ÄÜ£ºÔÚÖ÷²Ëµ¥“ÊÓͼ”Ñ¡ÏîµÄ“¹¤¾ßÀ¸”Ï£¬Ñ¡ÖГ±à¼”£¬VB
µÄ½çÃæ»á³öÏÖÒ»ÅŹ¤¾ß°´Å¥£¬ÆäÖоÍÓÐÓà ......
ÔõôÓÃaspÅжÏÏÂÃæµÄÐÅÏ¢ÕâÀïÎÒÊÇ¿´µ½¶¯Ì¬ÍøµÄ.
FSOÎļþ¶Áд √ Jmail·¢ËÍÓʼþÖ§³Ö ×
CDONTS·¢ËÍÓʼþÖ§³ ......
http://topic.csdn.net/t/20060401/19/4656391.html
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function SetPriorityClass Lib "kernel32" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long
Const IDLE_PRIORITY_CLASS = &H40 'нø³ÌÓ¦¸ÃÓзdz£µÍµÄ ......
Õª×Ô£ºhttp://shawangkun.woku.com/article/2723424.html
×î¼òµ¥µÄÓÃÒÔÏÂÓï¾ä:
ip=request.ServerVariables("REMOTE_ADDR")
response.Write(ip)
µ«ÕâÖÖ·½·¨¶Ô´úÀí·þÎñÆ÷ÉÏÍøµÄ¾Í²»×¼ÁË,¹Ê±È½ÏÈ«ÃæµÄÊÇÓÃÏÂÃæµÄ·½·¨:
<%Private Function getIP()
Dim strIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_F ......