[转帖]论坛首页顶部个人信息栏和状态栏美化显示
下载地址：http://nevsong.3322.org/bbs/Plus/DownLoad/IndexHead.rar
把 indexhead.asp、 images/clock/*.* 和 inc/chen_riqi.asp(日历js文件,如果有这个文件就覆盖) 放到 论坛目录下
(1)修改 index.asp：
Rem 首页顶部信息
call nav()
if isnull(lastlogin) or lastlogin="" then lastlogin=now()
if Clng(Forum_OnlineNum)>Clng(Maxonline) then
conn.execute("update config set Maxonline="&allonline()&",MaxonlineDate=Now()")
end if
%>
<!--绿水青山 2003.2.2 修改开始-->
<!--#include file="IndexHead.asp"-->
<!--#include file="z_dgshow.asp"--> 这是点歌首页调用，如果没有可以删除这句
<!--绿水青山 2003.2.2 修改结束-->
<%
if Cint(Forum_setting(4))=1 then
call main_2()
else
call main_1()
end if
(2)在inc/const.asp 增加定义
Dim LastLogin,myuserep,mysex,myusercp,mymoney,mypower,myArticle,myClass
Dim myFace'绿水青山 增加 定义 头像路径 2003.02.02
Dim UserGroupID,GroupSetting
vipuser=false
boardmaster=false
superboardmaster=false
master=false
if userid<>"" and isInteger(userid) then
'绿水青山 增加 Face 字段的选择 的定义 2003.02.02
sql="select u.userclass,u.userid,u.userpassword,u.lastlogin,u.showRe,u.reAnn,u.userGroupID,g.GroupSetting,u.username,u.userWealth,u.Userep,u.Usercp,u.sex,u.UserPower,u.Article,u.face from u inner join UserGroups G on u.UserGroupID=g.UserGroupID where u.userid="&userid
set rs=conn.execute(sql) '绿水青山 增加头像路径 定义 2003.02.02
.......
mypower=rs(13)
myArticle=rs(14)
myClass=rs(0)
myFace=rs(15) '绿水青山 为 myFace 变量赋值2003.02.02
(3)在inc/char.asp增加日历文件的包含
sub nav()
%>
<html>
<head>
<META http-equiv=Content-Type content=text/html; charset=gb2312>
<meta name=keywords content="银河幻影,幻海晴空论坛,动网先锋,动网论坛,dvbbs">
<title><%=Forum_info(0)%>--<%=HTMLEncode(stats)%></title>
<!--#include file="Forum_css.asp"-->
<!--#include file="Forum_js.asp"-->
<!--#include file="chen_riqi.asp"--> <!--包含日历文件-->
</head>
帮楼主顶 支持 看不懂代码
页:
[1]