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ÎļþÍêÕûʵÀý
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Êý¾Ý¿â±¸·Ý/»Ö¸´
http://blog.csdn.net/cncco/archive/2006/05/15/729356.aspx
’**Ä£ ¿é Ãû£ºfBackupDatabase_a
’**Ãè Êö£º±¸·ÝÊý¾Ý¿â,·µ»Ø³ö´íÐÅÏ¢,Õý³£»Ö¸´,·µ»Ø""
’**µ÷ ÓãºfBackupDatabase_a "±¸·ÝÎļþÃû","Êý¾Ý¿âÃû"
’**²ÎÊý˵Ã÷£ ......
'*************************************************************************
'**Ä£ ¿é Ãû£ºfBackupDatabase_a
'**Ãè Êö£º±¸·ÝÊý¾Ý¿â,·µ»Ø³ö´íÐÅÏ¢,Õý³£»Ö¸´,·µ»Ø""
'**µ÷ ÓãºfBackupDatabase_a "±¸·ÝÎļþÃû","Êý¾Ý¿ ......
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 ......
Dim strPath As String = Server.MapPath("~\Îļþ¼Ð")
'Åжϱ£´æÎļþ·¾¶ÊÇ·ñ´æÔÚ ²»´æÔÚÔò´´½¨
If Not Directory.Exists(strPath) Then
Directory ......