<% Dim Coin,Interest If Not MNBoard.Founduser Then MNBoard.GoToErr(10) Coin=MNBoard.Fun.GetStr("Coin") If Coin<>"" Then If Not MNBoard.Fun.isInteger(Coin) then MNBoard.Alert"请输入正确的金额！","?" Select Case Request.querystring("Action") Case "Save" Save Case "Draw" Draw Case "Virement" Virement Case"Convert" Convert Case Else Main End Select MNBoard.Footer() Set MNBoard =Nothing Sub GetInterest() Dim Rs,Temp Set Rs=MNBoard.Execute("select Coin,BankSave,Banktime from [i_user] where ID="&MNBoard.MyID&"") If Rs.Eof Then MNBoard.SetMemorEmpty() MNBoard.GoToErr(4) End If Temp=ccur(ccur(rs(1))*ccur(Datediff("d",cdate(rs("banktime")),cdate(MNBoard.NowBbsTime)))*MNBoard.Info(119)) Session(CacheName & "Bank")=Datediff("d",cdate(rs(2)),cdate(MNBoard.NowBbsTime))&"|"&Temp MNBoard.Execute("Update [i_user] Set BankSave=BankSave+"&Temp&",BankTime='"&MNBoard.NowBbsTime&"' where Name='"&MNBoard.MyName&"' ") Session(CacheName & "MyInfo") = Empty '更新缓存 MNBoard.UserLoginTrue() Rs.Close Set Rs=Nothing End Sub Sub Main MNBoard.Head"Bank.asp","","论坛银行" Dim Content If Session(CacheName & "Bank")="" Then GetInterest Interest=Split(Session(CacheName & "Bank"),"|") Content="
"&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ "
财务状况 [存款利率:"&MNBoard.Info(119)*1000&"‰]
 银行户主："&MNBoard.MyName&"
 存款(含利息)："&SESSION(CacheName & "MyInfo")(26)&" 元
 今日结算利息："&Interest(1)&" 元("&Interest(0)&"天)
 持有现金："&SESSION(CacheName & "MyInfo")(7)&" 元
 个人资金总共："&Ccur(SESSION(CacheName & "MyInfo")(26))+Ccur(SESSION(CacheName & "MyInfo")(7))&" 元
"&_ "
"&_ "
"&_ ""&_ ""&_ "
存款柜台
 现金："&SESSION(CacheName & "MyInfo")(7)&" 元
存储：元  
"&_ "		"&_ "
"&_ ""&_ ""&_ "
支取柜台
 存款："&SESSION(CacheName & "MyInfo")(26)&" 元
支取 元  
"&_ "		"&_ "
"&_ ""&_ ""&_ "
转帐柜台
 把存款转帐给好友
元 给 
"&_ "
" Call MNBoard.ShowTable("论坛银行",Content) End Sub Sub Save If Coin="" Then MNBoard.Alert"失败！您还没有填写要存款的金额！","?" If Int(Coin) > Int(SESSION(CacheName & "MyInfo")(7)) Then MNBoard.Alert "失败！拜托你先看看你口袋里有多少钱行不行？别老把一毛钱当一百！","?" MNBoard.Execute("update [i_user] Set BankSave=BankSave+"&Coin&",Coin=Coin-"&Coin&" where Name='"&MNBoard.MyName&"'") Session(CacheName & "MyInfo") = Empty MNBoard.Alert"恭喜！银行存款成功","?" End sub Sub Draw If Coin="" Then MNBoard.Alert"失败！您还没有填写要取款的金额！","?" If int(Coin) > Int(SESSION(CacheName & "MyInfo")(26)) Then MNBoard.Alert "耶！这位漂亮的先生或英俊的小姐，您真是英勇无比，请问银行很好抢吗？小心飞毛腿呀你！（请注意你的存款还有多少）","?" MNBoard.Execute("update [i_user] Set BankSave=BankSave-"&Coin&",Coin=Coin+"&Coin&" where Name='"&MNBoard.MyName&"'") Session(CacheName & "MyInfo") = Empty MNBoard.Alert"恭喜！银行取款成功！","?" End Sub Sub Virement Dim ToUserName,Sms,TmpUbbString ToUserName=MNBoard.Fun.GetStr("ToUserName") IF Not MNBoard.Fun.CheckIn(ToUserName) Or ToUserName="" Then MNBoard.Alert"失败！查无此人,如果您实在想送出钱来的话,送给站长就好了！","?" If Int(Coin) > Int(SESSION(CacheName& "MyInfo")(26)) then MNBoard.Alert "失败！你是不是好心过头啦？还是人家催债催得太紧，让你自己还有多少钱都不知道？！","?" If LCase(ToUserName)=LCase(MNBoard.MyName) Then MNBoard.Alert "失败！给自己转帐很好玩吗？","?" IF MNBoard.Execute("Select Name From[i_user] where Name='"&ToUserName&"'").Eof Then MNBoard.Alert"失败！查无此人,如果您实在想送出钱来的话,送给站长就好了！","?" End if MNBoard.Execute("Update [i_user] Set BankSave=BankSave-"&Coin&" where Name='"&MNBoard.MyName&"'") Sms="天下掉下大馅饼啦,"&MNBoard.MyName&"通过友情转帐赠送您"&Coin&"元现金！您可以到社区银行柜台查收！"&vbcrlf&"
「社区银行」自动送信系统
" MNBoard.Execute("Update [i_user] Set BankSave=BankSave+"&Coin&",NewSmsNum=NewSmsNum+1,SmsSize=SmsSize+1 where Name='"&ToUserName&"'") MNBoard.execute("insert Into [i_Sms](Name,Content,MyName,MyFlag)VALUES('自动送信系统','"&Replace(Sms,"'","''")&"','"&ToUserName&"',1)") MNBoard.UpdageOnline ToUserName,1 Session(CacheName & "MyInfo") = Empty MNBoard.Alert"恭喜！转帐成功,系统已自动发信通知了您的朋友！","?" End sub %>