·¢ÐÅÈË: nightcat (ҹè×Ó), ÐÅÇø: ASP
±ê Ìâ: ASP ÖÐ ÎÄ ¼ò Ã÷ ½Ì ³Ì(17)
·¢ÐÅÕ¾: ÍøÒ×ÐéÄâÉçÇø (Thu Feb 4 20:03:25 1999), Õ¾ÄÚÐżþ
µÚÒ»¿Î£º´´½¨ ActiveX ²ÆÎñ×é¼þ
×é¼þ½«°üº¬Ò»×éÏà¹ØµÄ·½·¨£¨º¯Êý£©£¬ÓÃÀ´Ìṩ½Å±¾ÓïÑÔËù²»¾ßÓеŦÄÜ¡£ÓÉÓÚ
VBScript ²»Ìṩ²ÆÎñº¯Êý£¬ËùÒÔÄú±ØÐëͨ¹ý×Ô¼ºµÄ Finance ·þÎñÆ÷×é¼þÀ´Ìṩ
¶Ô Visual Basic ²ÆÎñº¯ÊýµÄʹÓÃÄÜÁ¦¡£¸Ã·þÎñÆ÷×é¼þÄÜÌṩËùÓÐµÄ Visual Ba
sic ²ÆÎñº¯Êý£¬°üÀ¨ DDB º¯Êý£¨Ë«±¶Óà¶îµÝ¼õ·¨£©¡¢FV º¯Êý£¨Î´À´Öµ£©¡¢IPmt
º¯Êý£¨Ö§¸¶ÀûÏ¢£©¡¢IRR º¯Êý£¨ÄÚ²¿»Ø±¨ÂÊ£©ÒÔ¼°ÆäËûº¯Êý¡£²»¹ý£¬ÔÚ±¾½Ì³ÌÖÐ
£¬Äú½«Ö»Ê¹Óà FV º¯Êý£¬»ùÓڹ̶¨ÀûÂʼ°µÈ¶î¶¨ÆÚÖ§¸¶·½Ê½£¬·µ»ØÒ»±ÊÄê½ð¡£
¡¡
Æô¶¯ Visual Basic
µ¥»÷¡°¿ªÊ¼¡±°´Å¥£¬Ö¸Ïò¡°³ÌÐò¡±£¬È»ºóÖ¸Ïò¡°Microsoft Visual Basic 5.0¡±
µ¥»÷×Ӳ˵¥Öеġ°Visual Basic 5.0¡±£¬ÔËÐбà³Ì»·¾³¡£
¿ªÊ¼²¢ÃüÃûÒ»¸ö¹¤³Ì
ÔÚ¡°New Project¡±¶Ô»°¿òÖУ¬Ë«»÷¡°ActiveX DLL¡±¡£
ÔÚ¡°Project¡±²Ëµ¥ÉÏ£¬µ¥»÷¡°Project1 Properties¡±¡£
ÔÚ¡°General¡±ÊôÐÔÒ³µÄ¡°Project Name¡± ¿òÖУ¬¼üÈë¡°MS¡±¡£
Ñ¡Ôñ¡°Unattended Execution¡±¡£
×¢Òâ Ñ¡Ôñ¸ÃÑ¡Ïî±íÃ÷Õâ¸ö¹¤³ÌÔËÐÐʱ²»ÐèÒªÓû§½»»¥£¬²¢ÇÒ½«²»¾ßÓÐÓû§½»»¥µÄ
»ù´¡¡£
¡¡
µ¥»÷¡°OK¡±¡£
ÏÖÔÚ¹¤³Ì±»ÃüÃûΪ¡°MS¡±¡£ÒÔºó£¬Äú½«´Ó ASP ½Å±¾ÖÐÒÔ MS.Finance µÄÐÎʽÒýÓÃ
Finance ·þÎñÆ÷×é¼þ¡£
¡¡
½« Finance Class Ìí¼Óµ½¹¤³ÌÖÐ
ÔÚ Visual Basic ÖУ¬ÈôÒª´´½¨¾ßÓÐÒ»×é¿ÉÒÔµ÷Óõĺ¯Êý×é¼þ£¬±ØÐ붨ÒåÒ»¸ö Àà
¡£Ò»¸öÀà°üº¬Ò»×é·½·¨ºÍÊôÐÔ¡£ÔÚÄúµÄ¹¤³ÌÖУ¬Àà¾ÍÊÇÄú˵Ã÷²ÆÎñ·½·¨µÄµØ·½¡£
¡¡
°´Ï F4 ¼ü´ò¿ªÀàÄ£¿éµÄ¡°Properties¡±´°¿Ú£¬Ë«»÷¡°Name¡±ÊôÐÔ²¢¼üÈë¡°Func
tion¡±£¬È»ºó°´ Enter¡£
Ë«»÷¡°Instancing¡±¡£
µ¥»÷¼ýÍ·£¬È»ºóÑ¡Ôñ¡°5 - MultiUse¡±¡£
½øÒ»²½Ñ§Ï° Visual Basic ²ÆÎñº¯Êý
Visual Basic µÄ°ïÖúϵͳÃèÊöÁË¿ÉÒÔʹÓõIJÆÎñº¯Êý¡£
¡¡
µ¥»÷¡°Help¡±¡£
Ñ¡Ôñ¡°Microsoft Visual Basic Help Topics¡±¡£
Ñ¡Ôñ¡°Index¡±Ñ¡Ï£¬È»ºó¼üÈë¡°financial functions¡±×÷Ϊ²éÕÒµÄÎÄ×Ö¡£
Ë«»÷¡°financial functions¡±Ë÷ÒýÌõ¡£
µ¥»÷¡°FV Function¡±£¬Ñ§Ï°¸Ãº¯Êý¡£
ѧϰÍê²ÆÎñº¯Êýºó£¬¹Ø±Õ¡°Visual Basic Help¡±¶Ô»°¿ò¡£
½« CalcFV º¯ÊýÌí¼Óµ½ Finance Àà
Finance ·þÎñÆ÷×é¼þÐèҪһЩ´úÂë¡£ÕâЩ´úÂëÈÃʹÓÃÄú×é¼þµÄÓïÑÔ¿ÉÒÔµ÷Óà Vis
ual Basic ÄÚ½¨µÄδÀ´Öµº¯Êý¡£
¡¡
½«ÏÂÁÐÐи´ÖƲ¢Õ³Ìùµ½ Finance ÀàµÄ´úÂë´°¿ÚÖУº
¡¡
Public Function CalcFV(rate, nper, pmt, Optional pv, Optional whendue)
CalcFV = FV(rate, nper, pmt, pv, whendue)
End Function
Ìí¼Ó×é¼þµÄÈë¿Úµã
ËùÓзþÎñÆ÷×é¼þ¶¼ÐèÒªÒ»¸öÈë¿Ú£¨Æðʼ£©µã¡£ÕâÊǵ±¶ÔÏóµÚÒ»´Î¿ÉÓÃÓÚÒ»ÖÖÓïÑÔ
ʱ£¬½«±»µ÷ÓõĴúÂë¡£ÔÚ VBScript ÖУ¬µ±ÄúʹÓà Server.CreateObject ʱ£¬½«
´´½¨¶ÔÏóµÄÒ»¸öʵÀý¡£µ±Ö´ÐÐ Server.CreateObject Óï¾äʱ£¬£¨ÓÉ Visual Bas
ic ´´½¨µÄ£©·þÎñÆ÷×é¼þÉ쵀 Sub Main ¹ý³Ì½«±»µ÷Óá£
µ±ÄúµÄ²ÆÎñ×é¼þ±»µ÷ÓÃʱ£¬Ëü²»ÐèÒªÈκÎÌØÊâ´úÂëÀ´³õʼ»¯×ÔÉí¡£Òò´Ë£¬ÐèÒªÌá
¹©Ò»¸ö¿ÕµÄ£¨Ã»ÓÐ Visual Basic Óï¾äµÄ£©Sub Main ¹ý³Ì¡£
¡¡
Ñ¡Ôñ¡°Project¡±²Ëµ¥Öеġ°Add Module¡±¡£
ÔÚ¡°Module 1¡±¶Ô»°¿òÖУ¬Ë«»÷Ä£¿éͼ±ê¡£
ÔÚ Module 1 ´úÂë´°¿ÚÖУ¬¼üÈë Sub Main¡£
°´Ï Enter ¼ü¡£
½«×Ô¶¯½øÈëÈçÏ´úÂ룺
¡¡
Sub Main()
End Sub
±£´æ Finance ¹¤³Ì
µ±±£´æËù×÷µÄ¹¤×÷ʱ£¬½«Ñ¯ÎÊÄúÊÇ·ñ±£´æ Visual Basic ¹¤³ÌµÄÈ«²¿ 3 ²¿·Ö¡£Æä
ÖаüÀ¨¹¤³ÌÎļþ¡¢ÀàÄ£¿éºÍ´úÂëÄ£¿é¡£
¡¡
´ò¿ª¡°File¡±²Ëµ¥¡£
Ñ¡Ôñ¡°Save Project¡±¡£
ÔÚ¡°File name¡±Îı¾¿òÖУ¬¼üÈë¡°Finance¡±¡£Ñ¡Ôñ localhost Web ·þÎñÆ÷ÉϵÄ
ÈçÏ·¾¶£ºDriveLetter:\Winnt\System32\Inetsrv\£¬ÆäÖÐ DriveLetter ÊÇÊʵ±
µÄÇý¶¯Æ÷ºÅ¡££¨Èç¹ûÄúûÓнÓÊÜĬÈϵݲװĿ¼£¬ÇëÓÃÄúµÄ°²×°Ä¿Â¼Ìæ»» \Winn
t\System32¡££©
µ¥»÷¡°Save¡±°´Å¥¡£
Èç¹ûÔÚ´ËÒÔǰ£¬ÁíÒ»¸öÓû§ÒѾѧÍêÁ˽̵̳ÄÕâÒ»²¿·Ö£¬½«³öÏÖÒ»ÌõÏûÏ¢£¬Ìáʾ
ÎļþÒѾ´æÔÚ¡£ÇëÓÃÄúµÄÎļþ¸²¸Ç¾ÉÎļþ¡£
¡¡
Ë«»÷¡°File name¡±Îı¾¿òÖеÄÖµ ¡°Project1¡±£¬Ñ¡ÖÐËü¡£
Ϊ¹¤³ÌÎļþ¼üÈëÃû³Æ¡°Finance¡± (.vbp)¡£
µ¥»÷¡°Save¡±°´Å¥±£´æ¹¤³Ì¡£
Èç¹ûÔÚ´ËÒÔǰ£¬ÁíÒ»¸öÓû§ÒѾѧÍêÁ˽̵̳ÄÕâÒ»²¿·Ö£¬½«³öÏÖÒ»ÌõÏûÐÅÏ¢£¬Ìá
ʾÎļþÒѾ´æÔÚ¡£ÇëÓÃÄúµÄÎļþ¸²¸Ç¾ÉÎļþ¡£
¡¡
³ÉΪ¡°½ø³ÌÄÚ (In-Process)¡±×é¼þ
Visual Basic ÔÊÐíÄú´´½¨½ø³ÌÄÚ ActiveX ×é¼þ£¨Í¨³£³ÆÎª OLE ×Ô¶¯·þÎñÆ÷£©ºÍ
½ø³ÌÍâ ActiveX ×é¼þ¡£Ò»¸ö½ø³ÌÄÚ ActiveX ×é¼þÊÇÒ»¸ö¶¯Ì¬Á´½Ó¿â£¨´ø .dll
ºó׺£©£¬Óɵ÷ÓÃËüµÄ½ø³Ì½øÐмÓÔØ¡£Ò»¸ö½ø³ÌÍâ ActiveX ×é¼þÊÇÒ»¸ö¿ÉÖ´ÐÐÎļþ
£¨´ø .exe ºó׺£©£¬µ±Ëü±»Ó¦ÓóÌÐòµ÷Óúó£¬ÒÔ¶ÀÁ¢½ø³ÌµÄ״̬ÔËÐС£ÓÉÓÚ½ø³Ì
ÄÚ×é¼þÓëµ÷ÓÃËüµÄ³ÌÐòÔÚͬһ¸ö½ø³Ì¿Õ¼ä£¬ËùÒÔÐÔÄܱȽø³ÌÍâ×é¼þÒª¼Ñ¡£
ʹ Finance ·þÎñÆ÷×é¼þ³ÉΪ½ø³ÌÄÚ ActiveX ×é¼þ
´ò¿ª¡°File¡±²Ëµ¥¡£
Ñ¡¶¨¡°Make Finance.dll¡±¡£
µ¥»÷¡°Options¡±°´Å¥¡£
Ñ¡¶¨¡°Auto Increment¡±¸´Ñ¡¿ò¡£
µ¥»÷¡°OK¡±¡£
¼üÈë DriveLetter:\localhost\Winnt\System32\Inetsrv\Finance£¬ÆäÖÐ Drive
Letter ÊÇÊʵ±µÄÇý¶¯Æ÷ºÅ¡££¨Èç¹ûÄúûÓнÓÊÜĬÈϵݲװĿ¼£¬ÇëÓÃÄúµÄ°²×°Ä¿
Â¼Ìæ»» \Winnt\System32¡££©
Èç¹ûÔÚ´ËÒÔǰ£¬ÁíÒ»¸öÓû§ÒѾѧÍêÁ˽̵̳ÄÕâÒ»²¿·Ö£¬½«³öÏÖÒ»ÌõÏûÐÅÏ¢£¬Ìá
ʾÎļþÒѾ´æÔÚ¡£ÇëÓÃÄúµÄÎļþ¸²¸Ç¾ÉÎļþ¡£
Í˳ö Visual Basic¡£
×¢²á Finance ·þÎñÆ÷×é¼þ
ËùÓзþÎñÆ÷×é¼þ¶¼±ØÐë×¢²á¡£Windows NT ºÍ Windows 95 ÓÃϵͳע²á±íÀ´×·×ÙÄÄ
¸ö·þÎñÆ÷×é¼þÊÇ¿ÉÓõġ£ÔÚÄúµÄ¼ÆËã»úÉϽ« Finance ·þÎñÆ÷×é¼þ×¢²áºó£¬¾Í¿ÉÒÔ
ÔÚ VBScript ºÍËùÓмæÈÝ OLE µÄÓïÑÔÖе÷ÓÃËüÁË¡£
´ò¿ªÒ»¸öÃüÁîÌáʾ·û´°¿Ú¡£
ÔÚÃüÁîÌáʾ·ûºó¼üÈë cd Drive Letter:\localhost\Winnt\System32\Inetsrv£¬
ÆäÖÐ DriveLetter ÊÇÊʵ±µÄÇý¶¯Æ÷ºÅ¡££¨Èç¹ûÄúûÓнÓÊÜĬÈϵݲװĿ¼£¬ÇëÓÃ
ÄúµÄ°²×°Ä¿Â¼Ìæ»» \Winnt\System32¡££©
°´Ï Enter ¼ü¡£
¼üÈë regsvr32 Finance.dll¡£
°´Ï Enter ¼ü¡£
µ±³öÏÖÒ»¸ö¶Ô»°¿òÏÔʾ¡°DllRegisterServer in finance.dll succeeded¡±Ê±£¬
Çëµ¥»÷¡°OK¡±°´Å¥¡£
¹Ø±ÕÃüÁîÌáʾ·û´°¿Ú¡£
--
¡ù À´Ô´:£®ÍøÒ×ÐéÄâÉçÇø http://club.netease.com£®[FROM: 202.97.7.19]Ä
m
|