¸÷λÐֵܽãÃ㬴ó¼ÒºÃ£¡±¾ÈËÕýÔÚ×öÒ»¿îС¹¤¾ß£¬¹¤×÷ÔÀíÀàËÆ²É¼¯Æ÷£¬ÐèҪʵÏÖ´óÅúÁ¿´Ó¶à¸öÍøÕ¾ÏÂÔØHTMLÒ³Ãæ¡£ÇëÎÊÔÚVBÖÐÓÃʲô·½·¨ÄÜʵÏÖ¿ìËٵĴóÅúÁ¿ÏÂÔØHTMLÒ³Ãæ£¿
±¾ÈËÊÔ¹ýWebBrowser¿Ø¼þ¡¢INET¿Ø¼þ¡¢WINSOCK¿Ø¼þ¡£ÏÂÔØ¼¸¸öÒ³ÃæµÄʱºò£¬ËÙ¶ÈûÎÊÌ⣬µ«µ±ÐèÏÂÔØÉϰٸöÒ³ÃæµÄʱºò£¬ËٶȾÍÂýµÄ¿ÉÅÂÁË¡£
Çë´Í½ ......
°ÑÒÑÓÐÊý¾Ý£¨Êý¾Ý´óÓÚ20ÐУ©µÄRS(recordset)µÄµÚ10ÐÐÊý¾ÝÓëµÚ11ÐÐÊý¾Ý×ö¼Ó·¨ºó£¬É¾³ýµÚ11ÐеÄÊý¾Ý£¬È»ºó°ÑºóÃæµÄÊý¾ÝÏòÇ°ÒÆ¡£
RSµÄ»°ÐÞ¸ÄÊý¾ÝÊÇ»á¸üÐÂÊý¾Ý¿â£¬ÏÖÔÚµÄÎÊÌâÊÇRSÀïµÄÒÑÓÐÊý¾ÝÊÇÓÃSQLÓï¾ä·ÖÀàͳ¼Æ³öÀ´µÄ£¬ÎÞ·¨¸üС£ÎÒÒ²²»ÐèÒª¸üÐÂÊý¾Ý£¬Ö»ÒªÄÜ×öµ½µÚ10ÐÐÊý¾ÝÓëµÚ11ÐÐÊý¾Ý×ö¼Ó·¨ºó£¬É¾³ýµÚ11ÐеÄÊý¾Ý£¬È»ºó°Ñºó ......
ÎÒÓÃCDO·¢ËÍÓʼþ£¬µ«ÊǺóÀ´·¢ÏÖ·¢ËÍÒ»µã¶¼²»Îȶ¨£¬×î²îµÄÇé¿öÊÇ·¢ËÍ10´ÎÖ»ÓÐ5´ÎÊdzɹ¦µÄ¡£ÇëÎÊÊÇʲôÔÒòÄØ¡£
»òÕßÊÇ»¹ÓÐʲôºÃµÄ·½·¨¿ÉÒÔ±£Ö¤·¢ËÍÓʼþ¿ÉÒÔ±£Ö¤Îȶ¨ÄØ£¿£¨²»Òª°²×°ÆäËû¿Ø¼þµÄÇé¿öÏ£¬¼´ÆäËûÓû§Ê¹ÓõÄʱºò²»ÐèÒª°²×°ÆäËû¿Ø¼þ£©
ÒÔÏÂÊÇÎҵĴúÂë
VB code:
Dim objEmail As Object
Dim strNa ......
rt
³ÌÐò¸ú×Å¿ì½Ý·½Ê½Í¼±êÅÜ£¬Õâ¸ö±È½ÏÂé·³¡£
Ê×ÏÈ£¬Í¼±êÔÚÄͼ²»È·¶¨¡£
ÏÈÔÚ×ÀÃæÉÏÕÒµ½¿ì½Ý·½Ê½µÄ×ø±ê£¬
¼ÆËã¸Ã¿ì½Ý·½Ê½ÏÂÃæµÄ¸ß¶È¹»²»¹»ÏÔʾÕû¸ö´°¿Ú£º
¹»£¬ÔÚ¸ÃλÖÃÏÔʾ´°¿Ú£»
²»¹»£¬ÔÚÆÁÄ»ÖÐÐÄÏÔʾ´°¿Ú¡£
²»¹ý·ÑÉÏÃæÄÇʶù£¬»¹²»ÈçÏÔʾ´°¿Úʱ£¬ÈçÄָܻ´µ½ÉϴιرÕǰ±£´æµÄλÖþͻָ´¸ÃλÖ㬲 ......
·Òë³Éc#£¬ÎÒ¶ÔvbʵÔÚÊDz»¶®!
VB code:
Public rsTemp As ADODB.Recordset
VB code:
If Objdata.ExecSelect(rsTemp, lcSQL, "") Then Exit Sub
If rsTemp.RecordCount > 0 Then
If Not IsNull(pArray) Then ReDim pArray(rsTemp.RecordCount - 1) As String
If Not IsNull( ......
VB code:
Set g_conn = Server.CreateObject("ADODB.Connection")
Dim ServerName As String, DBname As String, UserName As String, strPwd As String
Dim strDBPath As String
ServerName = "localhost"
DBname = "Ìâ¿â"
UserName = "sa"
s ......