利用ASP嵌套JS+sql SERVER打造两级连动下拉框（2）
TwoLevel.asp
XML:namespace prefix = o ns = "urn:schemas-microsoft-com:Office:office" />
<%
dim conn
dim connstr
on error resume next
set conn=server.Createobject("ADOdb.connection")
connstr="driver={SQL SERVER};server=wen;uid=sa;pwd=;database=DB_ProvinceCat"
conn.Open connstr
set Rs=server.createobject("ADODB.recordset")
Rs.CursorLocation = adUseClient
SQL="select * from Tb_Province"
Rs.open SQL,conn,1,1
if Not Rs.Eof then
Dim strjscript
strJScript=""
Response.Write("")&chr(13)
Rs.Close
Set Rs=Nothing
end if
Conn.close
set conn=nothing
%>
第三，进行代码调试。
本程序在win2000+IIS+SQL Server7.0环境下调试通过。
（全文完）
