asp vb com×é¼þ¿ª·¢Óëµ÷ÊÔ
½ñÌìÔÚ¹«Ë¾·þÎñÆ÷ÉÏ¿´Ò»¸öÀϵôÑÀµÄasp³ÌÐò£¬·¢ÏÖ¾¹È»µ÷ÓÃÁË×Ô¶¨Òåcom×é¼þ£¬ÊÇvbдµÄ£¬·â×°ÁËÊý¾Ý¿âÁ¬½ÓÓë²Ù×÷£¬ÎĵµÉÏдÕâÑù×öÊÇΪʲôÓû§µ½·þÎñÆ÷Ò²¿´²»µ½Êý¾Ý¿âµÄÓû§ÃûÓëÃÜÂ룬Ҳ¶Ô°¡£¬Õâ¸öÊDzÆÎñµÄ·þÎñÆ÷£¬µ±È»²»ÄÜÈÃÎÒÃÇitËæ±ã¿´ÁË£¬ºÇºÇ£¡£¨itºöÓÆfinance£¬ÈÃfinanceÏàÐÅit¿´²»µ½Êý¾Ý¿âÓû§ÃûÓëÃÜÂ룬my god£©ÓÉÓÚ£¬ÎÒÃÇ·þÎñÆ÷¹ÜÀíÈËÔ±Òª·þÎñÆ÷£¬¾ö¶¨Òª"ºÍг"Õâ¸ö·þÎñÆ÷£¬Ö»Äܽ«Õâ¸ö·þÎñÆ÷ÉϵÄÓ¦ÓÃÈ«²¿ÒƵ½ÁíÒ»¸ö·þÎñÆ÷ÉÏ£¬ÓÚÊǾÍÒª¸ÄÕâ¸öcom×é¼þÒÔÖ¸¶¨ÐµÄdbÃû³Æ£¬
½«com×é¼þÔ´Âëcopyµ½±¾»úÉÏ£¬¸ÄÁ¬½Ó£¬±àÒëdll£¬ÔÙcopyµ½·þÎñÆ÷ÉÏ£¬regsvr32 ×¢²á£¬Ò»ÇÐÕý³££¬ÓÚÊǽ«Ôdb offline£¬Ò»»á¶ù¾ÍÓÐcallÎÒÁË£¬Ò³Ã汨´í£¬ÎÞ·¨·ÃÎÊ£¡´ò¿ªÒ³Ãæ¿´µ½´íÎóÐÅÏ¢ odbcûÓÐÕÒµ½Êý¾Ý¿â£¬×Ðϸһ¿´£¬»¹ÊÇÔÀ´Êý¾Ý¿â£¬ÐÄÀïÄǸö°ÎÁ¹µÄ£¬Á¢¼´google£¬Í¬Ê±½«Ôdb online
ÔÀ´µÃ½«iisÖØÆð: iisreset
ÓÖ¼ÓÒ»¸öcom×é¼þ·½·¨£¬
Public Function getData(ByVal sss As Integer) 'as Variant ²»Äܼӷµ»ØÖµÀàÐÍ
Dim dd() 'as String Ò²²»Äܼӷµ»ØÖµÀàÐÍ
Dim i As Integer
ReDim dd(sss - 1)
i = 0
Do While i < sss
dd(i) = CStr(i)
i = i + 1
Loop
getData = dd
End Function <%
dim b
b = com.getData(10)
Response.Write VarType (b) & "ssss"
Response.Write b(1)
%>
Êý×éÓë·µ»ØÖµ²»Äܶ¨ÀàÐÍ ·ñÔò VarType ·µ»Ø8200,Ìáʾ "ÀàÐͲ»Æ¥Åä" ´íÎó, Õý³£ÊÇ8204
µÚÒ»´Î±àÒ룬¹¤³ÌÊôÐÔ£²¿¼þ£°æ±¾¼æÈÝÐÔ£²»¼æÈÝ£¬ÔÙ±àÒëʱ£¬Ñ¡¹¤³Ì¼æÈÝ
ÔÚcom×é¼þÖØ±àÒëʱ£¬Òª½«±¾»úiis: iisreset /stop£¬È·±£Ã»½ø³Ìµ÷ÓÃÕâ¸ö×é¼þ£¬ ·ñÔòÎÞ·¨¸²¸ÇÔdll
Õâ¾ÍÊÇasp È¡ com×é¼þÊý×é·µÖµ ·½·¨
À§ÁË£¬Ë¯¾õÁË ^_^
Ïà¹ØÎĵµ£º
DO×Ô¶¯²úÉúµÄXML°üº¬ÁËschemaÐÅÏ¢£¬ËüÃèÊöÕâ¸öXMLÀïÔÊÐíÓÐʲô½ÚµãºÍÊôÐÔÒÔ¼°²ÉÓúÎÖÖÊý¾ÝÀàÐÍ£¬¶øÇÒÊý¾Ý½ÚµãÒ²Ôö¼ÓÁËÃû³Æ¿Õ¼ä¡£
schemaÐÅÏ¢ÔÚÐèÒªÊý¾ÝÑéÖ¤µÄµØ·½»ò½øÐиü¸´ÔӵĴ¦Àí»òÐíºÜÓÐÓ㬵«ÊÇ£¬´ó¶àÊýÇé¿öÏ£¬ÎÒÃÇʹÓõÄÊÇÊݿͻ§»ú£¬ÎÒÃDz»ÐèÒªschemaÐÅÏ¢¡£ÎÒÃÇ¿ÉÒÔ
ÀûÓÃXSLTÀ´·ÖÀë³öÎÒÃÇÏëÒªµÄÐÅÏ¢£¬È¥µô¶àÓàµÄÐÅ ......
´ó¼ÒÓÐÅöµ½¹ýÒªÏëȡһ×Ö·û´®ÀïµÄijЩֵ¶øÎÞ´ÓÏÂÊÖ£¿ÓÐûÓоõµÃ¿´Êé»ò½Ì²Ä¶ÔsplitµÄд·¨ºýÀïºýÍ¿……Èç¹ûÓдËÒÉÎʵϰ£¬Çë¿´ÏÂÃæÎÒ¶ÔÀý×ӵĽâÊÍ£¬ÏàÐÅÄú»á¶ÔÕâ¸öÓÐÒ»¶¨µÄÁ˽⡣
¡¡¡¡ÎÒÏȽéÉÜÒ»ÏÂSplit
º¯ÊýµÄÓ÷¨:
¡¡·µ»ØÖµÊý×é = Split("×Ö·û´®","·Ö¸î·û")
¡¡¡¡¼ÙÉè±äÁ¿strURL±£´æ×ÅU ......
°´“F12”ÊÔÊÔЧ¹û¡£
¡¡¡¡×¢£º³£ÓõÄʱ¼äº¯Êý£º
now() »ñÈ¡µ±Ç°ÏµÍ³ÈÕÆÚºÍʱ¼ä,ASPÊä³ö¿ÉÒÔÕâÑùд£º<%=now()%>
Year(now()) »ñÈ¡Äê·Ý ......
VB
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
MSComm1.CommPort = i1
MSComm1.PortOpen = True
MSComm1.InputMode = comInputModeBinary
MSComm1.InBufferCount = 0
& ......
VBʵÏÖVC TabControl¿Ø¼þ
н¨Ò»¸ö¹¤³ÌÎļþProject1£¬
ÔÚ×ó²à¹¤¾ßÀ¸ÖеãÓÒ¼ü
ÔÚ³öÏÖµÄÑ¡ÏîÖеã“Components”£¬ÔÚ´ò¿ª´°¿ÚÖÐÕÒµ½“Controls”Ñ¡ÏîÒ²ÖеēMicrosoft Tabbed Dialog Control 6.0”£¬È»ºóµã“Ó¦ÓÔ“È·¶¨”Í˳ö¸Ãҳà ......