账号通
    

账号  

密码  

7591

查看

13

回复
主题:V8 登录标签{$GetPopLogin} 增加qq及支付宝登录的修改方法 [收藏主题] 转到:  
科汛官方 当前离线

47268

主题

145

广播

405

粉丝
添加关注
级别:管理员

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
科汛官方 发表于:2011/10/19 21:12:40   | 显示全部帖子 查看该作者主题 楼主 

V8 版本全面支持qq及支付宝快捷登录了,但只有通过{$GetUserLoginByScript}调用的标签才支持,其它登录需要需要自己修改。现将用{$GetPopLogin}标签调用的弹窗登录标签修改如下:



打开user/userlogin.asp



找到

'给$.getScript弹出窗口用

  Sub GetPoploginStr()

   Dim Str

   str="<table id=""PopLogin"" style=""font-size:14px;line-height:180%"" width=""100%"" height=""184"" cellpadding=""0"" cellspacing=""0"" border=""0""><tr><td><table border=""0"" width=""95%"" align=""center""><tr><td style=""border-right:solid 1px #cccccc"">没有账号?<a href=""" & KS.GetDomain & "?do=reg"" target=""_blank"">现在注册</a><br/>密码忘了, <a href=""" & KS.GetDomain &"user/getpassword.asp""  target=""_blank"">我要找回</a> <br /></td><td style=""text-align:left""><div style=""font-size:14px;color:#336699;font-weight:bold"" class=""logintitle"">用户登录</div><span>用户账号:</span><input type=""text"" name=""Username"" class=""textbox""><br /><span>登录密码:</span><input type=""password"" name=""Password"" class=""textbox""><br/>"

   If KS.Setting(34)="1" Then

   str=str & "<span>附加字符:</span><span style=""position: relative;""><input name=""Verifycode""  maxlength=""6"" size=""5"" class=""textbox""if(!seccodefocus) {document.getElementById(\'codebox0\').style.display=\'none\';}""  id=""Verifycode"" showverifycode(0)""  autocomplete=""off""/><div class=""verifybox""  style=""position:absolute;display:none;cursor: pointer;width: 124px; height: 44px;left:0px;top:40px;z-index:10009;padding:0;"" id=""codebox0""seccodefocus = 0""seccodefocus = 1""><img width=""145"" src=""" & KS.GetDomain & "plus/verifycode.asp?time=0.001"" id=""vcodeimg0"" title=""看不清点这里刷新""showverifycode(0)""/></div></span><br/>"

   End If

   Str=Str & "<input type=""submit""return(CheckLoginForm())"" value="" 登 录 "" name=""submit""><input name=""ExpiresDate"" type=""checkbox"" id=""ExpiresDate"" value=""checkbox""> <span>永久登录</span></td></tr></table></td></tr></table>"

         KS.Die "var userpop={""str"":'" & str & "'}"

  End Sub







并改成



  '给$.getScript弹出窗口用

  Sub GetPoploginStr()

   Dim Str

   str="<table id=""PopLogin"" style=""font-size:14px;line-height:180%"" width=""100%"" height=""184"" cellpadding=""0"" cellspacing=""0"" border=""0""><tr><td><table border=""0"" width=""95%"" align=""center""><tr><td style=""border-right:solid 1px #cccccc"">没有账号?<a href=""" & KS.GetDomain & "?do=reg"" target=""_blank"">现在注册</a><br/>密码忘了, <a href=""" & KS.GetDomain &"user/getpassword.asp""  target=""_blank"">我要找回</a> <br />"

   if cbool(API_QQEnable) then

     str=str & " <a href=""" & KS.GetDomain & "api/qq/redirect_to_login.asp""><img align=""absmiddle"" src=""" & KS.GetDomain &"api/qq/img/logo_style2.png"" /></a>"

    End If

    if cbool(API_AlipayEnable) Then

     str=str & "  <a href=""" & KS.GetDomain & "api/alipay/alipay_auth_authorize.asp""><img align=""absmiddle"" src=""" & KS.GetDomain &"api/alipay/alipay_button.gif"" /></a>"

             End If

   Str=Str & "</td><td style=""text-align:left""><div style=""font-size:14px;color:#336699;font-weight:bold"" class=""logintitle"">用户登录</div><span>用户账号:</span><input type=""text"" name=""Username"" class=""textbox""><br /><span>登录密码:</span><input type=""password"" name=""Password"" class=""textbox""><br/>"

   If KS.Setting(34)="1" Then

   str=str & "<span>附加字符:</span><span style=""position: relative;""><input name=""Verifycode""  maxlength=""6"" size=""5"" class=""textbox""if(!seccodefocus) {document.getElementById(\'codebox0\').style.display=\'none\';}""  id=""Verifycode"" showverifycode(0)""  autocomplete=""off""/><div class=""verifybox""  style=""position:absolute;display:none;cursor: pointer;width: 124px; height: 44px;left:0px;top:40px;z-index:10009;padding:0;"" id=""codebox0""seccodefocus = 0""seccodefocus = 1""><img width=""145"" src=""" & KS.GetDomain & "plus/verifycode.asp?time=0.001"" id=""vcodeimg0"" title=""看不清点这里刷新""showverifycode(0)""/></div></span><br/>"

   End If

   Str=Str & "<input type=""submit""return(CheckLoginForm())"" value="" 登 录 "" name=""submit""><input name=""ExpiresDate"" type=""checkbox"" id=""ExpiresDate"" value=""checkbox""> <span>永久登录</span></td></tr></table></td></tr></table>"

         KS.Die "var userpop={""str"":'" & str & "'}"

  End Sub







效果:



点击查看原图









其它登录标签类似。

点评 4

乱弹琴:5.0     
mt56 希望在补丁中一并吧所有的更新了 威望+1 发表于 2011/10/21 0:10:00 
ren_2008 乱弹琴:5
很不错 威望+2 发表于 2011/10/19 21:31:00 
ren_2008 乱弹琴:5
很不错 威望+2 发表于 2011/10/19 21:31:00 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.50000秒 powered by KesionCMS 9.0