源代码：<%@ LANGUAGE="vbscript" %>

<%

strPathInfo = Request.ServerVariables("PATH_INFO")

strPathInfo = "http://" & Request.ServerVariables("SERVER_NAME") & Left(strPathInfo,InstrRev(strPathInfo,"/"))

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Provider = "sqloledb"

Conn.Open "Data Source=192.168.1.114;Initial Catalog=pubs;", "sa", "hans"

Set RS = Conn.Execute("SELECT DISTINCT sheng FROM test")

arrPr = RS.GetRows()

RS.Close

Set RS = Nothing

Conn.Close

Set Conn = Nothing

%>

第二个页面，用来生成XML文件

<%@ LANGUAGE="VBSCRIPT" %>

<%

sState = Request.QueryString("State")

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Provider = "sqloledb"

Conn.Open "Data Source=192.168.1.114;Initial Catalog=pubs;", "sa", "hans"

Set RS = Conn.Execute("SELECT city FROM test WHERE sheng='" & sState & "'")

arrCity = Rs.GetRows()

%>

<%For i = LBound(arrCity,2) To UBound(arrCity,2)%>

<%=arrCity(0,i)%>

<%Next%>

使用时注意修改数据库相关信息