账号通
    

账号  

密码  

5196

查看

11

回复
主题:[求助]科讯WAP系统的几个问题,望解决下 [收藏主题] 转到:  
wifiicn 当前离线

29

主题

0

广播

1

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

用户积分:56 分
登录次数:4 次
注册时间:2012/3/6
最后登录:2012/5/17
wifiicn 发表于:2012/3/26 15:22:00   | 显示全部帖子 查看该作者主题 楼主 
科汛在线商城系统(NET)

首先感谢科讯大大开发出如此强大的建站系统给大家伙用,在这里衷心的祝愿科讯越来越好

我的问题有几个

1.手机WAP版商品显示问题

网站可以调用商品内容,但显示是,出现"请绑定模板"的字样,请问科讯大大,手机WAP怎么绑定商城模板,给以给个代码不?

教下在那个页面,第几行左右,插入什么代码等,在下无限感激

2.科讯整合uc后,电脑站登陆可以,但手机站登陆显示没有该用户或用户名密码错误,我查了下,是WAP站目录USER内的CheckUserlogin.asp文件没有调用API导致的错误,请问怎么弄呢?

我把电脑站的调用的发在这里,大大们回复时修改好,谢谢大大们啦

代码如下:

以电脑站的为例,需要的代码如下,请帮忙写下WAP的



调用的文件

<!--#include file="../API/cls_api.asp"-->

<!--#include file="../dpo-and-uc/config/Config.asp"-->

<!--#include file="../dpo-and-uc/uc/UC_Cls.asp"-->

<!--#include file="../dpo-and-uc/dpo/Cls_DpoApi.asp"-->

UC整合代码

rem--------------------整合UC--------------------

    '同步UC用户到本地

    Dim api_SysKey,Email

    api_SysKey = Md5(UserName&dpoUC_Key,16)

    UC = uc_user_login(UserName,KS.R(KS.S("PassWord")))

    If UC = "" Then

     Email = uc_get_user(UserName)

     If conn.execute("Select top 1 count(UserID) From KS_User Where UserName='" &UserName & "'")(0)="0" Then

     '如果用户名不存在就注册,考虑到后续kesion 8.0、9.0、10.0……可能还会增加注册逻辑,这儿直接用DPO去注册,减少以后不必要的错误发生

      Dim DpoApi_Obj_reg

      Set DpoApi_Obj_reg = New DpoApi

      DpoApi_Obj_reg.NodeValue "action","reguser",0,False

      DpoApi_Obj_reg.NodeValue "username",UserName,1,False

      DpoApi_Obj_reg.NodeValue "syskey",api_SysKey,0,False

      DpoApi_Obj_reg.NodeValue "password",KS.R(KS.S("PassWord")),0,False

      DpoApi_Obj_reg.NodeValue "email",Email,1,False

      DpoApi_Obj_reg.NodeValue "question","what's the date?",1,False

      DpoApi_Obj_reg.NodeValue "answer",Now(),1,False

      DpoApi_Obj_reg.NodeValue "gender","0",1,False

      DpoApi_Obj_reg.SendHttpData

      If DpoApi_Obj_reg.Status = "1" Then

       Response.Write "<script>alert('111" & DpoApi_Obj_reg.Message & "');history.back();</script>"

      Else

       'KSCls.Kesion()

       Response.Write "<script>alert('" & UserName & ",主站帐户激活成功,请再输入一次帐号密码完成验证。');history.back();</script>"

      End If

      Set DpoApi_Obj_reg = Nothing

      Exit Sub

     Else'否则修改密码

      Dim DpoApi_Obj_up

      Set DpoApi_Obj_up = New DpoApi

      DpoApi_Obj_up.NodeValue "syskey",api_SysKey,0,False

      DpoApi_Obj_up.NodeValue "action","update",0,False

      DpoApi_Obj_up.NodeValue "username",UserName,1,False

      DpoApi_Obj_up.NodeValue "email",Email,1,False

      DpoApi_Obj_up.NodeValue "question","",1,False

      DpoApi_Obj_up.NodeValue "answer","",1,False

      DpoApi_Obj_up.NodeValue "password",KS.R(KS.S("PassWord")),1,False

      DpoApi_Obj_up.SendHttpData

      If DpoApi_Obj_up.Status = "1" Then

       Response.Write "<script>alert('" & DpoApi_Obj_up.Message & "');history.back();</script>"

      Else

       KSCls.Kesion()

       'Response.Write "<script>alert('" & UserName & ",由于您在论坛修改过密码,请再输入一次帐号密码完成验证。');history.back();</script>"

      End If

      Set DpoApi_Obj_up = Nothing

      Exit Sub

     End If

    End If

    rem--------------------整合UC--------------------

请各位大大们帮下忙,把这些代码整合到WAP的CheckUserlogin.asp文件

结束前,再次感谢科讯大大开发出强大的开源建站系统

 
  支持(4) | 反对(4) 回到顶部顶端 回到底部底部
wifiicn 当前离线

29

主题

0

广播

1

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

用户积分:56 分
登录次数:4 次
注册时间:2012/3/6
最后登录:2012/5/17
wifiicn 发表于:2012/3/26 15:36:00   | 显示全部帖子 查看该作者主题 沙发 
科汛智能建站系统
在线等哈!~~~希望大大们快点解决下,镇的很急啊!~~~
 
  支持(4) | 反对(4) 回到顶部顶端 回到底部底部
wifiicn 当前离线

29

主题

0

广播

1

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

用户积分:56 分
登录次数:4 次
注册时间:2012/3/6
最后登录:2012/5/17
wifiicn 发表于:2012/3/26 16:08:00   | 显示全部帖子 查看该作者主题 藤椅 
科汛智能建站系统

怎么没有大大解决啊!~~~~

哎,先上班啦,晚上在看看!~~

希望大家帮下忙,在下无限感激

 
  支持(4) | 反对(4) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.09570秒 powered by KesionCMS 9.0