ldwz

1. <%@Language="VBScript" CodePage="65001"%>
   
2. <%
   
3. '**********************************************
   
4. '注意事项
   
5. 'ASP文件需要以UTF-8的格式保存,否则乱码.
   
6. '以下两行代码是为了通过微信接口验证的。
   
7. 'response.write request("echostr")
   
8. 'response.end
   
9. '**********************************************
   
10. dim signature        '微信加密签名
    
11. dim timestamp        '时间戳
    
12. dim nonce                '随机数
    
13. 'dim echostr                '随机字符串
    
14. dim Token
    
15. dim signaturetmp
    
16. token="ldwz"'您在后台添写的 token
    
17. 
    
18. signature = Request("signature")
    
19. nonce = Request("nonce")
    
20. timestamp = Request("timestamp")
    
21. '**********************************************
    
22. dim ToUserName        '开发者微信号
    
23. dim FromUserName'发送方帐号（一个OpenID）
    
24. dim CreateTime        '消息创建时间（整型）
    
25. dim MsgType                'text
    
26. dim Content                '文本消息内容
    
27. 
    
28. set xml_dom = Server.CreateObject("MSXML2.DOMDocument")'此处根据您的实际服务器情况改写
    
29. xml_dom.load request
    
30. FromUserName=xml_dom.getelementsbytagname("FromUserName").item(0).text '发送者微信账号
    
31. ToUserName=xml_dom.getelementsbytagname("ToUserName").item(0).text '接收者微信账号。即我们的公众平台账号。
    
32. MsgType=xml_dom.getelementsbytagname("MsgType").item(0).text
    
33. if MsgType="text" then
    
34. Content=xml_dom.getelementsbytagname("Content").item(0).text
    
35. end if
    
36. 'dim  mingling
    
37. 'mingling=replace(content,chr(13),"")
    
38. 'mingling=trim(replace(mingling,chr(10),""))
    
39. if (MsgType="event") then
    
40.         strEventType=xml_dom.getelementsbytagname("Event").item(0).text '微信事件
    
41.         if strEventType="subscribe" then '表示订阅微信公众平台
    
42.                 strsend=gz(FromUserName,ToUserName)
    
43.         ElseIf strEventType="unsubscribe" Then'取消关
    
44.                 strsend=gz(FromUserName,ToUserName)
    
45.         end if
    
46. Else
    
47. 'strsend=text(fromusername,tousername,Content)
    
48. strsend=""
    
49. end if
    
50. response.write strsend
    
51. set xml_dom=Nothing
    
52. '*************以下代码只是为了调试作用***********
    
53. 'filepath=server.mappath(".")&"\wx.txt"
    
54. 'Set fso = Server.CreateObject("Scripting.FileSystemObject")
    
55. 'set fopen=fso.OpenTextFile(filepath, 8 ,true)
    
56. 'fopen.writeline(strsend)
    
57. 'set fso=nothing
    
58. 'set fopen=Nothing
    
59. '****************调试结束************************
    
60. 
    
61. function gz(fromusername,tousername)
    
62. gz="<xml>" &_
    
63. "<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
    
64. "<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
    
65. "<CreateTime>"&now&"</CreateTime>" &_
    
66. "<MsgType>news</MsgType>" &_
    
67. "<ArticleCount>5</ArticleCount>" &_
    
68. "<Articles>" &_
    
69. "<item>" &_
    
70. "<Title>不赚差价的二手车交易市场</Title>" &_
    
71. "<Description>聊城二手车是二手车网上与实体相结合的二手车市场,以聊城二手车信息为主提供聊城及周边地市的二手车交易信息,您可免费查看和发布二手车信息,办理二手车相关业务。" &_
    
72. "</Description>" &_
    
73. "<PicUrl><![CDATA[http://www.0635che.com/images/wxlogo.jpg]]></PicUrl>" &_
    
74. "<Url><![CDATA[http://www.0635che.com/]]></Url>" &_
    
75. "</item>" &_
    
76. "<item>" &_
    
77. "<Title><![CDATA[查看二手车信息]]></Title>" &_
    
78. "<Discription><![CDATA[全部二手车信息]]></Discription>" &_
    
79. "<PicUrl><![CDATA[http://www.0635che.com/images/wxche.jpg]]></PicUrl>" &_
    
80. "<Url><![CDATA[http://www.0635che.com/ershouche]]></Url>" &_
    
81. "</item>" &_
    
82. "<item>" &_
    
83. "<Title><![CDATA[二手车过户手续]]></Title>" &_
    
84. "<Discription><![CDATA[二手车过户过户手续]]></Discription>" &_
    
85. "<PicUrl><![CDATA[http://www.0635che.com/images/wxgh.jpg]]></PicUrl>" &_
    
86. "<Url><![CDATA[http://www.0635che.com/guohu]]></Url>" &_
    
87. "</item>" &_
    
88. "<item>" &_
    
89. "<Title><![CDATA[什么是不赚差价]]></Title>" &_
    
90. "<Discription><![CDATA[电子商务]]></Discription>" &_
    
91. "<PicUrl><![CDATA[http://www.0635che.com/images/wxxw.jpg]]></PicUrl>" &_
    
92. "<Url><![CDATA[http://www.0635che.com/service]]></Url>" &_
    
93. "</item>" &_
    
94. "<item>" &_
    
95. "<Title><![CDATA[联系我们]]></Title>" &_
    
96. "<Discription><![CDATA[联系我们]]></Discription>" &_
    
97. "<PicUrl><![CDATA[http://www.0635che.com/images/wxlx.jpg]]></PicUrl>" &_
    
98. "<Url><![CDATA[http://www.0635che.com/]]></Url>" &_
    
99. "</item>" &_
    
100. "</Articles>" &_
     
101. "<FuncFlag>1</FuncFlag>" &_
     
102. "</xml> "
     
103. end function
     
104. 
     
105. function text(fromusername,tousername,returnstr)
     
106. text="<xml>" &_
     
107. "<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
     
108. "<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
     
109. "<CreateTime>"&now&"</CreateTime>" &_
     
110. "<MsgType><![CDATA[text]]></MsgType>" &_
     
111. "<Content><![CDATA[" & returnstr & "]]></Content>" &_
     
112. "<FuncFlag>0<FuncFlag>" &_
     
113. "</xml>"
     
114. end function
     
115. %>

复制代码

需要的拿去吧！

丑男无敌

高手啊。

落伍少嘉

赞一个 技术达人

无语问苍天

落伍少嘉 发表于 2013-10-15 16:42
赞一个 技术达人

猪上树

很好，高手来了

Hello_LZ

很好，高手来了