رمز تنفيذ واجهة النظام الأساسي العام ASP WeChat الذي شاهدته bluedidea، يمكن للأصدقاء المحتاجين الرجوع إليه.
انسخ رمز الكود كما يلي:
<%@Language="VBScript" CodePage="65001"%>
<%
'******************************************************************************************************************************************************************
'ملحوظات
'يجب حفظ ملفات ASP بتنسيق UTF-8، وإلا فإنها ستكون مشوهة.
'السطران التاليان من التعليمات البرمجية مخصصان للتحقق من خلال واجهة WeChat.
'طلب الاستجابة.كتابة("echostr")
"الاستجابة. نهاية."
'******************************************************************************************************************************************************************
التوقيع الخافت "توقيع WeChat المشفر".
الطابع الزمني الخافت "الطابع الزمني".
خافت nonce 'رقم عشوائي
سلسلة عشوائية "خافتة echostr".
dimToken
dimsignaturetmp
token="ldwz"'الرمز المميز الذي أضفته في الخلفية
التوقيع = طلب ("التوقيع")
nonce = طلب("nonce")
الطابع الزمني = طلب ("الطابع الزمني")
'************************************************************************************************************************************************************************
خافت ToUserName "حساب WeChat للمطورين".
حساب مرسل FromUserName خافت (OpenID)
خافت 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 = "نص" ثم
Content=xml_dom.getelementsbytagname("Content").item(0).text
نهاية إذا
"اختلاط خافت."
'mingling=replace(content,chr(13),"")
'mingling=trim(replace(mingling,chr(10),""))
إذا (MsgType = "الحدث") ثم
strEventType=xml_dom.getelementsbytagname("Event").item(0).text 'حدث WeChat
إذا كانت strEventType = "subscribe" فإن "يشير إلى الاشتراك في منصة WeChat العامة."
strsend=gz(FromUserName,ToUserName)
ElseIf strEventType = "unsubscribe" ثم "إلغاء الأمر" وإغلاقه
strsend=gz(FromUserName,ToUserName)
نهاية إذا
آخر
'strsend=text(fromusername,tousername,Content)
سترسيند = ""
نهاية إذا
استجابة.اكتب strsend
تعيين xml_dom=لا شيء
'****************** الكود التالي مخصص لتصحيح الأخطاء فقط **********
'filepath=server.mappath(".")&"/wx.txt"
'Set fso = Server.CreateObject("Scripting.FileSystemObject")
'set fopen=fso.OpenTextFile(filepath, 8,true)
'fopen.writeline(strsend)
'ضبط fso=لا شيء
'set fopen=لا شيء
'******************نهاية التصحيح************************
وظيفة gz (مناسم المستخدم،اسم المستخدم)
جي زد = "<xml>" &_
"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
"<CreateTime>"&now&"</CreateTime>" &_
"<MsgType>الأخبار</MsgType>" &_
"<ArticleCount>5</ArticleCount>" &_
"<المقالات>" &_
"<العنصر>" &_
"<Title>سوق لتجارة السيارات المستعملة بدون هامش ربح</Title>" &_
"<وصف>سيارة Liaocheng المستعملة هي سوق سيارات مستعملة يجمع بين السيارات المستعملة عبر الإنترنت والسيارات المستعملة الفعلية. وهي توفر بشكل أساسي معلومات عن معاملات السيارات المستعملة في Liaocheng والمدن المحيطة بها من خلال معلومات سيارات Liaocheng المستعملة. يمكنك عرض ونشر معلومات السيارات المستعملة مجانًا، والتعامل مع الأعمال المتعلقة بالسيارات المستعملة.
"</الوصف>" &_
"<PicUrl><![CDATA[]]></PicUrl>" &_
"<Url><![CDATA[]]></Url>" &_
"</العنصر>" &_
"<العنصر>" &_
"<العنوان><![CDATA[عرض معلومات السيارة المستعملة]]></العنوان>" &_
"<الوصف><![CDATA[جميع معلومات السيارة المستعملة]]></الوصف>" &_
"<PicUrl><![CDATA[]]></PicUrl>" &_
"<Url><![CDATA[]]></Url>" &_
"</العنصر>" &_
"<العنصر>" &_
"<العنوان><![CDATA[إجراءات نقل السيارات المستعملة]]></العنوان>" &_
"<Discription><![CDATA[إجراءات نقل السيارات المستعملة]]></Discription>" &_
"<PicUrl><![CDATA[]]></PicUrl>" &_
"<Url><![CDATA[]]></Url>" &_
"</العنصر>" &_
"<العنصر>" &_
"<Title><![CDATA[ما الذي لا يُحدث الفارق]]></Title>" &_
"<الوصف><![CDATA[التجارة الإلكترونية]]></الوصف>" &_
"<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>" &_
"<CreateTime>"&now&"</CreateTime>" &_
"<MsgType><![CDATA[text]]></MsgType>" &_
"<Content><![CDATA[" & returnstr & "]]></Content>" &_
"<FuncFlag>0<FuncFlag>" &_
"</xml>"
وظيفة النهاية
%>