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

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

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

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

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

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

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("河套新闻")