标签自动提取 For PJ3

Else
response.write "非法操作!"
End If
%>

ElseIf request("action") = "autotag" Then
Dim showtag, title, Message, xml, objNodes, myxml, i
  title = Server.URLEncode(request("title"))
  Message = Server.URLEncode(request("Message"))
  myxml="http://keyword.discuz.com/related_kw.html?title="&title&"&content="&Message&"&ics=utf-8&ocs=utf-8"
  set xml = server.CreateObject("Microsoft.XMLDOM")
  xml.async = "false"
  xml.resolveExternals = "false"
  xml.setProperty "ServerHTTPRequest", true
  xml.load(myxml)
  If xml.getElementsByTagName("info")(0).selectSingleNode("count").Text > 0 Then
    Set objNodes = xml.getElementsByTagName("item")
    For i = 0 to objNodes.length - 1
      showtag = showtag & Trim(objNodes(i).selectSingleNode("kw").Text)&","
    Next
    Response.write Left(showtag,Len(showtag)-1)
  Else
    Response.write "0"
  End If

<input name="atuotag" type="button" class="userbutton" value="提取标签" onclick="autotag();"/>

function autotag() {
    var title = document.forms["frm"].title.value
    var Message = document.forms["frm"].Message.value;
    document.forms["frm"].atuotag.disabled = true;
    if (title.length < 1) {
        alert("错误提示：没有填写标题！    ");
        document.forms["frm"].atuotag.disabled = false;
        return false
    }
    if (Message.length < 1) {
        alert("错误提示：内容不能为空！    ");
        document.forms["frm"].atuotag.disabled = false;
        return false
    } else {
        var ajax = new AJAXRequest;
        ajax.get("action.asp?action=autotag&title=" + escape(title) + "&Message=" + escape(Message) + "&m=" + Math.random(),
        function(obj) {
            var TempStr = obj.responseText;
            document.forms["frm"].atuotag.disabled = false;
            if (TempStr == 0) {
                alert("没有找到可用标签！")
            } else {
                document.forms["frm"].tags.value += TempStr
            }
        })
    }
}