программный код
< %@LANGUAGE="VBSCRIPT " CODEPAGE="65001"%>
<%
явный вариант
ответ.charset = "UTF-8"
сеанс.кодовая страница = 65001
сеанс.таймаут = 1440
server.scripttimeout = 9999
'-------------------------------------------- ------ --------
'Функция: ASP автоматически получает соответствующие теги статей (теги) и ключевые слова
'Параметр: заголовок strTitle
' содержимое strContent
'Возврат: 0: нет соответствующих тегов. Прочее: список тегов, разделенных английскими запятыми половинной ширины.
'Объяснение: Ключевое слово метки вызывает список ключевых слов метки Discuz.
'От: http://www.dlstu.cn/code/default.asp?id=1781
'------------------------------------------------ - --
Функция ShowTags(ByVal strTitle, ByVal strContent)
Тусклый XML, objNodes, XMLPath, я
strTitle = Server.URLEncode(strTitle)
strContent = Server.URLEncode(strContent)
XMLPath=" http://keyword.discuz.com/related_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", правда
.load(XMLPath)
Если .getElementsByTagName("info")(0).selectSingleNode("count").Text > 0 Тогда
Установите 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 и другие классические блоги по сбору кода, связанные с веб-разработкой - группа ASP QQ 12814238 (полный) 14725152 (открытый) http://code.dlstu.cn", "Yipin Sky Кодовая станция веб-разработки ASP и другие классические блоги по сбору кода, связанные с веб-разработкой — группа QQ для связи ASP 12814238 (полный) 14725152 (открытый) http://code.dlstu.cn")
%>