狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

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

<%

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

'注意事項(xiàng)

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

'

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

'以下兩行代碼是為了通過(guò)微信接口驗(yàn)證的。

'response.write request("echostr")

'response.end

dim signature	'微信加密簽名

dim timestamp	'時(shí)間戳

dim nonce		'隨機(jī)數(shù)

'dim echostr		'隨機(jī)字符串

dim Token

dim signaturetmp

token="aaabbb"'您在后臺(tái)添寫(xiě)的 token

signature = Request("signature")

nonce = Request("nonce")

timestamp = Request("timestamp")

dim ToUserName	'開(kāi)發(fā)者微信號(hào)

dim FromUserName'發(fā)送方帳號(hào)（一個(gè)OpenID）

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

dim MsgType		'text

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

dim MsgId		'消息id，64位整型





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

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)頁(yè)設(shè)計(jì)"&VBCrLf&_

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

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

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

    end if

end if

if len(returnstr)=0 then

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

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

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

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

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

	  "回復(fù)4. 購(gòu)買源碼"&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

%>