Kode implementasi antarmuka platform publik ASP WeChat dilihat oleh bluedidea, teman-teman yang membutuhkan dapat merujuknya.
Copy kode kodenya sebagai berikut:
<%@Language="VBScript" CodePage="65001"%>
<%
'***************************************************
'Catatan
'File ASP perlu disimpan dalam format UTF-8, jika tidak, file tersebut akan kacau.
'Dua baris kode berikut untuk verifikasi melalui antarmuka WeChat.
'respons.permintaan tulis("echostr")
'respons.akhir
'***************************************************
redupkan tanda tangan 'tanda tangan terenkripsi WeChat
stempel waktu redup 'cap waktu
redupkan nonce 'angka acak
'redupkan echostr' string acak
dimToken
dimsignaturetmp
token="ldwz"'token yang Anda tambahkan di latar belakang
tanda tangan = Permintaan("tanda tangan")
nonce = Permintaan("nonce")
stempel waktu = Permintaan("stempel waktu")
'***************************************************
redupkan ToUserName 'akun WeChat pengembang
redupkan akun pengirim FromUserName (OpenID)
dim CreateTime 'Waktu pembuatan pesan (integer)
redupkan MsgType 'teks
redupkan Konten 'Isi pesan teks
set xml_dom = Server.CreateObject("MSXML2.DOMDocument")'Ini ditulis ulang sesuai dengan situasi server Anda yang sebenarnya
xml_dom.memuat permintaan
FromUserName=xml_dom.getelementsbytagname("FromUserName").item(0).text 'Akun WeChat Pengirim
ToUserName=xml_dom.getelementsbytagname("ToUserName").item(0).text 'Akun WeChat Penerima. Itu adalah akun platform publik kami.
MsgType=xml_dom.getelementsbytagname("MsgType").item(0).teks
jika MsgType="teks" maka
Konten=xml_dom.getelementsbytagname("Konten").item(0).teks
berakhir jika
'remang-remang berbaur
'berbaur=ganti(konten,chr(13),"")
'berbaur=trim(ganti(berbaur,chr(10),""))
jika (MsgType="acara") maka
strEventType=xml_dom.getelementsbytagname("Event").item(0).text 'Acara WeChat
jika strEventType="berlangganan" lalu 'Menunjukkan berlangganan platform publik WeChat
strsend=gz(DariNamaPengguna,KepadaNamaPengguna)
ElseIf strEventType="berhenti berlangganan" Maka Batalkan tutup
strsend=gz(DariNamaPengguna,KepadaNamaPengguna)
berakhir jika
Kalau tidak
'strsend=teks(darinamapengguna,namapengguna,Konten)
strsend=""
berakhir jika
respon.tulis strsend
atur xml_dom=Tidak ada
'******************Kode berikut hanya untuk debugging**********
'jalur file=server.jalur peta(".")&"/wx.txt"
'Set fso = Server.CreateObject("Scripting.FileSystemObject")
'set fopen=fso.OpenTextFile(jalur file, 8,benar)
'fopen.writeline(strsend)
'atur fso=tidak ada
'set fopen=Tidak ada
'******************Akhir Debug************************
fungsi gz(dari nama pengguna, nama pengguna)
gz="<xml>" &_
"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
"<CreateTime>"&sekarang&"</CreateTime>" &_
"<MsgType>berita</MsgType>" &_
"<ArticleCount>5</ArticleCount>" &_
"<Artikel>" &_
"<barang>" &_
"<Title>Pasar jual beli mobil bekas tanpa margin keuntungan</Title>" &_
"<Deskripsi>Mobil bekas Liaocheng adalah pasar mobil bekas yang menggabungkan mobil bekas online dan fisik. Pasar ini terutama menyediakan informasi transaksi mobil bekas di Liaocheng dan kota-kota sekitarnya dengan informasi mobil bekas Liaocheng. Anda bisa melihat dan mempublikasikan informasi mobil bekas secara gratis, dan menangani bisnis terkait mobil bekas.
"</Deskripsi>" &_
"<PicUrl><![CDATA[]]></PicUrl>" &_
"<Url><![CDATA[]]></Url>" &_
"</barang>" &_
"<barang>" &_
"<Judul><![CDATA[Lihat informasi mobil bekas]]></Judul>" &_
"<Diskripsi><![CDATA[Semua informasi mobil bekas]]></Diskripsi>" &_
"<PicUrl><![CDATA[]]></PicUrl>" &_
"<Url><![CDATA[]]></Url>" &_
"</barang>" &_
"<barang>" &_
"<Judul><![CDATA[Prosedur transfer mobil bekas]]></Judul>" &_
"<Diskripsi><![CDATA[Prosedur transfer mobil bekas]]></Diskripsi>" &_
"<PicUrl><![CDATA[]]></PicUrl>" &_
"<Url><![CDATA[]]></Url>" &_
"</barang>" &_
"<barang>" &_
"<Title><![CDATA[Apa yang tidak menghasilkan perbedaan]]></Title>" &_
"<Diskripsi><![CDATA[e-commerce]]></Diskripsi>" &_
"<PicUrl><![CDATA[]]></PicUrl>" &_
"<Url><![CDATA[]]></Url>" &_
"</barang>" &_
"<barang>" &_
"<Judul><![CDATA[Hubungi Kami]]></Judul>" &_
"<Diskripsi><![CDATA[Hubungi Kami]]></Diskripsi>" &_
"<PicUrl><![CDATA[]]></PicUrl>" &_
"<Url><![CDATA[]]></Url>" &_
"</barang>" &_
"</Artikel>" &_
"<FuncFlag>1</FuncFlag>" &_
"</xml>"
fungsi akhir
teks fungsi (dari nama pengguna, nama pengguna, returnstr)
teks="<xml>" &_
"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
"<CreateTime>"&sekarang&"</CreateTime>" &_
"<MsgType><![CDATA[teks]]></MsgType>" &_
"<Konten><![CDATA[" & returntr & "]]></Konten>" &_
"<FuncFlag>0<FuncFlag>" &_
"</xml>"
fungsi akhir
%>