<%
Dvbbs.LoadTemplates("")
dim sucmsg,boardid

	dim culi,daili,zhuangli,chubei,daitian,dmoney
	dim bankstate,bank_setting,bankuser_setting
	dim log_setting	   '银行操作事件,记录全部事件,保存最新事件条数,记录管理事件
	dim content
	dim wenzhang

	set rs=server.createobject("adodb.recordset")
	sql="select * from [info]"
	rs.open sql,conn1,1,3
	culi=rs("savedayli")     '存款利息
	daili=rs("ddayli")       '贷款利息
	zhuangli=rs("zzli")      '转帐利息 
	chubei=rs("chubei")      '银行储备 
	daitian=rs("dkday")      '贷款天数限制   
	wenzhang=rs("wzs")       '转帐所需文章数
	bankstate=rs("state")    '银行当前状态   1-营业   0-关闭       我来了添加 2002.11.30
	bank_setting=split(rs("bank_setting"),",")    ' 我来了添加 2002.11.30
	log_setting=split(rs("log_setting"),",")    ' 我来了添加 2002.11.30
    rs.close


dim userWealth,userEP,userCP,userPower,userPost
sql="select userWealth,userEP,userCP,userPower,userPost from [dv_user] where UserName='"&Dvbbs.Membername&"'"
Set Rs=Dvbbs.Execute(Sql)
userWealth=rs("userWealth")
userEP=rs("userEP")
userCP=rs("userCP")
userPower=rs("userPower")
userPost=rs("userPost")
rs.close
	
Rem 判断数字是否整形
Function isInteger(Para)
isInteger=False
If Not (IsNull(Para) Or Trim(Para)="" Or Not IsNumeric(Para)) Then
isInteger=True
End If
End Function

sub bankhead()
%>
<br>
<table cellspacing=1 cellpadding=3 align=center class=tableborder1>
	<tr>
		<td align=left valign=middle class=TopLighNav1> <a href=z_bank.asp><font color=navy>银行营业大厅</font></a>&nbsp;&nbsp;&nbsp;&nbsp;<a href=z_bank.asp?menu=1><font color=navy>社区二十大富翁</font></a>&nbsp;&nbsp;&nbsp;&nbsp;<a href=z_bank.asp?menu=2><font color=navy>银行二十大储户</font></a>&nbsp;&nbsp;&nbsp;&nbsp;<a href=z_bank_fuwu.asp><font color=navy>社区服务</font></a></td>
		<%if dvbbs.master then%><td align=right valign=middle class=TopLighNav1> <a href="z_bank.asp?menu=8"><font color=red>银行管理中心</font></a>&nbsp;&nbsp;&nbsp;&nbsp;<a href=z_bank_user.asp><font color=red>储户管理</font></a>&nbsp;&nbsp;&nbsp;&nbsp;<a href=z_bank_fuwu.asp?menu=9><font color=red>服务管理中心</font></a><%end if%><%if dvbbs.master or cint(log_setting(6))=1 then%><%if not dvbbs.master then%><td align=center valign=middle class=TopLighNav1><%end if%>&nbsp;&nbsp;&nbsp;<a href=z_bank.asp?menu=13 title=查看银行服务事件记录><font color=blue>事件</font><%end if%></a></td> 
	</tr> 
</table>
<br>
<%
end sub
'-------------------------------出错信息-------------------------------
sub bank_err() 
%>
<table cellspacing=1 cellpadding=3 align=center class=tableborder1 style="width:75%">
	<tr><th height=25>银行错误信息</th></tr>
	<tr><td width="100%" class=tablebody1><b>产生错误的可能原因：</b><br><br><li>您是否仔细阅读了<a href="boardhelp.asp?boardid=<%=dvbbs.boardid%>">帮助文件</a>，可能您还没有登陆或者不具有使用当前功能的权限
	<font color=red><%=errmsg%></font><br></td></tr>
	<tr><td align=center height=26 class=tablebody2><a href="javascript:history.go(-1)">返回上一页</a></td></tr>
</table>
<%
end sub

'-------------------------------成功信息-------------------------------
sub bank_suc() 
%>
<table cellspacing=1 cellpadding=3 align=center class=tableborder1 style="width:75%">
	<tr><th height=25>银行操作成功</th></tr>
	<tr><td width="100%" class=tablebody1><b>操作成功：</b><br><br><li>欢迎光临<%=dvbbs.Forum_info(0)%>电子银行
	<font color=navy><%=sucmsg%></font><br></td></tr>
	<tr><td align=center height=26 class=tablebody2><a href=<%=Request.ServerVariables("HTTP_REFERER")%>>返回上一页</a></td></tr>
</table>
<%
end sub

sub logs(lclass,title,userN)
'我来了 2002.12.01 写入事件
	if dvbbs.UserID="" or (not isnumeric(dvbbs.UserID)) then UserID=0
	if content="" then content="可疑的操作"
	conn1.execute("insert into log ([class],UserName,UserID,Title,content,DateAndTime,IP) values('"&lclass&"','"&userN&"',"&dvbbs.UserID&",'"&Title&"','"&content&"',now(),'"&Request.ServerVariables("REMOTE_ADDR")&"')")
end sub
%>

