money.asp

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

<!-- #include file = "conn_user.asp" -->
<!-- #include file = "bank.asp" -->
<%
Function Cash(UserName)
dim tmprs
    tmprs=Conn_User.execute("Select sum(money) as cmoney from bankuserlist Where User='"&username&"'")
    Cash=tmprs("cmoney")
	set tmprs=nothing
End Function

Function AllMoney(UserName)
  AllMoney = Cash(UserName) + BankMoney(UserName)
End Function

%>