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åÈëµ½±í¸ ......
Dim p(10000, 1) As Double
Dim num As Integer
Dim ptx As Single
Dim pty As Single
Dim w0, w1, w2, w3 As Single
Private Sub Command1_Click()
Dim t As Single
Dim i As Integer
Dim f0, f1, f2, f3 As Single
Picture1.DrawWidth = 3
For t = 0 To 1 St ......
Õâ¶Î´úÂëµÄ¹¦ÄÜÊÇ£º½«Ò»¸öÊý×é´òÂÒ˳Ðò£¬ÏÔʾ³öÀ´£¬ÈÃÿһ´ÎÏÔʾµÄ˳Ðò¶¼²»Ò»Ñù¡£
<%
Dim tt
tt=Split("1,2,3,4,5,6",",")
'Ëæ»úÅÅÐò
leng=UBound(tt)
randomize
for ii=0 to leng-1
b=int(rnd()*leng)
temp=tt(b)
tt(b ......
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 ......
ÔÚ±à³Ì¹ý³ÌÖУ¬¾³£ÐèÒªÒ³ÃæÖ®¼äµÄ´«Öµ£»ÌرðÊÇÖÐÎÄ´«µÝµÄʱºò£¬¾³£³öÏÖÂÒÂëÏÖÏ󣬺ÜÊÇÓôÃÆ¡£ÏÂÃæÊÇÎÒÔÚÍøÉÏÕÒµ½µÄһЩ·½·¨£¬¹©´ó¼Ò²Î¿¼¡£
1.ÉèÖÃweb.configÎļþ¡££¨Ã»ÓÐÓùý£©
<system.web>
......
<globalization requestEncoding="gb2312" responseEncoding="gb2312" culture="zh-CN" fileEncoding="gb2 ......