kode program
< %@LANGUAGE="VBSCRIPT " CODEPAGE="65001"%>
<%
pilihan eksplisit
respon.charset = "UTF-8"
sesi.halaman kode = 65001
sesi.batas waktu = 1440
server.scripttimeout = 9999
'----------------------------------------------------------- ------ --------
'Fungsi: ASP secara otomatis memperoleh tag artikel (Tag) dan kata kunci yang cocok
'Parameter: judul strTitle
' strKonten konten
'Kembali: 0: Tidak ada tag yang cocok Lainnya: Daftar tag dipisahkan dengan koma setengah lebar bahasa Inggris
'Penjelasan: Kata kunci label memanggil daftar kata kunci label Discuz
'Dari: http://www.dlstu.cn/code/default.asp?id=1781
'------------------------------------------------ - --
Fungsi ShowTags(ByVal strTitle, ByVal strContent)
Redupkan XML, objNodes, XMLPath, i
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 "
'Dari: http://www.downcodes.com
Setel XML = server.CreateObject("Microsoft.XMLDOM")
Dengan XML
.async = "salah"
.resolveExternals = "salah"
.setProperty "ServerHTTPRequest", benar
.load(XMLPath)
Jika .getElementsByTagName("info")(0).selectSingleNode("count").Text > 0 Kemudian
Setel objNodes = .getElementsByTagName("item")
Untuk i = 0 hingga objNodes.length - 1
ShowTags = ShowTags & Pangkas(objNodes(i).selectSingleNode("kw").Teks)&","
Berikutnya
Setel objNodes = Tidak Ada
ShowTags = Kiri(ShowTags,Len(ShowTags)-1)
Kalau tidak
TampilkanTag = 0
Akhiri Jika
Akhiri Dengan
Setel XML = Tidak Ada
Fungsi Akhir
'Aplikasi
Response.write ShowTags("Yipin Sky Web Development Code Station ASP dan blog kumpulan kode klasik lainnya yang terkait dengan pengembangan Web - komunikasi ASP grup QQ 12814238 (lengkap) 14725152 (terbuka) http://code.dlstu.cn", "Yipin Sky Stasiun Kode Pengembangan Web ASP dan blog kumpulan kode klasik lainnya yang terkait dengan pengembangan Web - komunikasi ASP grup QQ 12814238 (lengkap) 14725152 (terbuka) http://code.dlstu.cn")
%>