<%
'==========================
' file: bank_assets.asp
' writer: 那一刀
' qq: 38159623
' web: http://www.paperbridge.net
' bbs: http://www.paperbridge.net/zqbbs
'==========================
dim exbank,bankconn,bankconnstr,bank_db
set exbank = new cls_bank
bank_db="data/koomv#bank.asp"  '注意，这里要修改为你的红搂钱庄数据
bankconnstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath(bank_db)
on error resume next	'此处代码有助于数据库安全建议使用。
set bankconn=server.createobject("adodb.connection")
bankconn.open bankconnstr
'显示存款
class cls_bank
    public  bankSrs
	public function bankmoney(username)
		set bankSrs=bankconn.execute("select * from bankuser where name='"&username&"'")
		if not (bankSrs.eof or bankSrs.bof) then
		  do while not banksrs.eof
			bankmoney=bankmoney+bankSrs("CurrDeposit")+bankSrs("TimeDeposit")
			banksrs.movenext
		  loop
		  bankmoney=formatnumber(bankmoney,0,-1)
		else
		  bankmoney=0
		end if
		bankSrs.close
		set bankSrs=nothing
	end function
end class
%>