|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
无法实现跨操作系统的应用。当然这也是微软的理由之一,只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP,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">
<formname="Form1">
<selectname="Select01">
<optionvalue="">省...</option>
</select>
<selectname="Select02">
<optionvalue="">市...</option>
</select>
<selectname="Select03">
<optionvalue="">县...</option>
</select>
<selectname="Select04">
<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;"&vbcrlf)
Response.Write("varElem.options[i+1].value=varAutoID+-+varDistName;"&vbcrlf)
Response.Write("}"&vbcrlf)
Response.Write("varElem.selectedIndex=0;"&vbcrlf)
%>
db1.mdb
-------------------------------------------------
福建厦门思明黄厝曾厝桉村
福建泉州丰泽西湖水头村
如下面的五级转成数据库为:
-------------------------------
idfiled1filed2filed3
100福建
211厦门
311泉州
422思明
534黄厝
645曾厝桉村
723丰泽
837西湖
948水头村
-------------------------------------------------
数据库申明:
id主动编号
filed1下拉菜单列表的品级(看级数。能够设置它的精度。是数字范例)
filed2上一级的id号(用长整型吧)
filed3这个就不必说了吧(文件。长度本人看情形)
本程序在IIS4+WIN2000P+ACCESS2000下经由过程。
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来; |
|