ASP Source Code

ASP File: deposit.asp

 
   ASP Script
   Comments
   HTML and Text

<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>