ÈÃVB²ËÄñ×î¿ìд³ö×Ô¼ºµÄÍâ¹Ò.ͨɱËùÓÐÓÎÏ·.ºÇºÇ.
ÈÃVB²ËÄñ×î¿ìд³ö×Ô¼ºµÄÍâ¹Ò.ͨɱËùÓÐÓÎÏ·.ºÇºÇ.
ÕâÄêÍ·,ÔÚÕâ¸öÂÛ̳ÀïÃæÒѾûÓÐʲô¼¼ÊõÌùÁË...ºÇºÇ~·¢Ò»Æª¾ªÌìµØ,Æü¹íÉñµÄÌû×Ó.µ±È»Õâ¸öÖ»ÊÇÄ£Äâ¼üÅ̵ÄÖÕ¼«Ä£Äâ.ºÇºÇ~
¼üÅÌÊÇÎÒÃÇʹÓüÆËã»úµÄÒ»¸öºÜÖØÒªµÄÊäÈëÉ豸ÁË£¬¼´Ê¹ÔÚÊó±ê´óÐÐÆäµÀµÄ½ñÌ죬ºÜ¶à³ÌÐòÒÀÈ»Àë²»¿ª¼üÅÌÀ´²Ù×÷¡£µ«ÊÇÓÐʱºò£¬Ò»Ð©Öظ´ÐԵģ¬ºÜ·±ËöµÄ¼üÅ̲Ù×÷×Ü»áÈÃÈËÆ£±¹£¬ÓÚÊǾÍÓÐÁËÓóÌÐòÀ´´úÌæÈËÃǰ´¼üµÄ·½·¨£¬ÕâÑù¿ÉÒ԰ѺܶàÖØ¸´ÐԵļüÅ̲Ù×÷½»¸ø³ÌÐòÀ´Ä£Ä⣬ʡÁ˺ܶྫÁ¦£¬°´¼ü¾«Áé¾ÍÊÇÕâÑùµÄÒ»¸öÈí¼þ¡£ÄÇôÎÒÃÇÔõÑù²ÅÄÜÓÃVBÀ´Ð´Ò»¸ö³ÌÐò£¬´ïµ½Óë°´¼ü¾«ÁéÀàËÆµÄ¹¦ÄÜÄØ£¿ÄǾÍÈÃÎÒÃÇÀ´ÏÈÁ˽âÒ»ÏÂwindowsÖÐÏìÓ¦¼üÅÌʼþµÄ»úÖÆ¡£
µ±Óû§°´Ï¼üÅÌÉϵÄÒ»¸ö¼üʱ£¬¼üÅÌÄÚµÄоƬ»á¼ì²âµ½Õâ¸ö¶¯×÷£¬²¢°ÑÕâ¸öÐźŴ«Ë͵½¼ÆËã»ú¡£ÈçºÎÇø±ðÊÇÄÄÒ»¸ö¼ü±»°´ÏÂÁËÄØ£¿¼üÅÌÉϵÄËùÓа´¼ü¶¼ÓÐÒ»¸ö±àÂ룬³Æ×÷¼üÅÌɨÃèÂë¡£µ±Äã°´ÏÂÒ»¸ö¼üʱ£¬Õâ¸ö¼üµÄɨÃèÂë¾Í±»´«¸øÏµÍ³¡£É¨ÃèÂëÊǸú¾ßÌåµÄÓ²¼þÏà¹ØµÄ£¬Í¬Ò»¸ö¼ü£¬ÔÚ²»Í¬¼üÅÌÉϵÄɨÃèÂëÓпÉÄܲ»Í¬¡£¼üÅÌ¿ØÖÆÆ÷¾ÍÊǽ«Õâ¸öɨÃèÂë´«¸ø¼ÆËã»ú£¬È»ºó½»¸ø¼üÅÌÇý¶¯³ÌÐò¡£¼üÅÌÇý¶¯³ÌÐò»áÍê³ÉÏà¹ØµÄ¹¤×÷£¬²¢°ÑÕâ¸öɨÃèÂëת»»Îª¼üÅÌÐéÄâÂ롣ʲôÊÇÐéÄâÂëÄØ£¿ÒòΪɨÃèÂëÓëÓ²¼þÏà¹Ø£¬²»¾ßÓÐͨÓÃÐÔ£¬ÎªÁËͳһ¼üÅÌÉÏËùÓмüµÄ±àÂ룬ÓÚÊǾÍÌá³öÁËÐéÄâÂë¸ÅÄî¡£ÎÞÂÛʲô¼üÅÌ£¬Í¬Ò»¸ö°´¼üµÄÐéÄâÂë×ÜÊÇÏàͬµÄ£¬ÕâÑù³ÌÐò¾Í¿ÉÒÔʶ±ðÁË¡£¼òµ¥µã˵£¬ÐéÄâÂë¾ÍÊÇÎÒÃǾ³£¿ÉÒÔ¿´µ½µÄÏñVK_A,VK_BÕâÑùµÄ³£Êý£¬±ÈÈç¼üAµÄÐéÄâÂëÊÇ65£¬Ð´³É16½øÖƾÍÊÇ&H41£¬×¢Ò⣬ÈËÃǾ³£ÓÃ16½øÖÆÀ´±íʾÐéÄâÂë¡£µ±¼üÅÌÇý¶¯³ÌÐò°ÑɨÃèÂëת»»ÎªÐéÄâÂëºó£¬»á°ÑÕâ¸ö¼üÅ̲Ù×÷µÄɨÃèÂëºÍÐéÄâÂ뻹ÓÐÆäËüÐÅÏ¢Ò»Æð´«µÝ¸ø²Ù×÷ϵͳ¡£È»ºó²Ù×÷ϵͳÔò»á°ÑÕâЩÐÅÏ¢·â×°ÔÚÒ»¸öÏûÏ¢ÖУ¬²¢°ÑÕâ¸ö¼üÅÌÏûÏ¢²åÈëµ½ÏûÏ¢Áжӡ£×îºó£¬ÒªÊDz»³öÒâÍâµÄ»°£¬Õâ¸ö¼üÅÌÏûÏ¢×îÖջᱻË͵½µ±Ç°µÄ»î¶¯´°¿ÚÄÇÀ»î¶¯´°¿ÚËùÔÚµÄÓ¦ÓóÌÐò½ÓÊÕµ½Õâ¸öÏûÏ¢ºó£¬¾ÍÖªµÀ¼üÅÌÉÏÄĸö¼ü±»°´Ï£¬Ò²¾Í¿ÉÒÔ¾ö¶¨¸Ã×÷³öʲôÏìÓ¦¸øÓû§ÁË¡£Õâ¸ö¹ý³Ì¿ÉÒÔ¼òµ¥µÄÈçϱíʾ£º
Óû§°´Ï°´¼ü-----¼üÅÌÇý¶¯³ÌÐò½«´Ëʼþ´«µÝ¸ø²Ù×÷ϵͳ-----²Ù×÷ϵͳ½«¼üÅÌʼþ²åÈëÏûÏ¢¶ÓÁÐ-----¼üÅÌÏûÏ¢±»·¢Ë͵½µ±Ç°»î¶¯´°¿Ú
Ã÷°×ÁËÕâ¸ö¹ý³Ì£¬ÎÒÃǾͿÉÒÔ±à³ÌʵÏÖÔÚÆäÖеÄij¸ö»·½ÚÀ´Ä£Äâ¼üÅ̲Ù×÷ÁË¡£ÔÚVBÖУ¬ÓжàÖÖ·½·¨¿ÉÒÔʵÏÖ¼üÅÌÄ£Ä⣬ÎÒÃǾͽéÉܼ¸ÖֱȽϵäÐ͵ġ£
1.¾Ö²¿¼¶Ä£Äâ
´ÓÉ
Ïà¹ØÎĵµ£º
×ö¸ömp3²¥·ÅÆ÷£¬ÓÃrealplayºÍWMP×ö³öÀ´µÄ³ÌÐòÄÚ´æÕ¼ÓÃÌ«´ó¡£
Èç¹ûÄã½ö½öÊDz¥·ÅMP3£¬½¨ÒéʹÓÃAPIº¯ÊýmciSendString¡£
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal
lpstrReturnString As String, ByVal uReturnLength As Lo ......
Sub CheckTextCodingType(Textfile)
Set fl = aqFile.OpenBinaryFile(Textfile, aqFile.faRead)
Binary1 = fl.ReadByte()
Binary2 = fl.ReadByte()
fl.Close
select case CStr(Binary1)& CStr(Binary2)
case 255254: '*Unicode (UTF-16) ǰÁ½¸ö×Ö½ÚΪFFFE
Log.Message("fi ......
Try
Dim Path As String = Server.MapPath("~/Download/") 'Îļþ·¾¶
Path = Path & "file.txt" 'ÎļþµÄÃû³Æ
......
Private Function NMoneyToSMoney ( NMoney As Variant ) As String
If IsNumeric ( NMoney ) = False Then
NMoneyToSMoney = "²»ÊÇÊý×ÖÀ ......
ÉÏÎçÏȰÑÖ÷°åÊõÓï°¤¸ö²éÁËÒ»±é£¬Á˽âËüµÄËõдÓÉÀ´¡¢Î»Öú͹¦ÄÜ¡£
Ö÷°åÓ¢ÎÄËõдÏê½â£º
http://user.qzone.qq.com/904515106/infocenter?ptlang=2052&ADUIN=904515106&ADSESSION=1272977059&ADTAG=CLIENT.QQ.2653_Mysrv.0
ÏÂÎç·µ¹¤£¬Õâ´Î¸øµÄ½ÌѵÊDzÒÍ´µÄ£¬ÎÒÃÇ×éÊÔÁ˰ëÌì¶¼²»ÄܵãÁÁ£¬»»Ó²ÅÌ·&mi ......