ASP Source Code ASP File: query.asp |
|
<HTML>
<BODY>
<%
dim accountmanager
dim account
dim name
dim password
name =Request("name")
password=Request("password")
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
response.write("The current balance is $" &
account.balance())
end if
%>
</BODY>
</HTML>