shida_bank_do.asp

银行+服务插件 for Dvbbs

<!--#include file=conn.asp-->
<!--#include file=connPlus.asp-->
<!-- #include file=inc/const.asp -->
<!-- #include file=plus/inc/site.asp -->
<%
If Dvbbs.userid=0 Then Dvbbs.AddErrCode(6):Dvbbs.Showerr() end if
Dvbbs.LoadTemplates("plus")
ConnectionDatabase()
%>
<!-- #include file=shida_bank_config.asp -->
<%
Dvbbs.stats=menu(8)
Dvbbs.Nav()
Dvbbs.Head_var 0,0,"社区银行","shida_bank.asp"

call main()

Dvbbs.ActiveOnline()
Dvbbs.footer()
sub main
select case request("action")
	case "save"'存款
		Call do_save()
	case "get"'取款
		Call do_get()
	case "give"'转帐
		Call do_give()
	case "dai"'贷款
		Call do_dai()
	case "back"'还款
		Call do_back()
	case "adminback"'强制还款
		Call do_adminback()
	case "edituser"'管理用户
		Call do_edituser()
	case "editbank"'设置银行参数
		Call do_editbank()
	case "editlog"'设置事件参数
		Call do_editlog()
	case "editfuwu"'设置服务参数
		Call do_editfuwu()
	case "dellog"'删除事件
		Call do_dellog()
	case "jiangli"'奖励
		Call do_jiangli()
	case "buyfuwu"'服务
		Call do_buyfuwu()
end select
end sub

sub do_save()
	dim a,b
	a=request.form("savemoney")
	if a="" or IsNumeric(a)=false Then
		setAlert("请务必输入一个数字。")
	elseif a<=0 then
		setAlert("请务必输入一个大于0的数字。")
	elseif Clng(a)>Clng(shida_bank(7)) then
		setAlert("您手头的现金不足。")
	else
		a=clng(a)
		conn.execute("update dv_user set userWealth=userWealth-"&a&" where username='"&Dvbbs.Membername&"'")
		b=clng(formatnumber(shida_bank(8))*formatnumber(shida_bank(0))*formatnumber(shida_bank(15)))/100
		thetext="存入"&a&"元，获息"&b&"元"
		a=a+b
		connPlus.execute("update bank set savemoney=savemoney+"&a&",savedate=#"&date()&"# where username='"&Dvbbs.Membername&"'")
		select case cint(log_setting(4))
		case 1'全部
			Call addlog(Dvbbs.Userid,Dvbbs.Membername,"存款",thetext)
		case 2
			if a>cint(log_setting(5)) then
				Call addlog(Dvbbs.Userid,Dvbbs.Membername,"存款",thetext)
			end if		
		end select
		Call pageTo("存款成功！累计利息"&b&"元，您本次共存入"&a&"元。","shida_bank.asp")
	end if
end sub

sub do_get()
	dim a,b
	b=clng(formatnumber(shida_bank(8))*formatnumber(shida_bank(0))*formatnumber(shida_bank(15)))/100
	shida_bank(8)=shida_bank(8)+b
	a=request.form("getmoney")
	if a="" or IsNumeric(a)=false Then
		setAlert("请务必输入一个数字。")
	elseif a<=0 then
		setAlert("请务必输入一个大于0的数字。")
	elseif Clng(a)>Clng(shida_bank(8)) then
		setAlert("余额不足。")
	else
		conn.execute("update dv_user set userWealth=userWealth+"&a&" where username='"&Dvbbs.Membername&"'")
		shida_bank(8)=shida_bank(8)-a
		connPlus.execute("update bank set savemoney="&shida_bank(8)&",savedate=#"&date()&"# where username='"&Dvbbs.Membername&"'")		
		thetext="取出"&a&"元，获息"&b&"元"		
		select case cint(log_setting(4))
		case 1'全部
			Call addlog(Dvbbs.Userid,Dvbbs.Membername,"取款",thetext)
		case 2
			if a>cint(log_setting(5)) then
				Call addlog(Dvbbs.Userid,Dvbbs.Membername,"取款",thetext)
			end if		
		end select
		Call pageTo("取款成功！本次累计利息"&b&"元。","shida_bank.asp")
	end if
end sub

sub do_dai()
if Clng(shida_bank(9))>0 then setAlert("拜托，先把旧帐还给我行不行。")
	dim a,b
	b=formatnumber(shida_bank(14))*formatnumber(shida_bank(7))
	a=request.form("daimoney")
	if a="" or IsNumeric(a)=false Then
		setAlert("请务必输入一个数字。")
	elseif a<=0 then
		setAlert("请务必输入一个大于0的数字。")
	elseif Clng(a)>Clng(b) then
		setAlert("您的信用额度不允许你贷这么多钱。")
	else
		a=clng(a)
		conn.execute("update dv_user set userWealth=userWealth+"&a&" where username='"&Dvbbs.Membername&"'")
		b=clng(formatnumber(shida_bank(8))*formatnumber(shida_bank(0))*formatnumber(shida_bank(15)))/100
		connPlus.execute("update bank set daikuang="&a&",dkdate=#"&date()&"# where username='"&Dvbbs.Membername&"'")		
		thetext="贷款"&a&"元"		
		select case cint(log_setting(4))
		case 1'全部
			Call addlog(Dvbbs.Userid,Dvbbs.Membername,"贷款",thetext)
		case 2
			if a>cint(log_setting(5)) then
				Call addlog(Dvbbs.Userid,Dvbbs.Membername,"贷款",thetext)
			end if		
		end select
		Call pageTo("贷款成功！","shida_bank.asp")
	end if
end sub

sub do_back()
	if shida_bank(9)=0 then
		setAlert("噢，你走运了，银行不记得你什么时候贷过款了。")
	end if
	dim a
	a=clng((formatnumber(shida_bank(9))*(formatnumber(shida_bank(1))/100))*formatnumber(shida_bank(16)))+shida_bank(9)
	if Clng(a)>Clng(shida_bank(7)) then
		setAlert("你的现金已经不足以偿还这些债务。\r赶快想办法找人借钱去吧。\r否则你的帐户将被冻结。"&shida_bank(7))
	else
		conn.execute("update dv_user set userWealth=userWealth-"&a&" where username='"&Dvbbs.Membername&"'")
		connPlus.execute("update bank set daikuang=0,dkdate=#"&date()&"# where username='"&Dvbbs.Membername&"'")		
		thetext="还贷，本息共计"&a&"元"		
		select case cint(log_setting(4))
		case 1'全部
			Call addlog(Dvbbs.Userid,Dvbbs.Membername,"还贷",thetext)
		case 2
			if a>cint(log_setting(5)) then
				Call addlog(Dvbbs.Userid,Dvbbs.Membername,"还贷",thetext)
			end if		
		end select
		Call pageTo("还款成功！","shida_bank.asp")
	end if
end sub

sub do_give()
if Clng(shida_bank(9))>0 then setAlert("拜托，先把旧帐还给我行不行。")
	dim a,b,giveto
	a=request.form("givemoney")
	giveto=request.form("giveto")
	if a="" or IsNumeric(a)=false Then
		setAlert("请务必输入一个数字。")
	elseif a<=0 then
		setAlert("请务必输入一个大于0的数字。")
	else
		a=clng(a)
		b=clng(a*(1+formatnumber(shida_bank(2))/100))
		if Clng(a)>Clng(shida_bank(8)) then
			setAlert("你在本行的存款余额不足。")
		else
		set rs=conn.execute("select userWealth from Dv_user where username='"&giveto&"'")
		if rs.eof then setAlert("查无此人")		
			conn.execute("update dv_user set userWealth=userWealth+"&a&" where username='"&giveto&"'")
			connPlus.execute("update bank set savemoney=savemoney-"&b&" where username='"&Dvbbs.Membername&"'")		
			thetext="转帐给"&giveto&"，金额："&a&"元，手续费："&(b-a)&"元"
			conn.execute("insert into Dv_Message(sender,incept,title,content,sendtime,isSend) values('社区银行','"&giveto&"','社区银行提示信息','"&Dvbbs.Membername&"给你转来了社区币"&a&"元，请在你的社区帐号查收',#"&now()&"#,1)")
			update_user_msg(giveto)		
			select case cint(log_setting(4))
			case 1'全部
				Call addlog(Dvbbs.Userid,Dvbbs.Membername,"转帐",thetext)
			case 2
				if a>cint(log_setting(5)) then
					Call addlog(Dvbbs.Userid,Dvbbs.Membername,"转帐",thetext)
				end if		
			end select
			Call pageTo("转帐成功！","shida_bank.asp")
		end if
	end if
end sub

sub do_edituser()
	If dvbbs.usergroupid<>1 Then setAlert("您没有管理的权限")
	dim theupdate(4)
	theupdate(0)=request.form("username")
	theupdate(1)=request.form("savemoney")
	theupdate(2)=request.form("daikuang")
	theupdate(3)=request.form("dkedu")
	if request.form("lock")=1 then
	theupdate(4)=True
	else
	theupdate(4)=false
	end if
	if theupdate(1)="" or theupdate(2)="" or theupdate(3)="" then setAlert("请将所有项目填写完整")
	connPlus.execute("update bank set savemoney="&theupdate(1)&",daikuang="&theupdate(2)&",dkedu="&theupdate(3)&",lock="&theupdate(4)&" where username='"&theupdate(0)&"'")
	setAlert("修改成功!")
end sub

sub do_editbank()
	If dvbbs.usergroupid<>1 Then setAlert("您没有管理的权限")
	dim theupdate(7)
	theupdate(0)=request.form("savelilv")
	theupdate(1)=request.form("daylilv")
	theupdate(2)=request.form("chubei")
	theupdate(3)=request.form("zhuanlilv")
	theupdate(4)=request.form("maxday")
	theupdate(5)=request.form("StartLixiDay")
	if request.form("bankopen")=1 then
	theupdate(6)=True
	else
	theupdate(6)=false
	end if
	theupdate(7)=request.form("bank_setting_0")&","&request.form("bank_setting_1")&","&request.form("bank_setting_2")&","&request.form("bank_setting_3")&","&request.form("bank_setting_4")&","&request.form("bank_setting_5")&","&request.form("bank_setting_6")
	if theupdate(1)="" or theupdate(2)="" or theupdate(3)="" or theupdate(4)="" or theupdate(5)="" then setAlert("请将所有项目填写完整")