欧美成人精品手机在线观看_69视频国产_动漫精品第一页_日韩中文字幕网 - 日本欧美一区二区

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%

'**********************************************

'注意事項

'ASP文件需要以UTF-8的格式保存,否則亂碼.

'

'**********************************************

'以下兩行代碼是為了通過微信接口驗證的。

'response.write request("echostr")

'response.end

dim signature	'微信加密簽名

dim timestamp	'時間戳

dim nonce		'隨機數(shù)

'dim echostr		'隨機字符串

dim Token

dim signaturetmp

token="aaabbb"'您在后臺添寫的 token

signature = Request("signature")

nonce = Request("nonce")

timestamp = Request("timestamp")

dim ToUserName	'開發(fā)者微信號

dim FromUserName'發(fā)送方帳號（一個OpenID）

dim CreateTime	'消息創(chuàng)建時間（整型）

dim MsgType		'text

dim Content		'文本消息內(nèi)容

dim MsgId		'消息id，64位整型





set xml_dom = Server.CreateObject("MSXML2.DOMDocument")'此處根據(jù)您的實際服務(wù)器情況改寫

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'如果是數(shù)字

'這里添加您的 回復(fù)代碼

if mingling=0 Then

returnstr="回復(fù)數(shù)字為0"

elseif mingling=1 Then

returnstr="回復(fù)數(shù)字為1"

elseif mingling=2 Then

returnstr="回復(fù)數(shù)字為2"

elseif mingling=3 Then

returnstr="回復(fù)數(shù)字為3"

end if



else'非數(shù)字

    if mingling="wowomi" then

	  returnstr="回復(fù)命令為："&VBCrLf &_

	  "回復(fù)1. 網(wǎng)站建設(shè)"&VBCrLf &_

	  "回復(fù)2. 網(wǎng)頁設(shè)計"&VBCrLf&_

	  "回復(fù)3. 平面設(shè)計"&VBCrLf &_

	  "回復(fù)4. 購買源碼"&VBCrLf &_

	  "回復(fù)5. 淘寶店鋪裝修"&VBCrLf

    end if

end if

if len(returnstr)=0 then

    returnstr="歡迎您加入<沃奇網(wǎng)絡(luò)>大家庭"&VBCrLf &_

	"在這個微信平臺,您可以隨時定制想要的網(wǎng)站,包括："&VBCrLf &_

	"回復(fù)1. 網(wǎng)站建設(shè)"&VBCrLf &_

	  "回復(fù)2. 網(wǎng)頁設(shè)計"&VBCrLf&_

	  "回復(fù)3. 平面設(shè)計"&VBCrLf &_

	  "回復(fù)4. 購買源碼"&VBCrLf &_

	  "回復(fù)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

%>