找回密码
 注册
【阿里云】2核2G云新老同享 99元/年,续费同价华为云精选云产品特惠做网站就用糖果主机Jtti,新加坡服务器,美国服务器,香港服务器
查看: 1139|回复: 2

[转帖]论坛首页顶部个人信息栏和状态栏美化显示

[复制链接]
发表于 2003 年 2 月 19 日 00:00:00 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?注册

×

下载地址: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 [user] 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>
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
发表于 2011 年 2 月 6 日 21:21:44 | 显示全部楼层
【腾讯云】2核2G云服务器新老同享 99元/年,续费同价
帮楼主顶           支持
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

发表于 2011 年 5 月 13 日 10:56:04 | 显示全部楼层
看不懂代码
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|金光论坛

GMT+8, 2024 年 11 月 19 日 22:54 , Processed in 0.018915 second(s), 22 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表