|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
减少客户内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[this.selectedIndex].value,Select02)">
<optionvalue="">省...</option>
</select>
<selectname="Select02"onchange="chgSelect(2,this.options[this.selectedIndex].value,Select03)">
<optionvalue="">市...</option>
</select>
<selectname="Select03"onchange="chgSelect(3,this.options[this.selectedIndex].value,Select04)">
<optionvalue="">县...</option>
</select>
<selectname="Select04"onchange="chgSelect(4,this.options[this.selectedIndex].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[i+1].text=varDistName[i];"&vbcrlf)
Response.Write("varElem.options[i+1].value=varAutoID[i]+-+varDistName[i];"&vbcrlf)
Response.Write("}"&vbcrlf)
Response.Write("varElem.selectedIndex=0;"&vbcrlf)
%>
db1.mdb
-------------------------------------------------
福建厦门思明黄厝曾厝桉村
福建泉州丰泽西湖水头村</p>缺乏可以共同遵循的行业标准,ASP还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。 |
|