<script language="JavaScript">
<!--
//**************************************************************
//調用搜索數據庫的xml文件
//**************************************************************
function optionlist(strvalue){
var xmlDoc = new ActiveXObject("Microsoft.XMLDOM");
xmlDoc.async="false";
xmlDoc.load("xml.asp?strvalue="+strvalue);
var nodes = xmlDoc.documentElement.childNodes;
var totallist= nodes.item(0).getElementsByTagName("itemlist").length;
<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
<!--#include file="Connstr.asp" -->
<%
Dim rs,strvalue
strvalue=trim(request("strvalue"))
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Connstr
set rs=Conn.Execute( "SELECT DISTINCT B.[小類] FROM table B where B.[大類]='"&strvalue&"' order BY B.[小類] ASC")
Response.Write("<?xml version=""1.0"" encoding=""big5""?>")
Response.Write("<root>")
Response.Write("<item>")
do while not rs.eof
Response.Write("<itemlist>"&rs.Fields.Item("小類").Value&"</itemlist>")
rs.movenext()
loop
Response.Write("</item>")
Response.Write("</root>")
if rs.state<>0 then rs.close
Set rs = Nothing
if Conn.state<>0 then Conn.close
Set Conn = Nothing
%>