プログラムコード
< %@LANGUAGE="VBSCRIPT " CODEPAGE="65001"%>
<%
明示的なオプション
応答.charset = "UTF-8"
セッション.コードページ = 65001
セッション.タイムアウト = 1440
server.scripttimeout = 9999
'------------------------------------------ ------ --------
'機能: ASP が一致する記事タグ (Tags) とキーワードを自動的に取得します
'パラメータ: strTitle タイトル
' strContent コンテンツ
'戻り値: 0: 一致するタグなし その他: 英語の半角カンマで区切られたタグのリスト
説明: label キーワードは、Discuz ラベル キーワード リストを呼び出します。
'出典: http://www.dlstu.cn/code/default.asp?id=1781
'------------------------------------------------ - --
関数 ShowTags(ByVal strTitle, ByVal strContent)
Dim XML、objNodes、XMLPath、i
strTitle = Server.URLEncode(strTitle)
strContent = Server.URLEncode(strContent)
XMLPath=" http://keyword.discuz.com/popular_kw.html?title="&strTitle&"&content="&strContent&"&ics=utf-8&ocs=utf-8 "
'出典: http://www.downcodes.com
XML = server.CreateObject("Microsoft.XMLDOM") を設定します。
XMLを使用する場合
.async = "偽"
.resolveExternals = "false"
.setProperty "ServerHTTPRequest"、true
.load(XMLパス)
If .getElementsByTagName("info")(0).selectSingleNode("count").Text > 0 then
objNodes = .getElementsByTagName("アイテム") を設定します
i = 0 から objNodes.length - 1 の場合
ShowTags = ShowTags & Trim(objNodes(i).selectSingleNode("kw").Text)&","
次
objNodes = なしを設定します
ShowTags = Left(ShowTags,Len(ShowTags)-1)
それ以外
タグの表示 = 0
終了の場合
で終わる
XML = なしを設定
関数「アプリケーションの終了
」
Response.write ShowTags("Yipin Sky Web Development Code Station ASP および Web 開発に関連するその他の古典的なコード コレクション ブログ - ASP コミュニケーション QQ グループ 12814238 (フル) 14725152 (オープン) http://code.dlstu.cn", "Yipin Sky Web 開発コード ステーション ASP および Web 開発に関連するその他の古典的なコード コレクション ブログ - ASP コミュニケーション QQ グループ 12814238 (フル) 14725152 (オープン) http://code.dlstu.cn")
%>