jijia.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 1,042 行 · 第 1/4 页

                                    元<BR>
                                    　支付息款: 
                                    <INPUT size=10 name=ajlxfd>
                                    元 </TD>
                                </TR>
                                <TR bgColor=#ffffff class="p13"> 
                                  <TD>　首期总付款: 
                                    <INPUT size=10 name=shf>
                                    元</TD>
                                  <TD>　月均总还款: 
                                    <INPUT size=10 name=yj>
                                    元</TD>
                                </TR>
                                <TR bgColor=#ffffff class="p13"> 
                                  <TD height=20 colSpan=2> <DIV align=center>税&nbsp;&nbsp;&nbsp;&nbsp;费</DIV></TD>
                                </TR>
                                <TR bgColor=#ffffff class="p13"> 
                                  <TD>　公证费: 
                                    <INPUT size=10 name=gzh>
                                    元</TD>
                                  <TD>　印花税: 
                                    <INPUT size=10 name=yh>
                                    元 </TD>
                                </TR>
                                <TR bgColor=#ffffff class="p13"> 
                                  <TD>　契　税: 
                                    <INPUT size=10 name=q>
                                    元 </TD>
                                  <TD>　</TD>
                                </TR>
                                <TR bgColor=#ffffff class="p13"> 
                                  <TD colSpan=2>　委托办理产权手续费: 
                                    <INPUT size=10 name=wt>
                                    元</TD>
                                </TR>
                                <TR bgColor=#ffffff class="p13"> 
                                  <TD colSpan=2>　房屋买卖手续费:　　 
                                    <INPUT size=10 name=fw>
                                    元</TD>
                                </TR>
                              </TBODY>
                            </TABLE>
                          </div>
                          </FORM></TD>
                      </TR>
                      <TR> 
                        <TD colSpan=2> <SCRIPT language=javascript>
function play(){

  if (document.myform.dkze.value=='') 

  	{

  	alert('请填入贷款总额');

  	return false;

  	}

  else

  	sm=parseFloat(document.myform.dkze.value)*10000;

  if(document.myform.hklx[1].checked)

  {

  	if(document.myform.hklxje.value=='')

    		{

    		alert('请填入部分提前还款额度');

    		return false;

    		}

    }

  stime=parseInt(document.myform.ydkqx.options[document.myform.ydkqx.selectedIndex].value);

  if(document.myform.dklx[0].checked && stime<=60) srate=0.003;

  if(document.myform.dklx[0].checked && stime>60) srate=0.003375;

  if(document.myform.dklx[1].checked && stime<=60) srate=0.003975;

  if(document.myform.dklx[1].checked && stime>60) srate=0.0042;

  md=(parseInt(document.myform.yjtqhksjn.options[document.myform.yjtqhksjn.selectedIndex].value)-parseInt(document.myform.dychksjn.options[document.myform.dychksjn.selectedIndex].value))*12 + (parseInt(document.myform.yjtqhksjy.options[document.myform.yjtqhksjy.selectedIndex].value)-parseInt(document.myform.dychksjy.options[document.myform.dychksjy.selectedIndex].value));

  if(md<0 || md>stime)

  {

  	alert('预计提前还款时间与第一次还款时间有矛盾，请查实');

  	return false;

  	}

  yhk=sm*(srate*Math.pow((1+srate),stime))/(Math.pow((1+srate),stime)-1);

  lrq=(parseInt(document.myform.dychksjn.options[document.myform.dychksjn.selectedIndex].value)+Math.floor((stime+parseInt(document.myform.dychksjy.options[document.myform.dychksjy.selectedIndex].value)-2)/12))+'年'+((stime+parseInt(document.myform.dychksjy.options[document.myform.dychksjy.selectedIndex].value)-2) % 12+1)+'月';

  pol=yhk*md;

  rsd=0;

  uir=0;

  for(i=1;i<=md;i++){

    rsd=rsd+(sm-uir)*srate;

    uir=uir+yhk-(sm-uir)*srate;

  }

  remark='';

  if(document.myform.hklx[1].checked){

    ert=document.myform.hklxje.value*10000;

    if(ert+yhk>=yhk*(1/srate-1/(srate*Math.pow((1+srate),(stime-md))))){

      remark='您的提前还款额已经可以一次还清所有未还款项！';

    }else{

      if(document.myform.clfs[0].checked){

        wer=0;

        qwa=0;

        for(j=sm-uir-yhk-ert;j>=0;j=j-qwa){

          qwa=yhk/Math.pow((1+srate),wer);

          wer++;

        }

        vbr=(sm-uir-yhk-ert)*(srate*Math.pow((1+srate),wer))/(Math.pow((1+srate),wer)-1);

        bnf=yhk+ert;

        thx=yhk*stime-pol-bnf-vbr*wer;

        bncc=(parseInt(document.myform.dychksjn.options[document.myform.dychksjn.selectedIndex].value)+Math.floor((wer+md+parseInt(document.myform.dychksjy.options[document.myform.dychksjy.selectedIndex].value)-2)/12))+'年'+((wer+md+parseInt(document.myform.dychksjy.options[document.myform.dychksjy.selectedIndex].value)-2) % 12+1)+'月';

      }else{

        vbr=(sm-uir-yhk-ert)*(srate*Math.pow((1+srate),(stime-md)))/(Math.pow((1+srate),(stime-md))-1);

        bnf=yhk+ert;

        thx=yhk*stime-pol-bnf-vbr*(stime-md);
        bncc=lrq;

      }

    }

  }

  if(document.myform.hklx[0].checked || remark!=''){

    bnf=(sm-uir)*(1+srate);

    vbr=0;

    thx=yhk*stime-pol-bnf;

    bncc=document.myform.yjtqhksjn.options[document.myform.yjtqhksjn.selectedIndex].value+'年'+document.myform.yjtqhksjy.options[document.myform.yjtqhksjy.selectedIndex].value+'月';

  }

  document.myform.ykhke.value=chgnum(yhk);

  document.myform.yzhhkq.value=lrq;

  document.myform.yhkze.value=chgnum(pol);

  document.myform.yhlxe.value=chgnum(rsd);

  document.myform.gyyihke.value=chgnum(bnf);

  document.myform.xyqyhke.value=chgnum(vbr);

  document.myform.jslxzc.value=chgnum(thx);

  document.myform.xdzhhkq.value=bncc;

  document.myform.jsjgts.value=remark;

}

function chgnum(sum){

  return Math.round(sum*100)/100;

}
</SCRIPT> </TD>
                      </TR>
                      <TR> 
                        <TD colSpan=2 
    height=2></TD>
                      </TR>
                    </TBODY>
                  </TABLE>
                    	</div>
                    <table border="0" cellpadding="0" cellspacing="0" width="318" id="table9">
						<tr>
							<table width="200" height="20" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td align="center"><a href="jijia-1.asp" class="linkone">下一页</a></td>
                    </tr>
                  </table>
						</tr>
						<tr>
							<td>　</td>
						</tr>
					</table>
            <TABLE cellSpacing=0 cellPadding=0 width=708 
            background=../img/bomgreen2.gif border=0 id="table8">
              <TBODY>
              <TR>
                <TD width=20>
				<IMG height=27 src="../img/bomgreen1.gif" 
                  width=13></TD>
                <TD align=right>
				　</TD></TR></TBODY></TABLE> </TD>
                </TR>
              </TBODY>
            </TABLE></div>
			</td>
            </div>
            <TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0>
              <TBODY>
              <TR>
                <TD></TD></TR></TBODY></TABLE>
            </TD></TR></TBODY></TABLE>
      </div>
      <TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0>
        <TBODY>
        <TR>
          <TD></TD></TR></TBODY></TABLE>
      </TD></TR></TBODY></TABLE>
</div>
<!--#include file="../end.asp"-->

</BODY></HTML>
<%
 Set Rs=Nothing
 CloseDataConn
%>