归纳整理了“盗帅留香”的帖子中提到的修改方法，补充了自己的实际使用经验安装成功，提示：本人没装宠物和虚拟形象插件，如有冲突请改回原文件，或直接安装ASHI009的银行插件将更为方便http://www.leadbbs.com/a/a.asp?B=10&ID=1117766&q=1&r=507990。 感谢各位插件作者的辛勤劳动，希望再接再厉。
PS：我现在用的是ashi009的银行插件，当初因为GAFC的没法显示，就装了ashi009的这个，后来研究出来了，就懒得换回去了，但GAFC那个也没闲着，我保留了他的银行里的社区服务功能，存款显示处改成了获奖显示，呵呵。
[HIDDEN]1.打开Announce/announce.asp文件，查找如下语句
If Rs > 4 Then
If GetData_2(38,For1) > 0 and cCur(GetData_2(1,For1)) = 0 Then
DisplayDataPage For1,For1,StepValue,GetData_2
改成:
[COLOR=red]If Rs > 8 Then
If GetData_2(38,For1) > 0 and cCur(GetData_2(1,For1)) = 0 Then
DisplayDataPage For1,For1,StepValue,GetData_2[/COLOR]
2、查找
Main
%>
3、在它的前面加入
'取出用户存款
[COLOR=red]function bankmoney(Bname)
dim rsbank,connbank,connstrPlus,Bsql
Set connbank = Server.CreateObject("ADODB.Connection")
connstrPlus="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.MapPath("../plug-ins/bank/data/bank.mdb")
connbank.Open connstrPlus
Bsql = "select * from bank where username='"&Bname&"'"
set rsbank=connbank.execute(Bsql)
if not rsbank.eof then
bankmoney = rsbank("savemoney")
else
bankmoney = "0"
end if
end function[/COLOR]
3、再查找到：Response.Write "注册：" & Mid(RestoreTime(GetData(30,n)),1,10) & "<br>"
在它下面插入：[COLOR=red]Response.Write "<font color=blue>存款：" & bankmoney(GetData(14,n)) & "</font><br>"[/COLOR]
4.再查找：
document.write("" + DEF_PointsName + "：" + G26 + "<br>");
在它下面插入：
[COLOR=red]document.Write ("存款：<font color=blue>" + bankmoney(GetData(14,n)) + "</font> <br>");[/COLOR]
[B][COLOR=red]祝你成功！[/COLOR][/B][em07][/HIDDEN] | 
