bank.asp

来自「应用于高等院校党团思想教育」· ASP 代码 · 共 29 行

<!-- #include file = "conn_user.asp" -->
<%

Function BankMoney(UserName)
dim tmprs
    tmprs=Conn_User.execute("Select sum(money) as cmoney from bankuserlist Where User='"&username&"'")
    bankmoney=tmprs("cmoney")
	set tmprs=nothing
	if isnull(bankmoney) then bankmoney=0       
End Function

Function BankMoneys(Bank)
dim tmprs 
    tmprs=Conn_User.execute("Select sum(money) As moneys from bankUserList where bank='"&bank&"'")
    bankmoneys=tmprs("moneys")
	set tmprs=nothing
	if isnull(bankmoneys) then bankmoneys=0
End Function

Function BankUsers(Bank)
dim tmprs
    tmprs=Conn_User.execute("Select count(*) As users from bankUserList where bank='"&bank&"'")
    bankusers=tmprs("users")
	set tmprs=nothing
	if isnull(bankusers) then bankusers=0
End Function
 
%>