仿官方7.5论坛之顶部登陆框-领先建站CMS提供服务商我们专注于CMS建站产品的研发

12889 查看	36 回复

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

转到：

悠客当前离线

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)

顶端

底部

＜上一主题 | 下一主题＞

首页 1 2 3 4 末页下一页