프로그램 코드
< %@LANGUAGE="VBSCRIPT " CODEPAGE="65001"%>
<%
명시적인 옵션
response.charset = "UTF-8"
session.codepage = 65001
세션.시간 초과 = 1440
server.scripttimeout = 9999
'------------------------------- ------ --------
'기능: ASP는 자동으로 일치하는 기사 태그(태그)와 키워드를 얻습니다.
'매개변수: strTitle 제목
' strContent 콘텐츠
'Return: 0: 일치하는 태그가 없습니다. Others: 영어 반각 쉼표로 구분된 태그 목록
'설명: 레이블 키워드는 Discuz 레이블 키워드 목록을 호출합니다.
'발신: http://www.dlstu.cn/code/default.asp?id=1781
'------------------------------------------------ - --
함수 ShowTags(ByVal strTitle, ByVal strContent)
희미한 XML, objNodes, XMLPath, i
strTitle = 서버.URLEncode(strTitle)
strContent = Server.URLEncode(strContent)
XMLPath=" http://keyword.discuz.com/관련_kw.html ?title="&strTitle&"&content="&strContent&"&ics=utf-8&ocs=utf-8 "
'출처: http://www.downcodes.com
XML 설정 = server.CreateObject("Microsoft.XMLDOM")
XML 사용
.async = "거짓"
.resolveExternals = "거짓"
.setProperty "ServerHTTPRequest", true
.load(XML경로)
.getElementsByTagName("info")(0).selectSingleNode("count").Text > 0이면
objNodes = .getElementsByTagName("item") 설정
i = 0에서 objNodes.length - 1인 경우
ShowTags = ShowTags & Trim(objNodes(i).selectSingleNode("kw").Text)&","
다음
objNodes = 없음 설정
ShowTags = 왼쪽(ShowTags,Len(ShowTags)-1)
또 다른
표시태그 = 0
종료 조건
끝
XML = 없음 설정
종료 기능
'응용 프로그램
Response.write ShowTags("Yipin Sky 웹 개발 코드 스테이션 ASP 및 웹 개발과 관련된 기타 클래식 코드 모음 블로그 - ASP 통신 QQ 그룹 12814238(전체) 14725152(공개) http://code.dlstu.cn", "Yipin Sky 웹 개발 Code Station ASP 및 웹 개발과 관련된 기타 클래식 코드 모음 블로그 - ASP 통신 QQ 그룹 12814238(전체) 14725152(공개) http://code.dlstu.cn")
%>