ASP Source Code ASP File: deposit.asp |
|
<HTML>
<BODY>
<%
dim accountmanager
dim account
dim name
dim password
dim deposit
name =Request("name")
password=Request("password")
deposit=Request("dollar")
set accountmanager =server.createobject("BankManager")
set account =accountmanager.open(CStr(name),CStr(password))
if account is nothing then
response.write("Password or user name error, Please try back
before and try again")
else
if deposit <> "" then
a = account.deposit(cdbl(deposit))
else
response.write("No dollar is to deposit")
end if
response.write("Deposit successfully,now the current
balance is $" & account.balance())
end if
%>
</BODY>
</HTML>