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

<%@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

%>