账号通
    

账号  

密码  

1745

查看

4

回复
主题:做好了微信公众号API。可是发现无法正常用网站了。。 [收藏主题] 转到:  
duojia 当前离线

35

主题

0

广播

0

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

用户积分:2121 分
登录次数:42 次
注册时间:2010/3/8
最后登录:2013/11/5
duojia 发表于:2013/10/12 11:57:44   | 显示全部帖子 查看该作者主题 楼主 
科汛智能建站系统

当初光想弄微信这块了,模版都按照微信的需求做了。。

现在微信做好了,可是网站不知道该怎么做了。。

修改模版的话会影响到微信文章调用。。


各类大侠给想想办法。。我调试的微信是  河套宝典

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

35

主题

0

广播

0

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

用户积分:2121 分
登录次数:42 次
注册时间:2010/3/8
最后登录:2013/11/5
duojia 发表于:2013/10/16 10:32:34   | 显示全部帖子 查看该作者主题 沙发 
科汛在线商城系统(NET)

以下是部分主要用到的功能。

现在想要弄个通过微信直接发布信息到网站 ,把微信号和会员绑定。。



Class dj_weixin

Private KS, KSR,Maps,ClassXml,TreeStr

Private Sub Class_Initialize()

    Set KS=New PublicCls

    Set KSR = New Refresh

End Sub

Public function Kesion(dj_lanmu)

             dim FileContent

       FileContent=KSR.KSLabelReplaceAll("{LB_"&dj_lanmu&"}")

       Kesion=FileContent

  End function

end class





sub dj_fs_img(strsend)

strresponse="<xml>"

strresponse=strresponse&"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>"

strresponse=strresponse&"<FromUserName><![CDATA["&tousername&"]]></FromUserName>"

strresponse=strresponse&"<CreateTime>"&now&"</CreateTime>"

strresponse=strresponse&"<MsgType><![CDATA[news]]></MsgType>"



'strresponse=strresponse&"<ArticleCount>3</ArticleCount>"

'strresponse=strresponse&"<Articles>"

Dim KSCls

Set KSCls = New dj_weixin

strresponse=strresponse&KSCls.Kesion(strsend)

Set KSCls = Nothing

'strresponse=strresponse&"</Articles>"

strresponse=strresponse&"</xml>"

response.write strresponse

end sub





sub dj_js_event()

strEventType=xml_dom.getelementsbytagname("Event").item(0).text '微信事件

dj_dy=xml_dom.getelementsbytagname("EventKey").item(0).text

select case dj_dy

  case "HTBD_HTXW"

   dj_fs_img("河套新闻")

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