感觉官方现在的论坛顶部登陆框效果还不错，那就改吧。
下面是修改方法：
打开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)
顶端 
底部
![电子邮件:[ 504676@qq.com ]](http://bbs.kesion.com/club/images/email.gif){kind=small}
sst89jiemi 发表于：2011/6/24 10:55:18 | 只看该作者 查看该作者主题
沙发 
