รหัสการใช้งานอินเทอร์เฟซแพลตฟอร์มสาธารณะ ASP WeChat เห็นโดย bluedidea เพื่อนที่ต้องการสามารถอ้างอิงได้
คัดลอกรหัสรหัสดังต่อไปนี้:
<%@Language="VBScript" CodePage="65001"%>
-
-
'หมายเหตุ
'ไฟล์ ASP จะต้องได้รับการบันทึกในรูปแบบ UTF-8 มิฉะนั้นจะอ่านไม่ออก
'รหัสสองบรรทัดต่อไปนี้ใช้สำหรับการตรวจสอบผ่านอินเทอร์เฟซ WeChat
'response.write คำขอ ("echostr")
'response.end
-
ลายเซ็นสลัว 'ลายเซ็นที่เข้ารหัส WeChat'
การประทับเวลาสลัว 'การประทับเวลา
สลัว nonce 'ตัวเลขสุ่ม
'dim echostr' สตริงสุ่ม
dimToken
disignaturetmp
token="ldwz"'โทเค็นที่คุณเพิ่มในพื้นหลัง
ลายเซ็น = คำขอ ("ลายเซ็น")
nonce = คำขอ ("nonce")
ประทับเวลา = คำขอ ("ประทับเวลา")
-
dim ToUserName 'บัญชีนักพัฒนา WeChat
บัญชีผู้ส่ง FromUserName สลัว (OpenID)
dim CreateTime 'เวลาสร้างข้อความ (จำนวนเต็ม)
ข้อความ 'MsgType จางลง
เนื้อหาสลัว 'เนื้อหาข้อความตัวอักษร
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="text" แล้ว
Content=xml_dom.getelementsbytagname("เนื้อหา").item(0).text
สิ้นสุดถ้า
'มั่วสุมกัน
'mingling=replace(เนื้อหา,chr(13),"")
'mingling=trim(แทนที่(mingling,chr(10),""))
ถ้า (MsgType="event") แล้ว
strEventType=xml_dom.getelementsbytagname("Event").item(0).text 'กิจกรรม WeChat
ถ้า strEventType="subscribe" จากนั้น 'บ่งชี้ว่าสมัครเป็นสมาชิกแพลตฟอร์มสาธารณะ WeChat
strsend=gz(จากชื่อผู้ใช้ถึงชื่อผู้ใช้)
ElseIf strEventType="unsubscribe" จากนั้น 'ยกเลิกปิด'
strsend=gz(จากชื่อผู้ใช้ถึงชื่อผู้ใช้)
สิ้นสุดถ้า
อื่น
'strsend=text(จากชื่อผู้ใช้,ชื่อผู้ใช้,เนื้อหา)
strsend=""
สิ้นสุดถ้า
ตอบกลับเขียน strsend
set xml_dom=ไม่มีอะไร
'****************** รหัสต่อไปนี้ใช้สำหรับการดีบักเท่านั้น **********
'filepath=server.mappath(".")&"/wx.txt"
'ตั้งค่า fso = Server.CreateObject("Scripting.FileSystemObject")
'set fopen=fso.OpenTextFile (เส้นทางไฟล์, 8, จริง)
'fopen.writeline (strsend)
'ตั้งค่า fso=nothing'
'set fopen=ไม่มีอะไร'
'****************** สิ้นสุดการดีบัก ************************
ฟังก์ชั่น gz (จากชื่อผู้ใช้, ชื่อผู้ใช้)
gz="<xml>" &_
"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
"<สร้างเวลา>"&ตอนนี้&"</สร้างเวลา>" &_
"<MsgType>ข่าวสาร</MsgType>" &_
"<จำนวนบทความ>5</จำนวนบทความ>" &_
"<บทความ>" &_
"<รายการ>" &_
"<Title>ตลาดซื้อขายรถยนต์มือสองที่ไม่มีอัตรากำไร</Title>" &_
"<คำอธิบาย>รถยนต์มือสอง Liaocheng เป็นตลาดรถยนต์มือสองที่รวมรถยนต์มือสองทั้งทางออนไลน์และทางกายภาพ โดยส่วนใหญ่จะให้ข้อมูลธุรกรรมรถยนต์มือสองใน Liaocheng และเมืองโดยรอบพร้อมข้อมูลรถยนต์มือสองของ Liaocheng คุณสามารถ ดูและเผยแพร่ข้อมูลรถมือสองฟรี และจัดการธุรกิจเกี่ยวกับรถมือสอง
"</คำอธิบาย>" &_
"<PicUrl><![CDATA[]]></PicUrl>" &_
"<Url><![CDATA[]]></Url>" &_
"</รายการ>" &_
"<รายการ>" &_
"<หัวข้อ><![CDATA[ดูข้อมูลรถมือสอง]]></หัวข้อ>" &_
"<คำอธิบาย><![CDATA[ข้อมูลรถมือสองทั้งหมด]]></คำอธิบาย>" &_
"<PicUrl><![CDATA[]]></PicUrl>" &_
"<Url><![CDATA[]]></Url>" &_
"</รายการ>" &_
"<รายการ>" &_
"<หัวข้อ><![CDATA[ขั้นตอนการโอนรถมือสอง]]></หัวข้อ>" &_
"<คำอธิบาย><![CDATA[ขั้นตอนการโอนรถมือสอง]]></คำอธิบาย>" &_
"<PicUrl><![CDATA[]]></PicUrl>" &_
"<Url><![CDATA[]]></Url>" &_
"</รายการ>" &_
"<รายการ>" &_
"<Title><![CDATA[สิ่งที่ไม่ได้รับความแตกต่าง]]></Title>" &_
"<คำอธิบาย><![CDATA[e-commerce]]></คำอธิบาย>" &_
"<PicUrl><![CDATA[]]></PicUrl>" &_
"<Url><![CDATA[]]></Url>" &_
"</รายการ>" &_
"<รายการ>" &_
"<หัวข้อ><![CDATA[ติดต่อเรา]]></หัวข้อ>" &_
"<คำอธิบาย><![CDATA[ติดต่อเรา]]></คำอธิบาย>" &_
"<PicUrl><![CDATA[]]></PicUrl>" &_
"<Url><![CDATA[]]></Url>" &_
"</รายการ>" &_
"</บทความ>" &_
"<FuncFlag>1</FuncFlag>" &_
"</xml>"
ฟังก์ชั่นสิ้นสุด
ข้อความฟังก์ชัน (fromusername, tousername, returnstr)
ข้อความ = "<xml>" &_
"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
"<สร้างเวลา>"&ตอนนี้&"</สร้างเวลา>" &_
"<MsgType><![CDATA[ข้อความ]]></MsgType>" &_
"<เนื้อหา><![CDATA[" & returnstr & "]]></Content>" &_
"<FuncFlag>0<FuncFlag>" &_
"</xml>"
ฟังก์ชั่นสิ้นสุด
-