📄 mortgage.aspx
字号:
<%@ Page Language="VB" SmartNavigation="true" %>
<script runat="Server">
Sub Page_Load(obj As object, e As EventArgs)
If Not Page.IsPostBack Then
divResult.Visible = False
Else
Dim sngPrincipal, sngInterest, sngPayment As Single
Dim intYears As Integer
sngPrincipal = CSng(txtPrincipal.Value)
sngInterest = CSng(txtInterestRate.Value) / 1200
intYears = CInt(txtYears.Value) * 12
sngPayment = sngPrincipal * (sngInterest / (1 - (1 + sngInterest) ^ -intYears))
divResult.Visible = True
divResult.InnerHtml = "Monthly Payments = " & FormatCurrency(sngPayment)
End If
End Sub
</script>
<html>
<body>
<h2><u><font face="Arial">Mortgage Calculator</font></u></h2>
<form id="Form1" method="post" runat="server">
<P><h4><font face="Arial">Principal: <INPUT type="text" size="14" id="txtPrincipal" runat="server"> </font></h4></P>
<P><h4><font face="Arial">Interest Rate (%): <INPUT id="txtInterestRate" type="text" size="5" runat="server"> </font></h4></P>
<P><h4><font face="Arial">Years: <INPUT id="txtYears" type="text" size="5" runat="server"></font></h4></P>
<P><INPUT type="Submit" value="Compute Mortgage" runat="server" id="btnSubmit" name="Submit1" style="FONT-WEIGHT: bold; FONT-SIZE: small; Z-INDEX: 101; LEFT: 15px; FONT-FAMILY: Arial; POSITION: absolute; TOP: 242px"></P>
<DIV id="divResult" runat="server" style="DISPLAY: inline; FONT-WEIGHT: normal; FONT-SIZE: medium; Z-INDEX: 102; LEFT: 15px; WIDTH: 313px; COLOR: red; FONT-FAMILY: Arial; POSITION: absolute; TOP: 193px; HEIGHT: 26px" ms_positioning="FlowLayout">Monthly Payment:</DIV>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -