无为清净楼资源网 Design By www.qnjia.com

复制代码 代码如下:
<!--#include file="conn.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>New Page 1</title> 
</head> 
<body> 
<% 
dim rs 
dim sql 
dim count 
set rs=server.createobject("adodb.recordset") 
sql = "select * from shiinfo order by id asc" 
rs.open sql,conn,1,1 
%> 

<SCRIPT language="JavaScript"> 
var onecount; 
onecount=0; 
subcat = new Array(); 
<% 
count = 0 
do while not rs.eof  
%> 
subcat[<%=count%>] = new Array("<%= trim(rs("shiname"))%>","<%= trim(rs("shengcode"))%>","<%= trim(rs("id"))%>"); 
<% 
count = count + 1 
rs.movenext 
loop 
rs.close 
%> 
onecount=<%=count%>; 
function changelocation(locationid) 

document.form1.cid.length = 0;  
var locationid=locationid; 
var i; 
for (i=0;i < onecount; i++) 

if (subcat[i][1] == locationid) 
{  
document.form1.cid.options[document.form1.cid.length] = new Option(subcat[i][0], subcat[i][2]); 
}  

}  

</SCRIPT> 
<SCRIPT language="javascript"> 
<!-- 
function CheckForm() 

document.form1.txtcontent.value=document.form1.doc_html.value; 
return true 

//--> 
</SCRIPT> 
<form name=form1 onsubmit="check()"> 
省份 <% 
sql = "select * from shenginfo" 
rs.open sql,conn,1,1 
if rs.eof and rs.bof then 
response.write "请先添加省份。" 
response.end 
else 
%> 
<Select name="sid" onChange="changelocation(document.form1.sid.options[document.form1.sid.selectedIndex].value)" ><%  
do while not rs.eof 
%><OPTION selected value="<%=trim(rs("id"))%>"><%=trim(rs("shengname"))%></OPTION> 
<% 
rs.movenext 
loop 
end if 
rs.close 
%> 
</Select>  
城市:<Select name="cid"> 
<OPTION selected value="">==请选城市==</OPTION> 
</Select> 
</form> 
</body> 
</html>

标签:
ASP,连动,下拉列表

无为清净楼资源网 Design By www.qnjia.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
无为清净楼资源网 Design By www.qnjia.com

更新日志

2024年09月20日