ASP WeChat パブリック プラットフォーム インターフェイスの実装コードは bluedidea によって確認されており、困っている友人はそれを参照できます。
次のようにコードをコピーします。
<%@Language="VBScript" CodePage="65001"%>
<%
「**********************************************
'メモ
'ASP ファイルは UTF-8 形式で保存する必要があります。そうしないと文字化けします。
次の 2 行のコードは、WeChat インターフェイスを介した検証用です。
'response.write request("echostr")
'応答.終了
「**********************************************
dim 署名 'WeChat 暗号化署名
薄暗いタイムスタンプ 'タイムスタンプ
dim nonce '乱数
'dim echostr 'ランダムな文字列
ディムトークン
署名削除
token="ldwz"'バックグラウンドで追加したトークン
署名 = リクエスト("署名")
nonce = Request("nonce")
タイムスタンプ = リクエスト("タイムスタンプ")
「**********************************************
dim ToUserName '開発者 WeChat アカウント
dim FromUserName の送信者アカウント (OpenID)
dim CreateTime 'メッセージ作成時刻(整数)
dim MsgType 'テキスト
dim Content 'テキストメッセージの内容
set xml_dom = Server.CreateObject("MSXML2.DOMDocument")'これは実際のサーバーの状況に応じて書き換えられます
xml_dom.load リクエスト
FromUserName=xml_dom.getelementsbytagname("FromUserName").item(0).text '送信者の WeChat アカウント
ToUserName=xml_dom.getelementsbytagname("ToUserName").item(0).text '受信者の WeChat アカウント。それが私たちのパブリックプラットフォームアカウントです。
MsgType=xml_dom.getelementsbytagname("MsgType").item(0).text
MsgType="テキスト" の場合
Content=xml_dom.getelementsbytagname("コンテンツ").item(0).text
終了する場合
薄暗く交わる
'mingling=replace(content,chr(13),"")
'mingling=trim(replace(mingling,chr(10),""))
if (MsgType="イベント") then
strEventType=xml_dom.getelementsbytagname("イベント").item(0).text 'WeChat イベント
if strEventType="subscribe" then 'WeChat パブリック プラットフォームへの登録を示します
strsend=gz(FromUserName,ToUserName)
ElseIf strEventType="unsubscribe" then'キャンセルして閉じる
strsend=gz(FromUserName,ToUserName)
終了する場合
それ以外
'strsend=text(fromusername,tousername,Content)
strsend=""
終了する場合
応答.書き込み strsend
xml_dom=何も設定しない
'*******************次のコードはデバッグ専用です**********
'filepath=server.mappath(".")&"/wx.txt"
'fso = Server.CreateObject("Scripting.FileSystemObject") を設定します
'set fopen=fso.OpenTextFile(ファイルパス, 8,true)
'fopen.writeline(strsend)
'fso=何も設定しない
'fopen=何も設定しない
'******************デバッグ終了***********************
関数 gz(fromusername,tousername)
gz="<xml>" &_
"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
"<作成時間>"&now&"</作成時間>" &_
"<MsgType>ニュース</MsgType>" &_
"<ArticleCount>5</ArticleCount>" &_
"<記事>" &_
"<アイテム>" &_
"<Title>利益率のない中古車取引市場</Title>" &_
"<説明>聊城中古車はオンライン中古車と実店舗中古車を組み合わせた中古車市場です。主に聊城市とその周辺都市の中古車取引情報を聊城中古車情報とともに提供しています。中古車情報の無料閲覧・掲載、中古車関連事業を行っております。
"</説明>" &_
"<PicUrl><![CDATA[]]></PicUrl>" &_
"<URL><![CDATA[]]></Url>" &_
"</item>" &_
"<アイテム>" &_
"<タイトル><![CDATA[中古車情報を見る]]></タイトル>" &_
"<説明><![CDATA[すべての中古車情報]]></説明>" &_
"<PicUrl><![CDATA[]]></PicUrl>" &_
"<URL><![CDATA[]]></Url>" &_
"</item>" &_
"<アイテム>" &_
"<タイトル><![CDATA[中古車譲渡手続き]]></タイトル>" &_
"<説明><![CDATA[中古車譲渡手続き]]></説明>" &_
"<PicUrl><![CDATA[]]></PicUrl>" &_
"<URL><![CDATA[]]></Url>" &_
"</item>" &_
"<アイテム>" &_
"<タイトル><![CDATA[差額を獲得できないもの]]></タイトル>" &_
"<説明><![CDATA[e-commerce]]></説明>" &_
"<PicUrl><![CDATA[]]></PicUrl>" &_
"<URL><![CDATA[]]></Url>" &_
"</item>" &_
"<アイテム>" &_
"<タイトル><![CDATA[お問い合わせ]]></タイトル>" &_
"<説明><![CDATA[お問い合わせ]]></説明>" &_
"<PicUrl><![CDATA[]]></PicUrl>" &_
"<URL><![CDATA[]]></Url>" &_
"</item>" &_
"</記事>" &_
"<FuncFlag>1</FuncFlag>" &_
"</xml> "
終了関数
関数テキスト(fromusername,tousername,returnstr)
text="<xml>" &_
"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
"<作成時間>"&now&"</作成時間>" &_
"<MsgType><![CDATA[text]]></MsgType>" &_
"<コンテンツ><![CDATA[" & returnstr & "]]></コンテンツ>" &_
"<機能フラグ>0<機能フラグ>" &_
「</xml>」
終了関数
%>