<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'**********************************************
'注意事项
'ASP文件需要以UTF-8的格式保存,否则乱码.
'
'**********************************************
'以下两行代码是为了通过微信接口验证的。
'response.write request("echostr")
'response.end

dim signature	'微信加密签名
dim timestamp	'时间戳
dim nonce		'随机数
'dim echostr		'随机字符串
dim Token
dim signaturetmp
token="aaabbb"'您在后台添写的 token

signature = Request("signature")
nonce = Request("nonce")
timestamp = Request("timestamp")

dim ToUserName	'开发者微信号
dim FromUserName'发送方帐号（一个OpenID）
dim CreateTime	'消息创建时间（整型）
dim MsgType		'text
dim Content		'文本消息内容
dim MsgId		'消息id，64位整型




set xml_dom = Server.CreateObject("MSXML2.DOMDocument")'此处根据您的实际服务器情况改写
xml_dom.load request
ToUserName=xml_dom.getelementsbytagname("ToUserName").item(0).text
FromUserName=xml_dom.getelementsbytagname("FromUserName").item(0).text
MsgType=xml_dom.getelementsbytagname("MsgType").item(0).text
if MsgType="text" then
Content=xml_dom.getelementsbytagname("Content").item(0).text
end if
set xml_dom=Nothing


dim  mingling,mlid
mingling=replace(content,chr(13),"")
mingling=trim(replace(mingling,chr(10),""))

If IsNumeric(mingling) Then'如果是数字
'这里添加您的 回复代码
if mingling=0 Then
returnstr="回复数字为0"
elseif mingling=1 Then
returnstr="回复数字为1"
elseif mingling=2 Then
returnstr="回复数字为2"
elseif mingling=3 Then
returnstr="回复数字为3"
end if


else'非数字
    if mingling="wowomi" then
	  returnstr="回复命令为："&VBCrLf &_
	  "回复1. 网站建设"&VBCrLf &_
	  "回复2. 网页设计"&VBCrLf&_
	  "回复3. 平面设计"&VBCrLf &_
	  "回复4. 购买源码"&VBCrLf &_
	  "回复5. 淘宝店铺装修"&VBCrLf
    end if
end if

if len(returnstr)=0 then
    returnstr="欢迎您加入<沃奇网络>大家庭"&VBCrLf &_
	"在这个微信平台,您可以随时定制想要的网站,包括："&VBCrLf &_
	"回复1. 网站建设"&VBCrLf &_
	  "回复2. 网页设计"&VBCrLf&_
	  "回复3. 平面设计"&VBCrLf &_
	  "回复4. 购买源码"&VBCrLf &_
	  "回复5. 淘宝店铺装修"&VBCrLf
end if


strresponse="<xml>" &_
 	"<ToUserName><![CDATA[ojiFDtynmf5t443si3XQBpB19zqg]]></ToUserName>" &_
	"<FromUserName><![CDATA[gh_b0dbeb087b38]]></FromUserName>" &_
	"<CreateTime>"&now&"</CreateTime>" &_
	"<MsgType><![CDATA[text]]></MsgType>" &_
	"<Content><![CDATA[" & returnstr & "]]></Content>" &_
	"<FuncFlag>0<FuncFlag>" &_
	"</xml>"

response.write strresponse

%>