TwoLevel.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>下拉列表示例</title>
</head>
<%
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