shida_bank_config.asp

银行+服务插件 for Dvbbs

<%
dim rs,sql
dim shida_bank(21),menu(8),themenu,thetext,shida_fuwu(8)
dim bank_setting,log_setting,bank_opentime,fuwu_setting
	menu(0)="营业大厅"
	menu(1)="社区富翁排行榜"
	menu(2)="银行储户排行榜"
	menu(3)="社区服务"
	menu(4)="银行管理中心"
	menu(5)="储户管理"
	menu(6)="服务管理中心"
	menu(7)="事件"
	menu(8)="操作提示"
set rs=server.createobject("adodb.recordset")
    sql="select * from bank_config"
    rs.open sql,connPlus,1,3
    shida_bank(0)=rs("savelilv")     '存款利息
    shida_bank(1)=rs("daylilv")       '贷款利息
    shida_bank(2)=rs("zhuanlilv")		 '转帐利息 
    shida_bank(3)=rs("chubei")		 '银行储备 
    shida_bank(4)=rs("maxday")		 '贷款天数限制   
	shida_bank(5)=rs("bankopen")    '银行当前状态   True-营业   false-关闭 
	shida_bank(6)=rs("StartLixiDay")    '计息计算时间
	bank_setting=split(rs("bank_setting"),",") 
	'bank_setting(0)银行开放时间,bank_setting(1)初始贷款额度,bank_setting(2)银行开放时间-0全天-1定时,bank_setting(3)存款是否开通,bank_setting(4)贷款是否开通,bank_setting(5)取款是否开通,bank_setting(6)转帐是否开通
	log_setting=split(rs("log_setting"),",")
	bank_opentime=split(bank_setting(0),"||")	'银行营业起始时间
		if cint(bank_setting(2))=1 and (hour(time)<cint(bank_opentime(0)) or hour(time)>cint((bank_opentime(1)))) then
			shida_bank(5)=false
		end if
    rs.close
	set rs=conn.execute("select userWealth,userCP,userEP,UserPower,UserIsBest,UserPost from Dv_user where  username='"&Dvbbs.Membername&"'")
	shida_bank(7)=rs("userWealth")'用户现有金钱数
	shida_bank(17)=rs("userEP")'经验
	shida_bank(18)=rs("userCP")'魅力
	shida_bank(19)=rs("UserPost")'发贴
	shida_bank(20)=rs("UserPower")'威望
	shida_bank(21)=rs("UserIsBest")'精华
	rs.close
	set rs=connPlus.execute("select * from bank where username='"&Dvbbs.Membername&"'")
	if not rs.eof then
	shida_bank(8)=rs("savemoney")'用户存款
	shida_bank(9)=rs("daikuang")'用户贷款
	shida_bank(10)=rs("savedate")'存款日期
	shida_bank(11)=rs("dkdate")'贷款日期
	shida_bank(12)=rs("lasttime")'上次访问
	shida_bank(13)=rs("lock")'是否锁定
	shida_bank(14)=rs("dkedu")'贷款额度
	shida_bank(15)=datediff("d",shida_bank(10),date())'存款天数
	shida_bank(16)=datediff("d",shida_bank(11),date())'贷款天数
	else'自动开户
	connPlus.execute("insert into bank(userid,username,dkedu) values("&Dvbbs.Userid&",'"&Dvbbs.Membername&"',"&bank_setting(1)&")")
	shida_bank(8)=0
	shida_bank(9)=0
	shida_bank(10)=date()
	shida_bank(11)=date()
	shida_bank(12)=now()
	shida_bank(13)=false
	shida_bank(14)=1
	shida_bank(15)=0
	shida_bank(16)=0
	end if
	rs.close
    sql="select * from bank_fuwu"
    rs.open sql,connPlus,1,3
	shida_fuwu(0)=Rs("addmeili")'魅力单价
	shida_fuwu(1)=Rs("addjinyan")'经验单价
	shida_fuwu(2)=Rs("addpower")'威望单价
	shida_fuwu(3)=Rs("addfatie")'发贴单价
	shida_fuwu(4)=Rs("fagonggao")'公告单价
	shida_fuwu(5)=Rs("faduangxun")'群发短信单价
	shida_fuwu(6)=Rs("kick")'踢人单价
	shida_fuwu(7)=Rs("delmail")'删除短信单价
	shida_fuwu(8)=Rs("addisbest")'精华单价
	fuwu_setting=split(rs("fuwu_setting"),",") 
	if request.querystring("menu")="" then
		themenu=0
	else
		themenu=request.querystring("menu")
	end if	
sub bank_menu()
%> 
<style type="text/css">
<!--
a.h {
	font-size: 13px;
	color: #000000;
	font-weight: 700;
}
a.h:hover {
	font-size: 13px;
	color: #FFFFFF;
	font-weight: 700;
	text-decoration: none;
}
-->
</style>
<table border=0 align=center cellpadding=0 cellspacing=0 width=100%>
  <tr> 
    <td align="center"><a href="?menu=0" class="h"><%= menu(0) %></a>　　<a href="toplist.asp?orders=3" target="_blank" class="h"><%= menu(1) %></a>　　<a href="?menu=2" class="h"><%= menu(2) %></a>　　<a href="?menu=3" class="h"><%= menu(3) %></a></td><td align="center">
    <% If dvbbs.usergroupid=1 Then %>
	<a href="?menu=4" class="h"><%= menu(4) %></a>　　<a href="?menu=5" class="h"><%= menu(5) %></a>　　<a href="?menu=6" class="h"><%= menu(6) %></a>　　<a href="?menu=7" class="h"><%= menu(7) %>
	<%elseif cint(log_setting(2))=1 then%>
	<a href="?menu=7" class="h"><%= menu(7) %></a>
	<% End If %></td>
  </tr>
</table>
<%
end sub

sub addlog(theuserid,theusername,theclass,theTitle)
	if cint(log_setting(0))=1 then'如果开启了记录事件的功能
		dim ip
		ip=Request.ServerVariables("REMOTE_ADDR")
		connPlus.execute("insert into bank_log(userid,username,class,Title,IP) values("&theuserid&",'"&theusername&"','"&theclass&"','"&theTitle&"','"&ip&"')")
	end if
end sub
sub jycopyright()
response.write"<br><center>本插件由[<a href=http://bbs.shidabbs.com/bbs/ target=_blank>精益工作室</a>]友情提供</center>"
end sub

Function update_user_msg(username)
	Dim msginfo
	If newincept(username)>0 Then
		msginfo=newincept(username) & "||" & inceptid(1,username) & "||" & inceptid(2,username)
	Else
		msginfo="0||0||null"
	End If
	Dvbbs.Execute("update [dv_user] set UserMsg='"&dvbbs.CheckStr(msginfo)&"' where username='"&dvbbs.CheckStr(username)&"'")
End Function
'统计留言
Function newincept(iusername)
	Dim thers
	set thers=conn.Execute("Select Count(*) from dv_Message Where flag=0 and issend=1 and delR=0 And incept='"& iusername &"'")
	newincept=thers(0)
	Set thers=Nothing
	If IsNull(newincept) Then newincept=0
End Function
Function inceptid(stype,iusername)
	Dim ars
	set ars=conn.Execute("Select top 1 id,sender from dv_Message Where flag=0 and issend=1 and delR=0 And incept ='"& iusername &"'")
	if stype=1 then
	inceptid=ars(0)
	else
	inceptid=ars(1)
	end if
	set ars=nothing
End Function
%>