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

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×é¼þÊý×é·µÖµ ·½·¨
À§ÁË£¬Ë¯¾õÁË ^_^


Ïà¹ØÎĵµ£º

asp¡¢·þÎñÆ÷¶Ë´ò¿ªÐ´°¿Ú

asp.netÖдò¿ªÐ´°¿ÚµÄ¶àÖÖ·½·¨(תÔØ)
1.Response.Redirect("XXX.aspx",true)——Ö±½ÓתÏòеÄÒ³Ã棬ԭ´°¿Ú±»´úÌæ;
2. Response.Write("
")——´ò¿ªÐµÄÒ³Ã棬ԭ´°¿Ú±»´úÌæ;
4.Server.Transfer("XXX.aspx")——´ò¿ªÐµÄÒ³Ãæ;
5.Response.Write("
......

VB ×Ö·û´®´¦Àíº¯Êý¼¯

·ÖÀࣺVBѧϰ ×ֺţº ´ó´ó  ÖÐÖР СС mid(×Ö·û´®£¬´ÓµÚ¼¸¸ö¿ªÊ¼£¬³¤¶È)  ÔÚ[×Ö·û´®]ÖÐ[´ÓµÚ¼¸¸ö¿ªÊ¼]È¡³ö[³¤¶È¸ö×Ö·û´®]   
ÀýÈç mid("СÐÀÎÞµÐ",1,3) Ôò·µ»Ø "СÐÀÎÞ"   
instr(´ÓµÚ¼¸¸ö¿ªÊ¼,×Ö·û´®1,×Ö·û´®2) ´Ó¹æ¶¨µÄλÖÿªÊ¼²éÕÒ£¬·µ»Ø×Ö·û´®2ÔÚ×Ö·û´®1Öе ......

VB ÖÐÑÕÉ«»¥Ïàת»»µÄÁ½¸öСº¯Êý(REGºÍ VBÑÕ)

VBÑÕÉ«ºÍRGBÉ«»¥Ïàת»»Í·ÌÛÁËÎÒºÃÒ»¶Îʱ¼ä,Èç½ñÕÒµ½½â¾ö°ì·¨ÁË
ÌرðÌù³öÀ´Óë´ó¼Ò¹²Ïí 
Type RGB
    Red As String
    Green As String
    Blue As String
End Type
Public Function ColorToRGB(ByVal dwColor As Long) As RGB
    Dim clrHex ......

һЩVBÏà¹ØµÄ¶«Î÷~~


Õä¹óvbº¯ÊýÁбí
Variant ±äÁ¿µÄÄÚ²¿±íʾ:
_______________________________________________________________
·ûºÅ³£Á¿ Öµ ÄÚ²¿±íʾ ×Ö½ÚÊý
V_EMPTY 0 Empty
V_NULL 1 Null
V_INTEGER 2 Interger 2
V_LONG 3 Long 4
V_SINGLE 4 Single 4
V_DOUBLE 5 Double 8
V_CURRENCY 6 Currency 8
V_DATE 7 Date 8
V_STRI ......

Éý»ªÌṩÖÕÉíÃâ·ÑASP+access PHP+mysqlÐéÄâÖ÷»ú

Éý»ªÌṩÖÕÉíÃâ·ÑASP+access PHP+mysqlÐéÄâÖ÷»ú
Ò»£ºÉý»ªÍøÂç¿Æ¼¼ÓÐÏÞ¹«Ë¾,ÓëÉý»ªÍ¬ÔÚÕ¾³¤ÖÕÉíÃâ·Ñ¿Õ¼ä·ö³Ö¼Æ»®.
1¡¢×ð¾´µÄÓû§ÄúºÃ,Ò²ÐíÄú»¹ÔÚΪÿÄêÒ»½»µÄ¿Õ¼ä·ÑÓ÷¢³î,Ò²ÐíÄúÏë»ñµÃÒ»¸ö¸üÓÅÖʵĿռäÈ´²»ÏëͶÈëÌ«¶à,´ÓÏÖÔÚÆð ÕâЩÎÊÌ⽫ӭÈжø½â→Éý»ªÍøÂç←ÓëÉý»ªÍ¬ÔÚÕ¾³¤·ö³Ö¼Æ»®È«ÃæÆô¶¯¡£
2¡¢Ã»ÓÐ×¢²á¹«Ë¾ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ