首先感谢科讯大大开发出如此强大的建站系统给大家伙用,在这里衷心的祝愿科讯越来越好
我的问题有几个
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文件
结束前,再次感谢科讯大大开发出强大的开源建站系统