bank.asp

模拟炒股源码模拟炒股源码模拟炒股源码模拟炒股源码模拟炒股源码模拟炒股源码模拟炒股源码模拟炒股源码

<%

Set Conn_User = Server.CreateObject("Adodb.Connection")
DBPath = Server.MapPath("../../data/MEMBERS.asp")
Conn_User.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath


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