账号通
    

账号  

密码  

7617

查看

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) 回到顶部顶端 回到底部底部
ren_2008 当前离线

614

主题

7

广播

1

粉丝
添加关注
级别:六年级

用户积分:5597 分
登录次数:165 次
注册时间:2011/1/5
最后登录:2020/7/6
ren_2008 发表于:2011/10/19 21:30:30   | 只看该作者 查看该作者主题 沙发 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
whsx1969 当前离线

241

主题

0

广播

0

粉丝
添加关注
级别:二年级

用户积分:856 分
登录次数:109 次
注册时间:2006/6/5
最后登录:2024/1/2
whsx1969 发表于:2011/10/19 21:34:13   | 只看该作者 查看该作者主题 藤椅 
科汛智能建站系统
来支持下官方!谢谢!
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
tanweichun0202 当前离线

352

主题

4

广播

1

粉丝
添加关注
级别:三年级

用户积分:716 分
登录次数:235 次
注册时间:2011/10/8
最后登录:2015/5/29
tanweichun0202 发表于:2011/10/20 16:31:29   | 只看该作者 查看该作者主题 板凳 
 
&lt;a href=http:&#47;&#47;www.xjzjszyj.cn&#47;&gt;新疆职业院校思想政治教育工作网&lt;&#47;a&gt;
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
kesionhaoat 当前离线

621

主题

24

广播

2

粉丝
添加关注
级别:六年级

用户积分:790 分
登录次数:337 次
注册时间:2011/5/5
最后登录:2020/10/28
kesionhaoat 发表于:2011/10/20 16:40:45   | 只看该作者 查看该作者主题 报纸 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
mwmusic 当前离线

330

主题

14

广播

4

粉丝
添加关注
级别:三年级

用户积分:1464 分
登录次数:217 次
注册时间:2008/8/24
最后登录:2015/12/29
mwmusic 发表于:2011/10/20 16:49:36   | 只看该作者 查看该作者主题 地板 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
guoxiaoqing123 当前离线

801

主题

0

广播

0

粉丝
添加关注
级别:六年级

用户积分:543 分
登录次数:63 次
注册时间:2011/8/24
最后登录:2011/12/14
guoxiaoqing123 发表于:2011/10/21 9:33:02   | 只看该作者 查看该作者主题 7楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
hit2005 当前离线

83

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:112 分
登录次数:63 次
注册时间:2011/9/2
最后登录:2015/7/14
hit2005 发表于:2011/10/21 12:19:55   | 只看该作者 查看该作者主题 8楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
wyb1995 当前离线

93

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:147 分
登录次数:50 次
注册时间:2010/11/15
最后登录:2015/1/12
wyb1995 发表于:2011/10/21 14:12:05   | 只看该作者 查看该作者主题 9楼 
科汛在线网校系统
顶!顶!顶!顶!顶!顶!顶!顶!顶!顶!顶!顶!
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
yilin 当前离线

362

主题

1

广播

0

粉丝
添加关注
级别:三年级

用户积分:2191 分
登录次数:174 次
注册时间:2008/6/11
最后登录:2016/8/21
yilin 发表于:2011/10/21 16:50:38   | 只看该作者 查看该作者主题 10楼 
科汛在线商城系统(NET)
下次更新能否下载?
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行2.02344秒 powered by KesionCMS 9.0