bluedidea에서 본 ASP WeChat 공개 플랫폼 인터페이스 구현 코드는 도움이 필요한 친구들이 참조할 수 있습니다.
다음과 같이 코드 코드를 복사합니다.
<%@Language="VBScript" CodePage="65001"%>
<%
'************************************************
'메모
'ASP 파일은 UTF-8 형식으로 저장해야 합니다. 그렇지 않으면 파일이 깨질 수 있습니다.
'다음 두 줄의 코드는 WeChat 인터페이스를 통한 확인을 위한 것입니다.
'response.write 요청("echostr")
'응답.끝
'************************************************
희미한 서명 'WeChat 암호화 서명
희미한 타임스탬프 '타임스탬프
희미한 nonce '난수
'dim echostr '임의의 문자열
희미한토큰
희미한 서명tmp
token="ldwz"'백그라운드에 추가한 토큰
서명 = 요청("서명")
nonce = 요청("nonce")
타임스탬프 = 요청("타임스탬프")
'************************************************
Dim 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="text"이면
Content=xml_dom.getelementsbytagname("Content").item(0).text
종료하면
희미한 섞임
'mingling=replace(content,chr(13),"")
'mingling=trim(replace(mingling,chr(10),""))
if (MsgType="이벤트") 그러면
strEventType=xml_dom.getelementsbytagname("Event").item(0).text '위챗 이벤트
if strEventType="subscribe" then 'WeChat 공개 플랫폼 구독을 나타냅니다.
strsend=gz(FromUserName,ToUserName)
ElseIf strEventType="unsubscribe" Then'취소 닫기
strsend=gz(FromUserName,ToUserName)
종료하면
또 다른
'strsend=text(사용자 이름, 사용자 이름, 내용)
strsend=""
종료하면
response.write strsend
xml_dom=아무것도 설정하지 않음
'********************다음 코드는 디버깅 전용입니다**********
'filepath=server.mappath(".")&"/wx.txt"
' fso = Server.CreateObject("Scripting.FileSystemObject") 설정
' fopen=fso.OpenTextFile(파일 경로, 8,true) 설정
'fopen.writeline(strsend)
'fso=아무것도 설정하지 않음
' fopen=아무것도 설정하지 않음
'********************디버깅 종료************************
함수 gz(사용자 이름, 사용자 이름)
gz="<xml>" &_
"<ToUserName><![CDATA["&fromusername&"]]></ToUserName>" &_
"<FromUserName><![CDATA["&tousername&"]]></FromUserName>" &_
"<CreateTime>"&now&"</CreateTime>" &_
"<MsgType>뉴스</MsgType>" &_
"<ArticleCount>5</ArticleCount>" &_
"<기사>" &_
"<항목>" &_
"<Title>마진 없는 중고차 거래 시장</Title>" &_
"<설명>랴오청 중고차는 온라인과 실물 중고차를 결합한 중고차 마켓입니다. 주로 요청 중고차 정보와 함께 요청 및 주변 도시의 중고차 거래 정보를 제공할 수 있습니다. 중고차 정보를 무료로 열람 및 게시하고, 중고차 관련 업무를 처리합니다.
"</Description>" &_
"<PicUrl><![CDATA[]]></PicUrl>" &_
"<Url><![CDATA[]]></Url>" &_
"</item>" &_
"<항목>" &_
"<제목><![CDATA[중고차 정보 조회]]></제목>" &_
"<설명><![CDATA[모든 중고차 정보]]></설명>" &_
"<PicUrl><![CDATA[]]></PicUrl>" &_
"<Url><![CDATA[]]></Url>" &_
"</item>" &_
"<항목>" &_
"<Title><![CDATA[중고차 양도 절차]]></Title>" &_
"<설명><![CDATA[중고차 양도 절차]]></설명>" &_
"<PicUrl><![CDATA[]]></PicUrl>" &_
"<Url><![CDATA[]]></Url>" &_
"</item>" &_
"<항목>" &_
"<Title><![CDATA[차액을 얻지 못하는 것]]></Title>" &_
"<설명><![CDATA[전자상거래]]></설명>" &_
"<PicUrl><![CDATA[]]></PicUrl>" &_
"<Url><![CDATA[]]></Url>" &_
"</item>" &_
"<항목>" &_
"<제목><![CDATA[연락처]]></제목>" &_
"<설명><![CDATA[연락처]]></설명>" &_
"<PicUrl><![CDATA[]]></PicUrl>" &_
"<Url><![CDATA[]]></Url>" &_
"</item>" &_
"</Articles>" &_
"<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>"
함수 종료
%>