别听那些人不会的人瞎扯p

所谓接口,就是任何语言都可以调用的。并不是只有服务器端编程语言（Professional Hypertext Preprocessor的缩写）才能用p

我只能说某些人技术不够,或者懒得做而已。我的公众号就是用动态服务器页面做的接口。给你个简单的参考:& lt%@Language="VBScript "？CodePage = " 651 " % & gt

& lt%

'ASP文件以UTF-8的格式保存,否则可能乱码。' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = '这两行代码是为了初期通过微信代币接口验证的。验证过后不再使用' response.write？request(" echostr ")

' response . end

' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

dim？'签名'微信加密签名

暗淡？'时间戳'时间戳

暗淡？“现在”随机数

‘昏暗？回声报随机字符串

暗淡？令牌

dim？' signature tmp

token = " myweixincode " '您在后台添写的？令牌

签名？=?请求("签名")

nonce？=?请求(" nonce")

时间戳？=?请求("时间戳")

dim？' ToUserName '开发者微信号

暗淡？'来自用户名'发送方帐号（一个OpenID)

dim？'创建时间'消息创建时间（整型)

暗淡？MsgType ' text

dim？' wxCont '消息内容

暗淡？' MsgId '消息同上，64年位整型Sub？getMSG()

on？错误？简历？下一组？xDom？=?服务器。CreateObject("MSXML2。DOMDocument ")'此处根据您的实际服务器情况改写

xDom.load？request

ToUserName = xdom . getelementsbytagname(" ToUserName ")。项目()。text

from username = xdom . getelementsbytagname(" from username ")。项目()。text

msg type = xdom . getelementsbytagname(" msg type ")。项目()。文本

如果？MsgType="text "？然后呢？wx cont = xdom . getelementsbytagname(" Content ")。项目()。文本

如果？MsgType="event "？然后呢？wx cont = xdom . getelementsbytagname(" Event ")。项目()。文本

设置？xDom=Nothing

End？sub

通话？getMSG()

if？FromUserName= " "？然后呢。wxCont= " "？然后呢？回应结束？'无来源和内容,中止处理wxCont=replace(wxCont，chr(13)，" ")

wxCont=replace(wxCont，chr(1)，" ")

wxCont=trim(wxCont)

函数？是否打开了(keys)

'？错误？简历？下一个

dim？ss，I

keys = replace(keys，"；),";")

ss = split(keys，"；")

对于？i=？去哪？ubound(ss)

如果？instr(？lcase(wxCont)，lcase(？ss(i)？)?)& gt?那么

has = true

exit？函数

结束？如果

next

有=false

end？函数

if？wxCont="subscribe "？然后呢？'表示有新的用户关注,旧接口是Hello2BizUser

reMSG = "欢迎关注& lt吴世昌信息技术技术服务>& ampVBCrLf？& amp？"?主页:?"& ampVBCrLf？& amp？" www.fj543.com"

elseIf？wxCont= "退订"？“然后”取消订阅

elseIf？wxCont=" "？然后

'处理自定义的回复代码

reMSG = "帮助说明:"?& amp？VBCrLf？& amp"回复一查看我们的网址；回复2查看联系方式;"

elseif？wxCont="1 "？然后

reMSG = "我们的网址:" & ampVBCrLf？& amp？" www.fj543.com感谢您的留言,吴世昌信息技术技术服务团队将尽快回复,请耐心等候. . .

end？如果

reMSG=reMSG？& amp？vbcrlf & amp？vbcrlf？& amp？"回复数字查看帮助说明."？& amp？outXML = " & ltxml >？& amp_

" & ltToUserName & gt& lt！[CDATA[" & amp；来自用户名& amp"]]& gt；& lt/ToUserName >？& amp_

" & ltfrom用户名& gt& lt！[CDATA[" & amp；tousername & amp"]]& gt；& lt/FromUserName >？& amp_

" & ltCreateTime >& amp？现在()？& amp“& lt/CreateTime >？& amp_

" & ltMsgType & gt& lt！[CDATA[text]]& gt；& lt/MsgType >；"？& amp_

" & lt内容& gt& lt！[CDATA["？& amp？reMSG？& amp？"]]& gt；& lt/Content >？& amp_

" & ltFuncFlag & gt & ltFuncFlag >？& amp_

" & lt/XML >；

响应.写入？outXML