马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有账号？注册
×
下载地址：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>
|
IP卡
狗仔卡
发表于 2003 年 2 月 19 日 00:00:00
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
发表于 2011 年 2 月 6 日 21:21:44
