13521 查看 36 回复

主题：仿官方7.5论坛之顶部登陆框 [收藏主题]

转到：

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:悠客 性别:男 积分:996分 威望:426 帖子:213 精华:4 广播:15 粉丝:7 登录次数:401 次 注册时间:2010/11/8 17:58:46 最后登录:2019/10/28 9:06:28 悠客 当前离线 213 主题 15 广播 7 粉丝 级别:二年级 用户积分:996 分 登录次数:401 次 注册时间:2010/11/8 最后登录:2019/10/28	悠客 发表于：2011/6/24 10:53:18   | 只看该作者 查看该作者主题 楼主  一分钟快速开通线上知识店铺 感觉官方现在的论坛顶部登陆框效果还不错，那就改吧。 下面是修改方法： 打开Ks_Cls/ClubFunction.asp，查找 复制代码 Sub GetClubPopLogin(ByRef FileContent)  If Instr(FileContent,"{#GetClubPopLogin}")=0 Then Exit Sub  Dim Str  If KS.IsNul(KS.C("UserName")) And KS.IsNul(KS.C("PassWord")) Then    Str="您好,欢迎进入" & KS.Setting(0) & "! [<a href=""javascript:void(0)"" ""ShowLogin()"">登录</a>] | [<a href='" & KS.GetDomain & "?do=reg' target='_blank'>免费注册</a>]"  Else    Dim GetMailTips,MyMailTotal:MyMailTotal=GCls.Execute("Select Count(ID) From KS_Message Where Incept='" &KS.C("UserName") &"' And Flag=0 and IsSend=1 and delR=0")(0)    IF MyMailTotal>0 Then    GetMailTips="<span style=""color:red"">" & MyMailTotal & "</span><bgsound src=""" & KS.GetDomain & "User/images/mail.wav"" border=0>"     Else    GetMailTips=0    End If    Str="您好！<span style='color:red'>" & KS.C("UserName") & "</span>,欢迎来到会员中心!【<a href='" & KS.GetDomain & "user/'>会员中心</a>】【<a href='" & KS.GetDomain & "user/user_mytopic.asp?action=fav'>我收藏的帖子</a>】【<a href='" & KS.GetDomain & "user/user_Message.asp?action=inbox'>短消息"&GetMailTips&"</a>】【<a href='" & KS.GetDomain & "User/UserLogout.asp'>退出</a>】"        Dim KSUser:Set KSUser=New UserCls  KSUser.UserLoginChecked     If KS.ChkClng(KS.U_S(KSUser.GroupID,8))>0 and KS.ChkClng(KS.U_S(KSUser.GroupID,9))>0 And datediff("n",KSUser.GetUserInfo("LastLoginTime"),now)>=KS.ChkClng(KS.U_S(KSUser.GroupID,8)) then '判断积分奖励时间      str=str & "<script>popShowMessage('" & KS.Setting(3) & KS.Setting(66) &"','" & KS.U_S(KSUser.GroupID,8) & "分钟后重新登录，奖励积分 +" & KS.U_S(KSUser.GroupID,9) & "分！');</script>"   Call KS.ScoreInOrOut(KSUser.UserName,1,KS.ChkClng(KS.U_S(KSUser.GroupID,9)),"系统",KS.ChkClng(KS.U_S(KSUser.GroupID,8)) & "分钟后,重新登录奖励获得",0,0)    Conn.Execute("Update KS_User Set LastLoginTime=" & SQLNowString & " Where UserName='" & KSUser.UserName & "'")    If IsObject(Session(KS.SiteSN&"UserInfo")) Then Session(KS.SiteSN&"UserInfo").DocumentElement.SelectSingleNode("row").SelectSingleNode("@lastlogintime").Text=now  ElseIf Not KS.IsNUL(Session("PopTips")) Then      str=str & "<script>popShowMessage('" & KS.Setting(3) & KS.Setting(66) &"','" & Session("PopTips") & "！');</script>"   Session("PopTips")=""  End if  Set KSUser=Nothing  End If    FileContent=Replace(FileContent,"{#GetClubPopLogin}",str) End Sub 整段替换为 以下内容只有回复后才可以浏览,请先登录！ 相关样式请下载官方的club.css文件，对照修改即可。
	科汛商学院助您快速入门
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:sst89jiemi 性别:女 积分:196分 威望:329 帖子:125 精华:0 广播:6 粉丝:0 登录次数:124 次 注册时间:2010/7/27 17:24:14 最后登录:2015/8/5 21:46:21 sst89jiemi 当前离线 125 主题 6 广播 0 粉丝 级别:一年级 用户积分:196 分 登录次数:124 次 注册时间:2010/7/27 最后登录:2015/8/5	sst89jiemi 发表于：2011/6/24 10:55:18   | 只看该作者 查看该作者主题 沙发  一分钟快速开通线上知识店铺 学习你的方法
	中药饮片http://www.qyzyc.com 黄花菜http://www.hncyyg.com 黄花菜种苗http://www.chinalinguo.com 一分钟快速开通线上知识店铺
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:doufapj 性别:男 积分:273分 威望:419 帖子:209 精华:0 广播:0 粉丝:0 登录次数:66 次 注册时间:2011/3/21 15:29:30 最后登录:2011/6/30 10:05:07 doufapj 当前离线 209 主题 0 广播 0 粉丝 级别:二年级 用户积分:273 分 登录次数:66 次 注册时间:2011/3/21 最后登录:2011/6/30	doufapj 发表于：2011/6/24 15:00:10   | 只看该作者 查看该作者主题 藤椅  做官网 就用科汛智能建站系统! 这个也是问题啊
	<a href=http://www.13938920190.com>豆腐皮机</a>http://www.13938920190.com 做新职业技能培训平台 就选#科汛网校
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:z254918857 性别: 积分:13分 威望:23 帖子:11 精华:0 广播:0 粉丝:0 登录次数:6 次 注册时间:2011/6/24 13:07:05 最后登录:2014/1/4 2:43:56 z254918857 当前离线 11 主题 0 广播 0 粉丝 级别:学前班 用户积分:13 分 登录次数:6 次 注册时间:2011/6/24 最后登录:2014/1/4	z254918857 发表于：2011/6/24 17:28:24   | 只看该作者 查看该作者主题 板凳  做考试题库 就用#科汛在线考试系统!
	有课程 找生源 就上科汛课堂街
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:soyoxi 性别:男 积分:1659分 威望:908 帖子:278 精华:0 广播:1 粉丝:0 登录次数:246 次 注册时间:2010/2/8 12:42:00 最后登录:2012/8/16 22:36:59 soyoxi 当前离线 278 主题 1 广播 0 粉丝 级别:二年级 用户积分:1659 分 登录次数:246 次 注册时间:2010/2/8 最后登录:2012/8/16	soyoxi 发表于：2011/6/24 21:44:34   | 只看该作者 查看该作者主题 报纸  一分钟快速开通线上知识店铺 看看
	做考试题库 就用#科汛在线考试系统!
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:otbbs 性别:女 积分:8980分 威望:8499 帖子:1605 精华:3 广播:12 粉丝:2 登录次数:1225 次 注册时间:2006/8/7 17:54:00 最后登录:2023/11/29 19:21:06 otbbs 当前离线 1605 主题 12 广播 2 粉丝 级别:高一年 用户积分:8980 分 登录次数:1225 次 注册时间:2006/8/7 最后登录:2023/11/29	otbbs 发表于：2011/6/24 23:01:11   | 只看该作者 查看该作者主题 地板  有生源 找课程 就上科汛课堂街!
	一分钟快速开通线上知识店铺
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:ganjing 性别:男 积分:94分 威望:71 帖子:34 精华:0 广播:1 粉丝:0 登录次数:39 次 注册时间:2011/5/9 10:27:33 最后登录:2017/2/17 11:34:44 ganjing 当前离线 34 主题 1 广播 0 粉丝 级别:学前班 用户积分:94 分 登录次数:39 次 注册时间:2011/5/9 最后登录:2017/2/17	ganjing 发表于：2011/6/25 10:39:22   | 只看该作者 查看该作者主题 7楼  一分钟快速开通线上知识店铺
	做官网 就用科汛智能建站系统!
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:7715000 性别:男 积分:442分 威望:346 帖子:166 精华:0 广播:3 粉丝:0 登录次数:168 次 注册时间:2011/5/23 19:52:47 最后登录:2013/3/15 16:29:58 7715000 当前离线 166 主题 3 广播 0 粉丝 级别:一年级 用户积分:442 分 登录次数:168 次 注册时间:2011/5/23 最后登录:2013/3/15	7715000 发表于：2011/6/25 11:29:53   | 只看该作者 查看该作者主题 8楼  做考试题库 就用#科汛在线考试系统!
	一分钟快速开通线上知识店铺
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:jdwldao 性别: 积分:772分 威望:1319 帖子:370 精华:0 广播:0 粉丝:0 登录次数:30 次 注册时间:2011/6/25 14:48:33 最后登录:2012/8/20 12:30:43 jdwldao 当前离线 370 主题 0 广播 0 粉丝 级别:三年级 用户积分:772 分 登录次数:30 次 注册时间:2011/6/25 最后登录:2012/8/20	jdwldao 发表于：2011/6/25 15:06:01   | 只看该作者 查看该作者主题 9楼  做官网 就用科汛智能建站系统!
	军刀网站[/url][/b] http://www.cikejp.com 户外刀具[/url][/b] http://www.zyjp8.com/ 大马士革钢[/url][/b] http://www.xkjpw.com/ 军品网[/url][/b] http://www.tpyjp.com/ 一分钟快速开通线上知识店铺
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:ezhai200815 性别:男 积分:2267分 威望:307 帖子:252 精华:0 广播:0 粉丝:0 登录次数:237 次 注册时间:2010/6/5 18:28:00 最后登录:2016/5/21 12:05:29 ezhai200815 当前离线 252 主题 0 广播 0 粉丝 级别:二年级 用户积分:2267 分 登录次数:237 次 注册时间:2010/6/5 最后登录:2016/5/21	ezhai200815 发表于：2011/6/26 20:13:38   | 只看该作者 查看该作者主题 10楼  做线上考试培训 就选#科汛网校 顶一下
	五洲教育网，科汛系统制造www.wuzhou99.com 做官网 就用科汛智能建站系统!
	支持(0) | 反对(0) 顶端 底部

＜上一主题 | 下一主题 ＞

<< 返回列表 首 页 1 2 3 4下一页