jijia07.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 906 行 · 第 1/3 页
ASP
906 行
<OPTION selected
value=01>1</OPTION>
<OPTION value=02>2</OPTION>
<OPTION
value=03>3</OPTION>
<OPTION value=04>4</OPTION>
<OPTION
value=05>5</OPTION>
<OPTION value=06>6</OPTION>
<OPTION
value=07>7</OPTION>
<OPTION value=08>8</OPTION>
<OPTION
value=09>9</OPTION>
<OPTION value=10>10</OPTION>
<OPTION
value=11>11</OPTION>
<OPTION value=12>12</OPTION>
<OPTION
value=13>13</OPTION>
<OPTION value=14>14</OPTION>
<OPTION
value=15>15</OPTION>
<OPTION value=16>16</OPTION>
<OPTION
value=17>17</OPTION>
<OPTION value=18>18</OPTION>
<OPTION
value=19>19</OPTION>
<OPTION value=20>20</OPTION>
<OPTION
value=21>21</OPTION>
<OPTION value=22>22</OPTION>
<OPTION
value=23>23</OPTION>
<OPTION value=24>24</OPTION>
<OPTION
value=25>25</OPTION>
<OPTION value=26>26</OPTION>
<OPTION
value=27>27</OPTION>
<OPTION value=28>28</OPTION>
<OPTION
value=29>29</OPTION>
<OPTION value=30>30</OPTION>
<OPTION
value=31>31</OPTION>
</SELECT>
日 </TD>
</TR>
<TR bgColor=#f7f7f7>
<TD width="100%" height="20" colSpan=2 bgcolor="#FFFFFF"> 计划提前取款金额:
<INPUT name=DCapital
size=15>
人民币 (元) </TD>
</TR>
<TR bgColor=#eaeaea>
<TD width="100%" height="20" colSpan=2 bgcolor="#FFFFFF"> 计划提前取款日期:
<INPUT name=BYear
size=5>
年
<SELECT name=BMonth size=1>
<OPTION selected
value=01>1</OPTION>
<OPTION value=02>2</OPTION>
<OPTION
value=03>3</OPTION>
<OPTION value=04>4</OPTION>
<OPTION
value=05>5</OPTION>
<OPTION value=06>6</OPTION>
<OPTION
value=07>7</OPTION>
<OPTION value=08>8</OPTION>
<OPTION
value=09>9</OPTION>
<OPTION value=10>10</OPTION>
<OPTION
value=11>11</OPTION>
<OPTION value=12>12</OPTION>
</SELECT>
月
<SELECT name=BDay size=1>
<OPTION selected
value=01>1</OPTION>
<OPTION value=02>2</OPTION>
<OPTION
value=03>3</OPTION>
<OPTION value=04>4</OPTION>
<OPTION
value=05>5</OPTION>
<OPTION value=06>6</OPTION>
<OPTION
value=07>7</OPTION>
<OPTION value=08>8</OPTION>
<OPTION
value=09>9</OPTION>
<OPTION value=10>10</OPTION>
<OPTION
value=11>11</OPTION>
<OPTION value=12>12</OPTION>
<OPTION
value=13>13</OPTION>
<OPTION value=14>14</OPTION>
<OPTION
value=15>15</OPTION>
<OPTION value=16>16</OPTION>
<OPTION
value=17>17</OPTION>
<OPTION value=18>18</OPTION>
<OPTION
value=19>19</OPTION>
<OPTION value=20>20</OPTION>
<OPTION
value=21>21</OPTION>
<OPTION value=22>22</OPTION>
<OPTION
value=23>23</OPTION>
<OPTION value=24>24</OPTION>
<OPTION
value=25>25</OPTION>
<OPTION value=26>26</OPTION>
<OPTION
value=27>27</OPTION>
<OPTION value=28>28</OPTION>
<OPTION
value=29>29</OPTION>
<OPTION value=30>30</OPTION>
<OPTION
value=31>31</OPTION>
</SELECT>
日</TD>
</TR>
<TR bgColor=#f7f7f7>
<TD height="20" colSpan=2 align="center" bgcolor="#FFFFFF">
<input class=table name=b1 onClick="return result();" type=button value=计 算>
<SCRIPT language=javascript>
<!--begin hiding of script
var STime;
var z;
function makeArray(n){ //定义数组对象makeArray
for(var i=1;i<=n;i++)
this[i]=0;
this.length=n;
return this
}
function result()
{
var SMonth;
var BTime;
var SDay;
var SRate;
var BMonth;
var BDay;
var MTime;
var MYear;
var MMonth;
var DRate=0.0099;
var LRate;
var deserved1;
var deserved2;
var losing1;
var losing2;
var losing;
var m;
var y;
var year;
var day;
var Day1;
var Day2;
var day0;
var Capital=parseFloat(document.tt.Capital.value);
var LTime=parseFloat(document.tt.LTime.options[document.tt.LTime.selectedIndex].value)/12;
var DCapital=parseFloat(document.tt.DCapital.value);
SMonth = document.tt.SMonth.options[document.tt.SMonth.selectedIndex].value;
SDay= document.tt.SDay.options[document.tt.SDay.selectedIndex].value;
BMonth = document.tt.BMonth.options[document.tt.BMonth.selectedIndex].value;
BDay= document.tt.BDay.options[document.tt.BDay.selectedIndex].value;
STime=document.tt.SYear.value+SMonth+SDay;
BTime=document.tt.BYear.value+BMonth+BDay;
//if (LTime<1)
//{
//MYear=SYear;
//MMonth=SMonth+document.tt.LTime.options[document.tt.LTime.selectedIndex].value;
//}
//else
//{
//MYear=SYear+document.tt.LTime.options[document.tt.LTime.selectedIndex].value/12;
//MMonth=SMonth;
//}
//MTime=MYear+MMonth+SDay;
if (document.tt.Capital.value=="") //判断是否输入了本金
{
alert("请输入现行存款本金。");
document.tt.Capital.focus();
return false;
}
y=chknum(document.tt.Capital.value); //判断本金输入是否为数字
if (y==0)
{
alert("请输入正确的数字!");
document.tt.Capital.focus();
return false;
}
if (document.tt.SYear.value=="") //判断是否输入了现行存入日期
{
alert("请将现行存入日期填写完整");
document.tt.SYear.focus();
return false;
}
y=chknum(document.tt.SYear.value); //判断现行存入日期的年是否为数字
if (y==0)
{
alert("请输入正确的数字!");
document.tt.SYear.focus();
return false;
}
if ((document.tt.SYear.value.length)!=4) //判断现行存入日期的年是否是四位
{
alert("请将现行存入日期用四位数填写");
document.tt.SYear.focus();
return false;
}
if (document.tt.DCapital.value=="") //判断是否输入了计划提前取款金额
{
alert("请输入计划提前取款金额");
document.tt.DCapital.focus();
return false;
}
if (Capital<DCapital)
{
alert("输入计划提前取款金额应不超过存款本金");
document.tt.DCapital.focus();
return false;
}
y=chknum(document.tt.DCapital.value);
if (y==0)
{
alert("请输入正确的数字!");
document.tt.DCapital.focus();
return false;
}
if (document.tt.BYear.value=="") //判断是否输入了计划提前取款日期
{
alert("请将计划提前取款日期填写完整");
document.tt.BYear.focus();
return false;
}
y=chknum(document.tt.BYear.value); //判断计划提前取款日期的年是否为数字
if (y==0)
{
alert("请输入正确的数字!");
document.tt.BYear.focus();
return false;
}
if ((document.tt.BYear.value.length)!=4) //判断计划提前取款日期的年是否是四位
{
alert("请将现行存入日期用四位数填写");
document.tt.BYear.focus();
return false;
}
if (STime<19940610)
{
alert("存入日期需在1994年6月10日后");return false;
}//所选日期太早
if (BTime<19990610)
{
alert("计划提前取款日期需在1999年6月10日后");return false;
}//所选日期太早
if (BTime<STime)
{
alert("计划提前取款日期需在存入日期后");return false;
}//计划提前取款日期需在存入日期后
SRate=getlilv(z); //取得年利率
m=document.tt.LTime.options[document.tt.LTime.selectedIndex].value/12; //现定期存款期限,以年为单位
deserved1=DCapital*SRate*m; //计划取款金额在到期后本应得的利息
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?