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

VB 5·1µÚ¶þÌì

ÉÏÎçÏȰÑÖ÷°åÊõÓï°¤¸ö²éÁËÒ»±é£¬Á˽âËüµÄËõдÓÉÀ´¡¢Î»Öú͹¦ÄÜ¡£
Ö÷°åÓ¢ÎÄËõдÏê½â£º
 http://user.qzone.qq.com/904515106/infocenter?ptlang=2052&ADUIN=904515106&ADSESSION=1272977059&ADTAG=CLIENT.QQ.2653_Mysrv.0
ÏÂÎç·µ¹¤£¬Õâ´Î¸øµÄ½ÌѵÊDzÒÍ´µÄ£¬ÎÒÃÇ×éÊÔÁ˰ëÌì¶¼²»ÄܵãÁÁ£¬»»Ó²ÅÌ··»»µçÔ´··ÕÒÈ˰ïæ··»»ÏÔ¿¨··»»ÄÚ´æÌõ··×îºó·¢ÏÖÊÔµÄÖ÷»ú²»ÊÇ×òÌìÄÇ̨£¬²»½öÀË·ÑÎÒÃÇ×éµÄʱ¼ä£¬»¹ÓÐСÓ¡¢ÇïÇïÁ½¸ö×鳤µÄ±¦¹óʱ¼ä¡£Ö®ºó×Ô¼º¶¯ÊÖ²ð×°»úÆ÷£¬×îºóÊÔ»ú£¬µãÁÁ×ÀÃæ£¬³É¹¦¡£ÐÅÐĽ¨Á¢µÄÂúÂúµÄÁË£¬ºÇºÇ
·´Ê¡£ºÒÔºó²»¹ÜÔÚÉú»îÖеĸ÷¸ö·½Ãæ×Ô¼º¶¼ÒªÏñ×öÔôÒ»Ñù£¬ÄÇÕâ´Î×°»úÆ÷À´Ëµ£¬Õâ´ÎµÄÈÎÎñÊDzð×°»úºó»úÆ÷ºÍÒÔǰһÑùÔËÐÐÕý³££º
×Ô¼º´ò¿ªÖ÷»úºó¸Çºó²»Ó¦¼±ÓÚ½«¸÷¸ö²¿¼þ²ðжÏÂÀ´£¬Ó¦¸ÃÏëÏëÎÒÒ»»á¶ùÔõôÈÃËüÃǻָ´Ô­Ã²¶ø²»±»ÈË·¢ÏÖ£¬·½·¨Ö»ÓÐÒ»¸ö£º×Ô¼º²ðµÄʱºò¿´×¼¼ÇÀΣ¬Ôõô²ðµÄÔõôװÉÏ¡£ÓÚÊÇÿ°ÎÒ»¸öÁã¼þ¾ÍÒª¹Û²ìºÃËüµÄ·½ÏòÒÔ¼°ºÍ±ðµÄ²¿¼þµÄ¹ØÏµ¡£²¢°Ñ°ÎÏÂÀ´µÄ²¿¼þ¹éºÃÀ࣬ÓÈÆäÊDz»Í¬ÖÖÀàµÄÂÝË¿¶¤¡£¸´Ô­Ê±£¬¿ÉÒÔÇáËɸ㶨¡£
ÒÔºó×öÈκÎÊÂÇé¶¼ÏȰÑ˳ÐòÀíºÃ£¬²»¿É¼±ÓÚ¿ª¹¤¡£Ä¥µ¶²»Îó¿³²ñ¹¤¡£


Ïà¹ØÎĵµ£º

ʹÓÃVB½«ASP´úÂë·â×°µ½DLLÎļþÍêÕûʵÀý

ʹÓÃVB½«ASP´úÂë·â×°µ½DLLÎļþÍêÕûʵÀý
http://blog.csdn.net/cncco/archive/2007/10/20/1834865.aspx
ÓÃVB·â×°ASP£¬½¨Á¢SayHello²âÊÔ³ÌÐò
1¡¢´ò¿ªVB6£¬Ð½¨ActiveX DLL
2¡¢ÔÚ¹¤³ÌÒýÓÃÖмÓÈëMicrosoft Active Server Pages Object LibraryÑ¡Ôñ
3¡¢Ìî¼Ó´úÂëÈçÏ£º
'Code Start
'ÉùÃ÷²¿·Ö
Private MyScriptingContext ......

VBʵÏÖSQL ServerÊý¾Ý¿â±¸·Ý/»Ö¸´

VBʵÏÖSQL ServerÊý¾Ý¿â±¸·Ý/»Ö¸´
http://blog.csdn.net/cncco/archive/2006/05/15/729356.aspx
’**Ä£ ¿é Ãû£ºfBackupDatabase_a
’**Ãè    Êö£º±¸·ÝÊý¾Ý¿â,·µ»Ø³ö´íÐÅÏ¢,Õý³£»Ö¸´,·µ»Ø""
’**µ÷    ÓãºfBackupDatabase_a "±¸·ÝÎļþÃû","Êý¾Ý¿âÃû"
’**²ÎÊý˵Ã÷£ ......

VB+SQL 2000 ʵÏÖÊý¾Ý¿âµÄ±¸·ÝºÍ»Ö¸´

 
'*************************************************************************
'**Ä£ ¿é Ãû£ºfBackupDatabase_a
'**Ãè    Êö£º±¸·ÝÊý¾Ý¿â,·µ»Ø³ö´íÐÅÏ¢,Õý³£»Ö¸´,·µ»Ø""
'**µ÷    ÓãºfBackupDatabase_a "±¸·ÝÎļþÃû","Êý¾Ý¿ ......

[TestComplete ϵÁÐ]VB¼ì²é±àÂëÀàÐÍ

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 ......

ASP VB.NET ¿Í»§¶ËÉÏ´«Îļþµ½·þÎñÆ÷¶Ë

  Dim strPath As String = Server.MapPath("~\Îļþ¼Ð")
        'Åжϱ£´æÎļþ·¾¶ÊÇ·ñ´æÔÚ ²»´æÔÚÔò´´½¨
        If Not Directory.Exists(strPath) Then
            Directory ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ