📄 bills.aspx
字号:
<%@ Page Language="VB" %>
<%@ Register TagPrefix="ASPNETBank" TagName="Header" src="header.ascx" %>
<%@ Register TagPrefix="ASPNETBank" TagName="Menu" src="nav.ascx" %>
<script runat="server">
sub PayBill(obj as object, e as eventargs)
dim objAccount as new ASPNETBank.Account(User.Identity.Name)
dim decBalance as Decimal = objAccount.GetBalance()
dim decAmount as Decimal = tbAmount.Text
if decAmount < 0 then
lblMessage.Text = "<font color=red>The " & _
"transaction amount cannot be negative!" & _
"</font>"
exit sub
end if
if decAmount <= decBalance then
objAccount.UpdateBalance(decBalance - decAmount)
objAccount.AddTransaction(tbPayee.Text, decAmount)
lblMessage.Text = "<font color=red>Transaction " & _
"added.</font>"
tbAmount.Text = ""
tbPayee.Text = ""
else
lblMessage.Text = "<font color=red>You do not " & _
"have enough funds to complete this " & _
"transaction!</font>"
end if
end sub
</script>
<html><body topmargin="0" leftmargin="0">
<ASPNETBank:Header runat="server" />
<table>
<tr>
<td valign="top" width="150">
<ASPNETBank:Menu runat="server" />
</td>
<td width="550" valign="top">
<font face="arial">
<asp:Label id="lblMessage" runat="server"/>
<form runat="server">
<table>
<tr>
<td width="10"> </td>
<td width="100%">
<font face="arial">
<p>
Welcome to the bill paying service!
Please fill out the information below
and hit "Pay that Bill!" to automatically
transfer available funds.<p>
<table>
<tr>
<td width="150" valign="top">
<font face="arial">
Payee:
</td>
<td width="100" valign="top">
<font face="arial">
<asp:textbox id="tbPayee" runat="server"/>
</td>
</tr>
<tr>
<td valign="top">
<font face="arial">
Amount:
</td>
<td valign="top">
<font face="arial">
<asp:textbox id="tbAmount" runat="server"/>
</td>
</tr>
<tr>
<td valign="top" colspan="2" align="right">
<font face="arial">
<asp:button id="btSubmit" runat="server"
text="Pay That Bill!"
OnClick="PayBill" />
</td>
</tr>
</table>
</font>
</td>
</tr>
</table>
</form>
</font>
</td>
</tr>
</table>
</font>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -