從資料庫中讀取記錄的動態列表(無初始值)

來源:互聯網
上載者:User
動態|資料|資料庫 這裡是以省份和城市為例,由於用到資料庫,請先建立資料庫dlist.mdb

資料庫名稱:dlist.mdb


省份表名稱:Province
欄位有:p_id(類型:自動編號),p_name(類型:文本,省份名稱)

城市表名稱:City
欄位有:c_id(類型:自動編號),c_pid(類型:文本,省份名稱,等於Province表中的p_name),c_name(類型:文本,城市名稱)


來源程式如下,儲存為ASP檔案即可執行。
------------------------------------------------------------
<%
dim id
id=request.QueryString("id")

if id="1" then
response.Write "<br>" & request.Form("lstb")
response.Write "<br>" & request.Form("lsts")
end if

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>JS動態列表示例</title>
<script language="JavaScript">
<!--
var sSort = new Array();
var num = 0;
<%
dim conn,rs,grs,i,j,pstr
pstr=""
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
set grs=server.createobject("adodb.recordset")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath("dlist.mdb")
'寫省份JS數組
rs.open "select * from province;",conn,1,1
for i=0 to rs.recordcount-1
pstr=pstr & "<option value=""" & rs("p_name") & """>" & rs("p_name") & "</option>"
getsub(rs("p_name"))
rs.movenext
next

rs.close()
set rs=nothing
set grs=nothing

'根據省份寫城市JS數組的過程
sub getsub(pname)
grs.open "select * from city where c_pid='" & pname & "';",conn,1,1
for j=1 to grs.recordcount
response.write "sSort[num++] = new Array(""" & grs("c_name") & """ ,""" & pname & """);" & vbCrlf
grs.movenext
next
grs.close()
end sub
%>

var nsSortCount = num;

function sdbSortChange(cmbsdbSort, cmbsSort)
{
var nSelsdbSort = cmbsdbSort.selectedIndex;
var ssdbSort = cmbsdbSort.options[nSelsdbSort].value;

cmbsSort.length = 0;
cmbsSort.options[0] = new Option('-請選擇-', '');
for(var i=0; i<nsSortCount; i++)
{
if(sSort[i][1] == ssdbSort)
{
cmbsSort.options[cmbsSort.length] = new Option(sSort[i][0], sSort[i][0]);
}
}
}

function InitsSort(cmbsdbSort, cmbsSort)
{
var nSelsdbSort = cmbsdbSort.selectedIndex;
var ssdbSort = cmbsdbSort.options[nSelsdbSort].value;
var ssSort = cmbsSort.options[0].value;


cmbsSort.length = 0;
cmbsSort.options[0] = new Option('-請選擇-', '');
var n = 0;
for(var i=0; insSortCount; i++)
{
if(sSort[i][1] == ssdbSort)
{
cmbsSort.options[cmbsSort.length] = new Option(sSort[i][0], sSort[i][0]);

if(sSort[i][0] == ssSort)
cmbsSort.options[cmbsSort.length-1].selected = true;
}
}
}

//-->
</script>
</head>

<body>
<p> </p>
<p> </p>
<p> </p>
<form action="index.asp?id=1" method="post" name="frmdlist" id="frmdlist">
<table width="408" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<td width="400" align="center">JS動態列表示例</td>
</tr>
<tr>
<td align="center"><%response.write "<select name=""lstb"" style=""width:200"" onChange=""sdbSortChange(this,frmdlist.lsts);"">" & pstr & "</select>"%>
</td>
</tr>
<tr>
<td align="center">  </td>
</tr>
<tr>
<td align="center"><select style="width:200" name="lsts" id="lsts">
</select>
</td>
</tr>
</table>
<p align="center">
</p>
<p align="center"> </p>



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。