ASP Source Code

ASP File: withdraw.asp

 
   ASP Script
   Comments
   HTML and Text

<%@language=jscript%>
<HTML>
<BODY>
<%
var accountmanager
var account
var name
var password
var withdraw
name =Request("name")
password=Request("password")
withdraw=Request("dollar")
accountmanager =Server.CreateObject("BankManager")
account =accountmanager.open( name, password)

if( account ==null){
     Response.Write("Password or user name error, Please try back before and try again")
}
else
    if( withdraw != "")
       a = account.withdraw(parseFloat(withdraw))
    else
       Response.Write("No dollar is to withdraw")
      
    if( a==-1.0 )
      Response.Write("This is more than the current balance of $" + account.balance())
    else
      Response.Write("Withdraw successfully,now the current balance is $" + account.balance())
%>

</BODY>
</HTML>