shida_bank_do.asp

银行+服务插件 for Dvbbs

	connPlus.execute("update bank_config set savelilv="&theupdate(0)&",daylilv="&theupdate(1)&",chubei="&theupdate(2)&",zhuanlilv="&theupdate(3)&",maxday="&theupdate(4)&",StartLixiDay="&theupdate(5)&",bankopen="&theupdate(6)&",bank_setting='"&theupdate(7)&"'")
	setAlert("修改成功!")
end sub

sub do_editlog()
	If dvbbs.usergroupid<>1 Then setAlert("您没有管理的权限")
	
	dim theupdate	
	theupdate=request.form("log_setting_0")&","&request.form("log_setting_1")&","&request.form("log_setting_2")&","&request.form("log_setting_3")&","&request.form("log_setting_4")&","&request.form("log_setting_5")
	connPlus.execute("update bank_config set log_setting='"&theupdate&"'")
	setAlert("修改成功!")
end sub

sub do_dellog()
	If dvbbs.usergroupid<>1 Then setAlert("您没有管理的权限")	
	dim thedate	
	thedate=request.form("thedate")
	connPlus.execute("delete from bank_log where DateAndTime<#"&thedate&"#")
	pageTo "删除成功","shida_bank.asp?menu=7"
end sub

sub do_editfuwu()
	If dvbbs.usergroupid<>1 Then setAlert("您没有管理的权限")
	dim theupdate(9)
	theupdate(0)=request.form("addmeili")
	theupdate(1)=request.form("addjinyan")
	theupdate(2)=request.form("addpower")
	theupdate(3)=request.form("addfatie")
	theupdate(4)=request.form("fagonggao")
	theupdate(5)=request.form("faduangxun")
	theupdate(6)=request.form("kick")
	theupdate(7)=request.form("delmail")
	theupdate(8)=request.form("addisbest")
	theupdate(9)=request.form("fuwu_setting_0")&","&request.form("fuwu_setting_1")&","&request.form("fuwu_setting_2")&","&request.form("fuwu_setting_3")&","&request.form("fuwu_setting_4")&","&request.form("fuwu_setting_5")&","&request.form("fuwu_setting_6")&","&request.form("fuwu_setting_7")&","&request.form("fuwu_setting_8")
	if theupdate(1)="" or theupdate(2)="" or theupdate(3)="" or theupdate(4)="" or theupdate(5)="" or theupdate(6)="" or theupdate(7)="" or theupdate(8)="" then setAlert("请将所有项目填写完整")
	connPlus.execute("update bank_fuwu set addmeili="&theupdate(0)&",addjinyan="&theupdate(1)&",addpower="&theupdate(2)&",addfatie="&theupdate(3)&",fagonggao="&theupdate(4)&",faduangxun="&theupdate(5)&",kick="&theupdate(6)&",delmail="&theupdate(7)&",addisbest="&theupdate(8)&",fuwu_setting='"&theupdate(9)&"'")
	setAlert("修改成功!")
end sub

sub do_adminback()
	dim theuser
	theuser=request.querystring("username")	
	set rs=connPlus.execute("select * from bank where username='"&theuser&"'")
	dim a,b,c
	c=rs("daikuang")
	if c=0 then
		setAlert("该用户没有在本行贷款。")
	end if
	b=datediff("d",Rs("dkdate"),date())
	a=clng((formatnumber(c)*(formatnumber(shida_bank(1))/100))*formatnumber(b))+c
		conn.execute("update dv_user set userWealth=userWealth-"&a&" where username='"&theuser&"'")
		connPlus.execute("update bank set daikuang=0,dkdate=#"&date()&"# where username='"&Dvbbs.Membername&"'")		
		thetext="强制"&theuser&"还清贷款，本息共计"&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
		conn.execute("insert into Dv_Message(sender,incept,title,content,sendtime,isSend) values('"&dvbbs.Membername&"','"&theuser&"','社区银行','你欠银行的钱已经被强制还清，共计"&a&"元',#"&now()&"#,1)")
			update_user_msg(theuser)
		Call pageTo("强制还款成功！","shida_bank.asp?menu=4")
end sub

sub do_jiangli()
dim sql2,i
	If dvbbs.usergroupid<>1 Then setAlert("您没有管理的权限")
	dim giveto,givemoney,theuser,liyou
	giveto=request.form("giveto")
	theuser=request.form("username")
	givemoney=request.form("givemoney")
	liyou=request.form("liyou")
	if len(liyou)>100 then setAlert("操作理由过长")
	if givemoney="" or IsNumeric(givemoney)=false Then
		setAlert("请务必输入一个数字。")
	elseif givemoney<=0 then
		setAlert("请务必输入一个大于0的数字。")
	else
		sql="update Dv_user set userWealth=userWealth+"&givemoney					
		sql2="select username from Dv_user where username=1"
		if theuser>"" then
			sql=sql&" where username='"&theuser&"'"
			thetext="奖励："&theuser&"，金额："&givemoney&"元，操作原因："&liyou					
			sql2="select username from Dv_user where username='"&theuser&"'"
			else
				select case giveto
				case 0
					thetext="奖励：所有人，金额："&givemoney&"元，操作原因："&liyou					
					sql2="select username from Dv_user"
				case 1
					sql=sql&" where usergroupid=1"
					thetext="奖励：管理员，金额："&givemoney&"元，操作原因："&liyou					
					sql2="select username from Dv_user where usergroupid=1"
				case 2
					sql=sql&" where usergroupid=8"
					thetext="奖励：贵宾，金额："&givemoney&"元，操作原因："&liyou					
					sql2="select username from Dv_user where usergroupid=8"
				case 3
					sql=sql&" where usergroupid=2"
					thetext="奖励：超级版主，金额："&givemoney&"元，操作原因："&liyou					
					sql2="select username from Dv_user where usergroupid=2"
				case 4
					sql=sql&" where usergroupid=3"
					thetext="奖励：版主，金额："&givemoney&"元，操作原因："&liyou					
					sql2="select username from Dv_user where usergroupid=3"
				case 5
					sql=sql&" where usergroupid=4"
					thetext="奖励：会员，金额："&givemoney&"元，操作原因："&liyou					
					sql2="select username from Dv_user where usergroupid=4"
				case 6
					sql=sql&" where UserLogins>20"
					thetext="奖励：登录20次以上的会员，金额："&givemoney&"元，操作原因："&liyou					
					sql2="select username from Dv_user where UserLogins>20"
				end select			
		end if
		conn.execute(sql)
			set rs=server.createobject("adodb.recordset") 
			Rs.open sql2,conn,3,2
			if Rs.recordcount>0 then
			for i=1 to Rs.recordcount
				conn.execute("insert into Dv_Message(sender,incept,title,content,sendtime,isSend) values('"&dvbbs.Membername&"','"&Rs("username")&"','银行给您发钱啦','"&thetext&"',#"&now()&"#,1)")
				update_user_msg(Rs("username"))
			Rs.MoveNext
			next
			end if
		if cint(log_setting(3))=1 then
			Call addlog(Dvbbs.Userid,Dvbbs.Membername,"奖励",thetext)
		end if
		Call pageTo("操作成功！","shida_bank.asp?menu=4")
	end if
end sub

sub do_buyfuwu()
	dim lei,str,need,i
	lei=request.form("lei")
	str=request.form("str")
		dim title,content
			title=request.form("title")
			content=request.form("content")
	if cint(shida_fuwu(lei))=0 then setAlert("本论坛未开放此项服务")
	select case lei
	case 0,1,2,3,8
		if str="" or IsNumeric(str)=false Then setAlert("请务必输入一个数字。")
		need=shida_fuwu(lei)*str
		if need>shida_bank(7) then setAlert("您的余额不足")
			conn.execute("update dv_user set userWealth=userWealth-"&need&" where username='"&Dvbbs.Membername&"'")
			select case lei
			case 0'购买魅力
				conn.execute("update dv_user set userCP=userCP+"&str&" where username='"&Dvbbs.Membername&"'")
				thetext="购买魅力"&str&"点"
			case 1'购买经验
				conn.execute("update dv_user set userEP=userEP+"&str&" where username='"&Dvbbs.Membername&"'")
				thetext="购买经验"&str&"点"
			case 2'购买威望
				conn.execute("update dv_user set UserPower=UserPower+"&str&" where username='"&Dvbbs.Membername&"'")
				thetext="购买威望"&str&"点"
			case 3'购买发贴
				conn.execute("update dv_user set UserPost=UserPost+"&str&" where username='"&Dvbbs.Membername&"'")
				thetext="购买发贴"&str&"点"
			case 8'购买精华
				conn.execute("update dv_user set UserIsBest=UserIsBest+"&str&" where username='"&Dvbbs.Membername&"'")
				thetext="购买精华"&str&"点"
			end select
			if cint(log_setting(1))=1 then
				Call addlog(Dvbbs.Userid,Dvbbs.Membername,"服务",thetext)
			end if
			Call pageTo("购买成功！","shida_bank.asp?menu=3")		
	case 6
		if str="" Then setAlert("请务必输入一个ID。")
		if shida_fuwu(6)>shida_bank(7) then setAlert("您的余额不足")
			set rs=conn.execute("select userid from Dv_user where username='"&str&"'")
			if rs.eof then setAlert("查无此人")		
				conn.execute("update dv_user set userEP=userEP-100,userCP=userCP-100 where username='"&str&"'")
				conn.execute("update dv_user set userWealth=userWealth-"&shida_fuwu(6)&" where username='"&Dvbbs.Membername&"'")
			if cint(log_setting(1))=1 then
				thetext="踢"&str&"一次"
				Call addlog(Dvbbs.Userid,Dvbbs.Membername,"服务",thetext)
			end if
			conn.execute("insert into Dv_Message(sender,incept,title,content,sendtime,isSend) values('社区银行','"&str&"','提示信息','"&Dvbbs.Membername&"花巨资请打手K了你一顿。你的经验和魅力均减去100。',#"&now()&"#,1)")
			update_user_msg(str)
			Call pageTo("Ｋ人成功！"&str&"的经验和魅力各减去100。","shida_bank.asp?menu=3")
	case 5
		if shida_fuwu(5)>shida_bank(7) then setAlert("您的余额不足")
			if title="" or content="" then setAlert("请将所有项目填写完整")
			select case str
			case 1'在线用户
				sql="select username from Dv_Online where usergroupid<>7"
			case 2'贵宾
				sql="select username from Dv_User where UserGroupID=8"			
			case 3'版主			
				sql="select username from Dv_User where UserGroupID=2 or UserGroupID=3"
			case 4'管理员
				sql="select username from Dv_User where UserGroupID=1"			
			end select
			set rs=server.createobject("adodb.recordset") 
			Rs.open sql,conn,3,2
			if Rs.recordcount>0 then
			for i=1 to Rs.recordcount
				conn.execute("insert into Dv_Message(sender,incept,title,content,sendtime,isSend) values('"&dvbbs.Membername&"','"&Rs("username")&"','"&title&"','"&content&"',#"&now()&"#,1)")
				update_user_msg(Rs("username"))
			Rs.MoveNext
			next
			end if
			conn.execute("update dv_user set userWealth=userWealth-"&shida_fuwu(5)&" where username='"&Dvbbs.Membername&"'")
			if cint(log_setting(1))=1 then
				Call addlog(Dvbbs.Userid,Dvbbs.Membername,"服务","群发短信")
			end if
			Call pageTo("短信发送成功！","shida_bank.asp?menu=3")
	case 4
		if shida_fuwu(4)>shida_bank(7) then setAlert("您的余额不足")
			if title="" or content="" then setAlert("请将所有项目填写完整")
			conn.execute("insert into Dv_BbsNews(username,boardid,title,content,addtime) values('"&dvbbs.Membername&"',"&request.form("boardid")&",'"&title&"','"&content&"',#"&now()&"#)")
			conn.execute("update dv_user set userWealth=userWealth-"&shida_fuwu(4)&" where username='"&Dvbbs.Membername&"'")
			if cint(log_setting(1))=1 then
				Call addlog(Dvbbs.Userid,Dvbbs.Membername,"服务","发布公告")
			end if
			Call pageTo("公告发布成功！","shida_bank.asp?menu=3")
	case 7
			set rs=conn.execute("select count(*) from Dv_Message where incept='"&dvbbs.Membername&"'")
			conn.execute("delete from Dv_Message where incept='"&dvbbs.Membername&"'")
			conn.execute("update dv_user set userWealth=userWealth+"&shida_fuwu(7)*Rs(0)&" where username='"&Dvbbs.Membername&"'")
			Call pageTo("删除成功！获得"&shida_fuwu(7)*Rs(0)&"元","shida_bank.asp?menu=3")	
	end select
end sub
%>