asp中的及关联问题

来源：百度知道 编辑：UC知道 时间：2024/09/23 01:41:53
两个表，
主表， 省份
id
shengname
shengno
shengorder
分表 市
id
shiname
shino
shiorder
shengid
主表id 即为分表shengid

要求是 在一个页面里，的两级关联下拉列表

下面的给你做个思路吧。

<%
Dim conn,rs
Dim SQL,StrDSN
Dim MyArray()
Set conn=Server.CreateObject("ADODB.connection")
Set rs = Server.CreateObject("ADODB.Recordset")
StrDSN = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("shengshi.mdb")
conn.Open strDSN
SQL="select * from sheng order by ID"
rs.Open SQL,conn,3,2
rs.MoveFirst
redim MyArray(rs.RecordCount-1)
%>
<table width="273" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="96"> <SELECT id=select1 style="WIDTH: 96px" name=select1>
<OPTION selected value=select<%=rs("shengno")%>><%=rs("shengname")%></OPTION>
<%
MyArray(0)=rs("shengno")
rs.MoveNext