ASP网页编程之关于的无穷级联(省|市|县|乡|村|...)
减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件，简单易用，无需专业技术支持。index.asp<html>
<head>
<title></title>
<metacontent="text/html;charset=gb2312"http-equiv="content-type">
<styletype="text/css"><!--
FONT{font-size:12px}
TD{font-size:12px}
A{color:#333399}
A:hover{color:#FF6600}
--></style>
<scriptlanguage="JavaScript"type="text/JavaScript"><!--
functionfunOnload(){
document.all.list_file.src="jscript_city.asp?base=0&sele=0-&elem=Select01";
}
//pBase级数，以0基，
//pSele是<option的value值
//pEle是下一级的表单名字
functionchgSelect(pBase,pSele,pElem){
//当改动了一个列表以后。扫除今后的列表的值。
for(i=parseInt(pElem.replace("Select",""));i<=5;i++){
vartmp="000"+i;
varpElem1=eval("document.Form1.Select"+tmp.substr(tmp.length-2));
pElem1.length=1;
pElem1.selectedIndex=0;
}
//JS用ASP失掉数据库的数据来更新上级列表
document.all.list_file.src="jscript_city.asp?base="+pBase+"&sele="+pSele+"&elem="+pElem;
}
//--></script>
<scriptid="list_file"language="JavaScript"type="text/JavaScript"src=""></script>
</head>
<bodybgcolor="#FFFFFF"leftmargin="0"topmargin="2"text="#333333"onload="funOnload();">
<formname="Form1">
<selectname="Select01"onchange="chgSelect(1,this.options.value,Select02)">
<optionvalue="">省...</option>
</select>
<selectname="Select02"onchange="chgSelect(2,this.options.value,Select03)">
<optionvalue="">市...</option>
</select>
<selectname="Select03"onchange="chgSelect(3,this.options.value,Select04)">
<optionvalue="">县...</option>
</select>
<selectname="Select04"onchange="chgSelect(4,this.options.value,Select05)">
<optionvalue="">乡...</option>
</select>
<selectname="Select05">
<optionvalue="">村...</option>
</select>
</form>
</body></html>
jscript_city.asp
<%
varBase下拉菜单品级
varSele所选择下拉菜单项的数据库ID
varElem下一级的表单称号
varBase=Request.QueryString("base")
varSele=Left(Request.QueryString("sele"),InStr(Request.QueryString("sele"),"-")-1)
varElem=Request.QueryString("elem")
varDistName=""
varAutoID=""
SetconDB=Server.CreateObject("ADODB.CONNECTION")
conDB.Open"Driver={MicrosoftAccessDriver(*.mdb)};DBQ="&Server.Mappath("db1.mdb")
sqlCommand="select*fromtable1wherefiled1="&varBase&"andfiled2="&varSele
SetrsRecord=conDB.Execute(sqlCommand)
WhileNotrsRecord.eof
varDistName=varDistName&chr(34)&rsRecord("filed3")&chr(34)
varAutoID=varAutoID&chr(34)&rsRecord("id")&chr(34)
rsRecord.movenext
IfNotrsRecord.EofThen
varDistName=varDistName&","
varAutoID=varAutoID&","
EndIf
Wend
Response.Write("varvarDistName=newArray("&varDistName&")"&vbcrlf)
Response.Write("varvarAutoID=newArray("&varAutoID&")"&vbcrlf)
Response.Write("varvarElem=eval("&chr(34)&"document.Form1."&varElem&chr(34)&")"&vbcrlf)
Response.Write("varElem.length=varDistName.length+1;"&vbcrlf)
Response.Write("for(vari=0;i<varDistName.length;i++){"&vbcrlf)
Response.Write("varElem.options.text=varDistName;"&vbcrlf)
Response.Write("varElem.options.value=varAutoID+-+varDistName;"&vbcrlf)
Response.Write("}"&vbcrlf)
Response.Write("varElem.selectedIndex=0;"&vbcrlf)
%>
db1.mdb
-------------------------------------------------
福建厦门思明黄厝曾厝桉村
福建泉州丰泽西湖水头村</p>缺乏可以共同遵循的行业标准，ASP还处在发展初期，大家对它的理解不同，如产品和服务标准，收费标准等，不利于行业的健康发展。 那么，ASP.Net有哪些改进呢？ 下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助... 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write 最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点: 掌握asp的特性而且一定要知道为什么。
页:
[1]