[下载]耀月银行 Version 1.0 for dvbbs 6.0.0

金光

功能创新：
　　本银行最主要有两个创新功能，1.多银行化，站长可以设定会员到达一钱的金钱条件下可以申请一个自己的私人银行（当他的条件到后，进入bank_index.asp页面时就会出现他够达条件申请银行的说明）。2.加入定期存款的概念，客户可以选择十至六十天的定期存款。
　　功能说明：
　　一、客户功能
　　客户功能都可见的，且每个专栏都有自己的说明，也就不说了。
　　二、行长办公室
　　1.修改银行基本信息：银行基本信息为该银行操作的重要依据，如销户手继费、魅力贷款倍数、转帐汇款所需的最低积分等，怕有些用户为了赚钱而滥注册，然后把新注册用户的基本金转给他常用的用户名，所以转帐汇款的最低积限制最少得为200。
　　2.行长薪水发放处或银行扩充处：如果该银行的性质为公有银行，就出现行长薪水发放处，公行行长每几天能领多少钱为站长设定；私人银行则出现四个操作项，行长可以向银行添加魅力库存和现金库存，也可以从银行库中把这两者取出，添加的将从行长的现金和所有的魅力值扣去，取出则他个人的增加，银行库存减少。
　　3.其它操作：如果该银行站长有开放事件记录，就有出现查看事件记录的按钮，否则没有。客户管理和事件记录查看都可以直接从银行的主操作界面进入，行长能在客户管理处冻结或解冻银行用户；清理到期的贷款，因为asp必须是有人点击页面链接时才执行，所以当某些用户贷款后就没有再到该银行，贷款到期后他的贷款并不会自行清理，银行也就得不到他所押的魅力值，所以必须行长手动清理了。

　　二、后台使用
　　1.银行总信息设置：银行总信息设置是对整个银行区或的基本信息进行设置，将影响所有银行的操作，设置的内容有社区虚拟货币名称等十五项。
　　2.银行管理：进入银行管理后，可以看到未开放的银行和已开放的银行，未开放的银行有两个操作——删除和开放，开放的论坛有三个操作——关闭、删除和进入修改信息。删除银行时，会把该银行下的所有客户的存款还给他们，贷款一笔勾消，当然他们也拿不回所押的魅力值。
　　3.开设新银行
　　4.用户管理：管理员如果没有登录后台，可以和银行行长同样有冻结和解冻用户的功能，登录后台后就有删除用户的功能，被删除的客户所存的款归银行所有，如果他有贷款，所押的魅力值也归银行所有。
　　5.事件查询管理：登录后台后果有删除事件记录的权限，每个银行站长都可以决定是否开放它的事件记录，在没有必要的情况下，建议不开放，因为每个操作都记录，很浪费空间。
　　特别注意：所有后台管理，管理员都必须具有论坛的管理员添加删除的权限，否则无法对银行后台进行管理。

　　本银行有两个版本，一个是用FSO的，一个是免的，其实都一样，用FSO版的只不过是把银行总信息使用另一个文件保存，不必每次都向数据库读取信息，以提高效率，用FSO版的建议最少得对asp有基本的认识，知道怎么修改一些代码，否则不要用，FSO版的出现任何问题我将不对他进行任何帮助，也就是后果自负了。
　　打包里有两个论坛的文件，一个为admin_index.asp，一个为inc/char.asp，要FSO版的还有admin_InputFile.asp，上传文件直接覆盖原来的文件就可以使用，也可以自己修改。
　　自己修改，在admin_index.asp文件里，把dim menu(7,10)改为8,10，然后在menu(7,5)="<a href=admin_bbsface.asp?orders=3 target=main>发贴表情管理</a>"后面加入以下的代码：
menu(8,0)="银行管理"
menu(8,1)="<a href=bank_admin.asp?action=ChiefMSG target=main>银行总信息设置</a>"
menu(8,2)="<a href=bank_admin.asp?action=bank target=main>银行管理</a>"
menu(8,3)="<a href=bank_reg.asp target=main>开设新银行</a>"
menu(8,4)="<a href=bank_ClientEvents.asp?bankid=0 target=_blank>用户管理</a>"
menu(8,5)="<a href=bank_ClientEvents.asp?bankid=0&action=events target=_blank>银行事件查询管理</a>"

char.asp文件，把下面的代码
elseif IsBoard=2 then
response.write HTMLEncode(stats)
else
response.write "<a href="&GetUrl&">"&GetTitle&"</a> → " & HTMLEncode(stats)
end if
改为：
elseif IsBoard=2 then
response.write HTMLEncode(stats)
elseif IsBoard=3 then
    response.write "<a href=bank_index.asp>银行列表</a> → <a href="&GetUrl&">"&GetTitle&"</a> → " & HTMLEncode(stats)
else
response.write "<a href="&GetUrl&">"&GetTitle&"</a> → " & HTMLEncode(stats)
end if
当然，要怎么在论坛加上链接就不用说了吧？

使用FSO版的在admin_InputFile.asp上加上以下的代码
sub ChiefMSG()
dim objFSO
dim fdata
dim objCountFile
on error resume next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if request("save")="" then
Set objCountFile = objFSO.OpenTextFile(Server.MapPath("plus/bank/ChiefMSG.asp"),1,True)
If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll
else
fdata=request("fdata")
Set objCountFile=objFSO.CreateTextFile(Server.MapPath("plus/bank/ChiefMSG.asp"),True)
objCountFile.Write fdata
end if
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
if err.number<>0 then
response.write "您的空间不支持FSO，请同您的空间商联系，或者查看相关权限设置<br>"&Err.Description&""
response.end
end if
%>
<form method=post action="?action=ChiefMSG">
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
<tr>
<th width="100%" class="tableHeaderText" height=25>银行总信息设置
</th>
</tr>
<tr>
<td class="forumrow">
注意：文件将被保存在你安装目录下的<B>plus/bank/ChiefMSG.asp</B>里，如果您的空间不支持<font color="red">FSO</font>，请直接编辑该文件！内容必须在《%%》之中
</td>
</tr>
<tr>
<td class="forumrow">
<textarea name="fdata" cols="100" rows="15"><%=fdata%></textarea>
</td>
</tr>
<tr>
<td class="forumrow">
<input type="reset" name="Reset" value="重新修改">
<input type="submit" name="save" value="提交修改"> 当前文件路径：<b><%=Server.MapPath("plus/bank/ChiefMSG.asp")%></b>
</td>
</tr>
</form>
</table>
<%end sub%>
然后把上面的
select case request("action")
case "email"
call email()
case "sms"
call sms()
case else
call reg()
end select
end sub
改为
select case request("action")
case "email"
call email()
case "sms"
call sms()
case "ChiefMSG"
    call ChiefMSG()
case else
call reg()
end select
end sub

注意：本版只适合dv6的所有版本。如果在以下地址下载时要求注册，请用test和密码123456进去，如果你不想在本论坛停留，请不要注册，谢谢合作。

下载地址：http://www.yaoyue.com/dispbbs.asp?boardID=13&ID=3923