微信公共平臺(tái)只給出了PHP網(wǎng)站的接口示例代碼，對(duì)asp網(wǎng)站沒(méi)有做接口介紹。最近正好給一個(gè)asp網(wǎng)站的客戶做微信接口，故此在網(wǎng)上查詢了相關(guān)資料并分享給大家！ <%@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)買(mǎi)源碼"&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)買(mǎi)源碼"&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
%>
該文章在 2014/12/3 0:21:58 編輯過(guò)
400 186 1886
