以下是部分主要用到的功能。
现在想要弄个通过微信直接发布信息到网站 ,把微信号和会员绑定。。
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("河套新闻")