个人信息里的银行存款和股市市值看不出来

微风清扬

都是0

蛋炒饭

那是[wiki]银行[/wiki]和[wiki]股市[/wiki]的数据库没有做关联～～～

YY

5555555555，我不会，怎么办啊？那位老大指点一下？

蛋炒饭

在帖子中显示存款的方法（本修改对插件红楼钱庄有效）

注意：仅对红楼钱庄有效！

1、搜索
Response.Write SQL(40,i)
在它后面添加：
Response.Write "','"
Response.Write bankmoney(username)
2、在尾部结束符号%>前添加下列[wiki]代码[/wiki]：
'(注意：如果你更改了钱庄数据库名字，则红色代码处需做相应改动)：
function bankmoney(username)
dim cjconn,cjconnstr,cdb
dim Srs
cdb="bank/bank_db.asp"
set cjconn=server.createobject("adodb.connection")
cjconnstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath(cdb)
cjconn.open cjconnstr
set Srs=cjconn.execute("select * from bankuser where name='"&username&"'")
if not (Srs.eof or Srs.bof) then
do while not srs.eof
bankmoney=bankmoney+Srs("CurrDeposit")+Srs("TimeDeposit")
srs.movenext
loop
else
bankmoney=0
end if
Srs.close
end function
3、进后台：风格界面模板总管理->分页面模板(page_dispbbs)->界面风格->template.html(2)，找到
&nbsp;&nbsp;文章：{$article}<br>
这句之前添加一行：
{$bankmoney}
4、进后台：风格界面模板总管理->分页面模板(page_dispbbs)->界面风格->template.html(4)，在第一行找到LockPage，在后面添加,bankmoney(别忘了逗号)
再找到第7行：
//首先运行判断部分替换
这句之后添加：
if (bankmoney!='0'){
str = str.replace(/{\$bankmoney}/gi,'&nbsp;&nbsp;存款：'+bankmoney+'<br>');
}
str = str.replace(/{\$bankmoney}/gi,"");

蛋炒饭

在dispuser.asp中显示存款的方法
注意：仅对红楼钱庄有效！

1、搜索{$UserBank}，把它后面的0替换为bankmoney(username)
2、在尾部结束符号%>前添加下列代码
(注意：如果你更改了钱庄数据库名字，则红色代码处需做相应改动)：
function bankmoney(username)
dim cjconn,cjconnstr,cdb
dim Srs
cdb="bank/bank_db.asp"
set cjconn=server.createobject("adodb.connection")
cjconnstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath(cdb)
cjconn.open cjconnstr
set Srs=cjconn.execute("select * from bankuser where name='"&username&"'")
if not (Srs.eof or Srs.bof) then
do while not srs.eof
bankmoney=bankmoney+Srs("CurrDeposit")+Srs("TimeDeposit")
srs.movenext
loop
else
bankmoney=0
end if
Srs.close
end function

微风清扬

以下是引用Seven在2005-8-22 14:39:01的发言：
在帖子中显示存款的方法（本修改对插件红楼钱庄有效）

注意：仅对红楼钱庄有效！

1、搜索
Response.Write SQL(40,i)
在它后面添加：
Response.Write "','"
Response.Write bankmoney(username)
2、在尾部结束符号%>前添加下列代码：
'(注意：如果你更改了钱庄数据库名字，则红色代码处需做相应改动)：
function bankmoney(username)
dim cjconn,cjconnstr,cdb
dim Srs
cdb="bank/bank_db.asp"
set cjconn=server.createobject("adodb.connection")
cjconnstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath(cdb)
cjconn.open cjconnstr
set Srs=cjconn.execute("select * from bankuser where name='"&username&"'")
if not (Srs.eof or Srs.bof) then
do while not srs.eof
bankmoney=bankmoney+Srs("CurrDeposit")+Srs("TimeDeposit")
srs.movenext
loop
else
bankmoney=0
end if
Srs.close
end function
3、进后台：风格界面模板总管理->分页面模板(page_dispbbs)->界面风格->template.html(2)，找到
&nbsp;&nbsp;文章：{$article}<br>
这句之前添加一行：
{$bankmoney}
4、进后台：风格界面模板总管理->分页面模板(page_dispbbs)->界面风格->template.html(4)，在第一行找到LockPage，在后面添加,bankmoney(别忘了逗号)
再找到第7行：
//首先运行判断部分替换
这句之后添加：
if (bankmoney!='0'){
str = str.replace(/{\$bankmoney}/gi,'&nbsp;&nbsp;存款：'+bankmoney+'<br>');
}
str = str.replace(/{\$bankmoney}/gi,"");

原来这里还有高手啊！厉害！

YY

打了最新的补丁动网如果调用以前的修改方法会出错的，所以我不敢改啊

YY

打了最新的补丁动网如果调用以前的修改方法会出错的，所以我不敢改啊

自定义

显示出来做什么？