VBʵÏÖÊý×Öµ½ÖÐÎĽð¶îµÄת»»º¯Êý
Private Function NMoneyToSMoney ( NMoney As Variant ) As String
If IsNumeric ( NMoney ) = False Then
NMoneyToSMoney = "²»ÊÇÊý×ÖÀàÐÍ"
Exit Function
End If
Dim BasicDWString As String, BasicDW ( ) As String
Dim MoneyDWString As String, MoneyDW ( ) As String
Dim MoneyStr As String, ReturnStr As String, TempStr As String
BasicDWString = "·Ö,½Ç,Ô²,ʰ,°Û,Ǫ,Íò,ʰ,°Û,Ǫ,ÒÚ,ʰ,°Û,Ǫ,ÍòÒÚ,Õ×,ʰ,°Û,Ǫ,Íò,ÒÚ"
MoneyDWString = "Áã,Ò¼,·¡,Èþ,ËÁ,Îé,½,Æâ,°Æ,¾Á"
BasicDW = Split ( BasicDWString, "," )
MoneyDW = Split ( MoneyDWString, "," )
MoneyStr = Format ( NMoney, "0.00" )
MoneyStr = Replace ( MoneyStr, ".", "" )
StrLen = Len ( MoneyStr )
ReturnStr = ""
For X = 0 To StrLen - 1
TempStr = Mid ( MoneyStr, StrLen - X, 1 )
ReturnStr = MoneyDW ( TempStr ) & BasicDW ( X ) & ReturnStr
Next X
&nb
Ïà¹ØÎĵµ£º
ʹÓÃ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 "±¸·ÝÎļþÃû","Êý¾Ý¿âÃû"
’**²ÎÊý˵Ã÷£ ......
¡¡¡¡SQLDMO£¨SQL Distributed Management Objects£¬SQL·Ö²¼Ê½¹ÜÀí¶ÔÏ󣩷â×° Microsoft SQL Server 2000 Êý¾Ý¿âÖеĶÔÏó¡£SQL-DMO ÔÊÐíÓÃÖ§³Ö×Ô¶¯»¯»ò COM µÄÓïÑÔ±àдӦÓóÌÐò£¬ÒÔ¹ÜÀí SQL Server °²×°µÄËùÓв¿·Ö¡£ SQL-DMO ÊÇ SQL Server 2000 ÖÐµÄ SQL Server ÆóÒµ¹ÜÀíÆ÷ËùʹÓõÄÓ¦ÓóÌÐò½Ó¿Ú (API);Òò´ËʹÓà SQL-DMO µÄÓ ......
YXOnlineÒѾ½Ó½üβÉù,ΪÁË´¦ÀíһЩ½çÃæµÄÎÊÌâ,²âÊÔÒ»¸öC++µÄDLL
Ò»¸öº¯Êý,ÓÃdeasambling¿´C++µÄ´úÂëÊÇûÓдíÎóµÄ,µ«Êǵ½ÁËVB,Çë¿´
bµÄ·µ»ØÖµÊÇTrue ²»¹ÜC++ºÍVBÏ໥¼üÔ¼¶¨TrueºÍFalse¸÷¶ÔӦΪʲôÊýÖµ
ÕâÀïÒѾÊÇTrueÁË
µ«ÄÇʱÏÔʾTrue = True ÈԾɲ»Ö´ÐеÚÒ»¸öMsgbox
Ö±½ÓÌøµ½Else
¶øÈç¹ûÊ¡ÂÔb = True Ϊ If b Then ......
Asp.netÁ¬½ÓSQL Server2000Êý¾Ý¿âÀý³ÌÏê½â:
<%@ Import Namespace="System.Data" %>
<%@ Import NameSpace="System.Data.SqlClient" %>
<script laguage="VB" runat="server">
sub page_load(sender as Object ......