28,406
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
超级大笨狼 2003-12-07
- 打赏
- 举报
我马上要升两星了，还差一百分，估计是明天
升完后我也要忙工作了
不能再沉迷在这里了
哎，舍不得这里给我这样的快乐和成就感！
今天拼命做了一个四级连动完美版，access数据库，速度非常快！！！
两个小文件总共代码一共不超过80行！9万条记录运行如飞！！
哈哈，终于完成，我做的
http://expert.csdn.net/Expert/topic/2537/2537402.xml?temp=.5528223
升完后我也要忙工作了
不能再沉迷在这里了
哎，舍不得这里给我这样的快乐和成就感！
今天拼命做了一个四级连动完美版，access数据库，速度非常快！！！
两个小文件总共代码一共不超过80行！9万条记录运行如飞！！
哈哈，终于完成，我做的
http://expert.csdn.net/Expert/topic/2537/2537402.xml?temp=.5528223
超级大笨狼 2003-12-04
- 打赏
- 举报
我就自己做的连动下拉列表也顺便送给大家
Access数据库
● 数据库名：DB_ProvinceCat
● 表名：1）Tb_Province 2）Tb_City
说明：表Tb_Province用来存放省份名称；表Tb_City用来存放相应的城市名称。
● 字段名的设计
1） 表Tb_Province的字段有省份ID号（ProvinceCatID）、省份代码（ProvinceCode）、省份名称（ProvinceName），表1给出了示例：
ProvinceCatID ProvinceCode ProvinceName
1 01 北京市
2 02 上海市
3 03 天津市
4 04 重庆市
5 05 广东省
6 06 浙江省
7 07 福建省
8 08 海南省
9 09 江苏省
表1
2） 表Tb_City的字段有城市ID号（CityID）、城市代码（CityCode）、城市名称（CityName），表2给出了示例：
CityID CityCode CityName
1 01001 北京市
2 02001 上海市
3 03001 天津市
4 04001 重庆市
5 05001 广州市
6 05002 深圳市
7 05003 珠海市
8 05004 茂名市
9 05005 中山市
10 06001 杭州市
11 06002 温州市
12 07001 福州市
13 07002 厦门市
14 08001 海口市
15 08002 三亚市
16 08003 万宁市
17 08004 五指山市
18 09001 南京市
19 09002 苏州市
表2
说明：这里要注意的一点就是，身份代码要对应城市代码的头两位,数据库尽量不要出现有父亲没儿子的事情。
文件：TwoSelect.asp经简单测试好用！
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
Dim Cn,Rs
Dim SQL,StrDSN
Dim MyArray()
Set cn=Server.CreateObject("ADODB.connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
StrDSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DB_ProvinceCat.mdb")
Cn.Open strDSN
SQL="select * from Tb_Province order by ProvinceCatID"
Rs.Open SQL,cn,3,2
Rs.MoveFirst
redim MyArray(Rs.RecordCount-1)
%>
<table width="273" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="96"> <SELECT id=select1 style="WIDTH: 96px" name=select1>
<OPTION selected value=select<%=Rs("ProvinceCode")%>><%=Rs("ProvinceName")%></OPTION>
<%
MyArray(0)=Rs("ProvinceCode")
Rs.MoveNext
for i=1 to Rs.RecordCount-1
%>
<OPTION value=select<%=Rs("ProvinceCode")%>><%=Rs("ProvinceName")%></OPTION>
<%
MyArray(i)=Rs("ProvinceCode")
Rs.MoveNext
next
%>
</SELECT>
<%
Rs.Close
%>
</td>
<td width="96">
<%
for i=0 to ubound( MyArray)
SQL="select * from Tb_City where CityCode like '" & MyArray(i) & "%'"
'Response.End
Rs.Open SQL,cn,3,2
if Rs.RecordCount >0 then
Rs.MoveFirst
%>
<SELECT id=select<%=MyArray(i)%> style="WIDTH: 96px;display='none'" name=select<%=MyArray(i)%>>
<%do while not Rs.EOF %>
<OPTION value="<%=Rs("CityName")%>"><%=Rs("CityName")%></OPTION>
<%
Rs.MoveNext
loop
%>
</SELECT>
<%
end if
Rs.Close
next
%>
<SCRIPT LANGUAGE=vbscript>
<!--
dim Province,City
dim obj,lastObj
lastObj="select01"
obj="select01"
window.execScript "select01.style.display='block'" ,"vbs"
Province="北京市"
City="北京市"
Sub select1_onchange
obj=select1.value
if obj<>lastObj and isobject(eval(obj)) then
window.execScript Obj & ".style.display='block'" ,"vbs"
window.execScript lastObj & ".style.display='none'" ,"vbs"
Province=select1.options(select1.selectedIndex).innertext
window.execScript "City=" & Obj & ".value" ,"vbs"
lastObj=select1.value
end if
End Sub
sub SubMe()
window.execScript "City=" & Obj & ".value" ,"vbs"
window.location.href="TwoSelect.asp?Province=" & Province & "&City=" & City
End Sub
-->
</SCRIPT>
</td>
<td width="81"><input type="button" name="Submit" value="按钮" onClick="vbs:SubMe"></td>
</tr>
</table>
</BODY>
</HTML>
Jack0Cao 2003-10-09
- 打赏
- 举报
多谢
那个java函数怎么用vbs来实现呢
我明白了马上就给您加分
多谢
那个java函数怎么用vbs来实现呢
我明白了马上就给您加分
多谢
萝卜波 2003-10-08
- 打赏
- 举报
<HTML>
<HEAD>
<title> 用javascript的 </title>
<script language="javascript">
function TypeChange(theSelect,intt1,strt2)
{
var sTemp,sString,i;
theSelect.selectedIndex=intt1;
sValue=theSelect.value;
sSubTypeArray=sValue.split("+");
sString="<select name='txt13' class=bd style='WIDTH:120px;' size=1 >";
//sString+="<option value='所有子类'>所有子类</option>"
for(i=0;i<sSubTypeArray.length;i++)
{sel="";
if (strt2==sSubTypeArray[i]) sel="selected";
sString+="<option value='"+sSubTypeArray[i]+"' "+ sel +">"+sSubTypeArray[i]+"</option>";
}
sString+="</Select>"
form1.txt13.outerHTML=sString;
}
</script>
</HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="main.css" rel=stylesheet>
<BODY topmargin=0 background="../images/bg.gif">
<table width=760 border=0 cellspacing=0 cellpadding=0 align="center">
<tr>
<td width=108 background="../images/bgleft.gif" height=400 valign="top">
<table border="0" cellpadding="0" cellspacing="0" width="108">
<tr>
<td><img src="images/spacer.gif" width="108" height="1" border="0"></td>
</tr>
<!---->
<tr>
<td><img name="left_r7_c1" src="images/left_r7_c1.gif" width="108" height="17" border="0"></td>
</tr>
<tr>
<td><a href="#" onclick="showhidetbl(5)"><img name="left_r8_c1" src="images/tfstation.gif" width="108" height="28" border="0"></a></td>
</tr>
<tr>
</td>
</tr>
<!---->
</table>
</td>
<td valign=top><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td height="260" valign="top"> <br>
<TABLE align="center" borderColor=#7e8788 cellSpacing=1
borderColorDark=#ffffff cellPadding=4 width=558
borderColorLight=#336699 border=1>
<TBODY>
<TR>
<TD style="BORDER-BOTTOM: #324478 2px solid"
bgColor=#b8e0eb>
<DIV align=center><FONT color=#000066 size=3>交通标牌 添加记录</FONT></DIV></TD></TR>
<TR>
<TD align=middle bgColor=#f0f0f0 height=180><br>
<FORM name=form1 method=post>
<TABLE cellPadding=1 cellSpacing=2 width=100% border=0>
<TBODY>
<TR>
<TD width="276" height=28> </TD>
<TD width="258" height=28> </TD>
</TR>
<TR>
<TD height=28> </TD>
<TD height=28> </TD>
</TR>
<TR>
<TD height=28> 类别 :
<select name=txt03 size=1 class=bd id="txt03" style="WIDTH: 48px; " onchange="TypeChange(this,this.selectedIndex,'dd');">
<option value="急弯+注意行人+注意儿童+其他">警告</option>
<option value="禁止驶入+禁止机动车通行+禁止载货汽车通行+禁止两轮摩托车通行+禁止向左转弯+禁止向右转弯+禁止调头+禁止车辆临时或长时停放+限速+限高+减速让行+其他">禁行</option>
<option value="向左转弯+向右转弯+单行+人行横道+分向行驶车道+允许掉头+靠右侧道路行驶+靠左侧道路行驶+人行天桥+人行地下通道+其他">指示</option>
<option value="其它">其它</option>
</select> <select name=txt13 size=1 class=bd id="txt13" style="WIDTH:120px; ">
</select> </TD>
<TD height=28> </TD>
</TR>
<TR>
<TD height=28> </TD>
<TD height=28> </TD>
</TR>
<TR>
<TD height=28> </TD>
<TD height=28> </TD>
</TR>
<TR>
<TD height=30 colspan="2" vAlign=bottom> </TD>
</TR>
<TR valign="middle">
<TD height=30 colspan="2"> </TD>
</TR>
<tr>
<td colspan="2"><font color=red align=left> </font></td>
</tr>
</TBODY>
</TABLE>
</FORM>
</TD>
</TR></TBODY></TABLE><br><br><br><br>
</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td align="center"><br>
</td>
</tr>
</table></td>
</tr>
</table>
<script language='javascript'>TypeChange(document.form1.txt03,0,'')</script>
</BODY>
</HTML>
<HEAD>
<title> 用javascript的 </title>
<script language="javascript">
function TypeChange(theSelect,intt1,strt2)
{
var sTemp,sString,i;
theSelect.selectedIndex=intt1;
sValue=theSelect.value;
sSubTypeArray=sValue.split("+");
sString="<select name='txt13' class=bd style='WIDTH:120px;' size=1 >";
//sString+="<option value='所有子类'>所有子类</option>"
for(i=0;i<sSubTypeArray.length;i++)
{sel="";
if (strt2==sSubTypeArray[i]) sel="selected";
sString+="<option value='"+sSubTypeArray[i]+"' "+ sel +">"+sSubTypeArray[i]+"</option>";
}
sString+="</Select>"
form1.txt13.outerHTML=sString;
}
</script>
</HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="main.css" rel=stylesheet>
<BODY topmargin=0 background="../images/bg.gif">
<table width=760 border=0 cellspacing=0 cellpadding=0 align="center">
<tr>
<td width=108 background="../images/bgleft.gif" height=400 valign="top">
<table border="0" cellpadding="0" cellspacing="0" width="108">
<tr>
<td><img src="images/spacer.gif" width="108" height="1" border="0"></td>
</tr>
<!---->
<tr>
<td><img name="left_r7_c1" src="images/left_r7_c1.gif" width="108" height="17" border="0"></td>
</tr>
<tr>
<td><a href="#" onclick="showhidetbl(5)"><img name="left_r8_c1" src="images/tfstation.gif" width="108" height="28" border="0"></a></td>
</tr>
<tr>
</td>
</tr>
<!---->
</table>
</td>
<td valign=top><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td height="260" valign="top"> <br>
<TABLE align="center" borderColor=#7e8788 cellSpacing=1
borderColorDark=#ffffff cellPadding=4 width=558
borderColorLight=#336699 border=1>
<TBODY>
<TR>
<TD style="BORDER-BOTTOM: #324478 2px solid"
bgColor=#b8e0eb>
<DIV align=center><FONT color=#000066 size=3>交通标牌 添加记录</FONT></DIV></TD></TR>
<TR>
<TD align=middle bgColor=#f0f0f0 height=180><br>
<FORM name=form1 method=post>
<TABLE cellPadding=1 cellSpacing=2 width=100% border=0>
<TBODY>
<TR>
<TD width="276" height=28> </TD>
<TD width="258" height=28> </TD>
</TR>
<TR>
<TD height=28> </TD>
<TD height=28> </TD>
</TR>
<TR>
<TD height=28> 类别 :
<select name=txt03 size=1 class=bd id="txt03" style="WIDTH: 48px; " onchange="TypeChange(this,this.selectedIndex,'dd');">
<option value="急弯+注意行人+注意儿童+其他">警告</option>
<option value="禁止驶入+禁止机动车通行+禁止载货汽车通行+禁止两轮摩托车通行+禁止向左转弯+禁止向右转弯+禁止调头+禁止车辆临时或长时停放+限速+限高+减速让行+其他">禁行</option>
<option value="向左转弯+向右转弯+单行+人行横道+分向行驶车道+允许掉头+靠右侧道路行驶+靠左侧道路行驶+人行天桥+人行地下通道+其他">指示</option>
<option value="其它">其它</option>
</select> <select name=txt13 size=1 class=bd id="txt13" style="WIDTH:120px; ">
</select> </TD>
<TD height=28> </TD>
</TR>
<TR>
<TD height=28> </TD>
<TD height=28> </TD>
</TR>
<TR>
<TD height=28> </TD>
<TD height=28> </TD>
</TR>
<TR>
<TD height=30 colspan="2" vAlign=bottom> </TD>
</TR>
<TR valign="middle">
<TD height=30 colspan="2"> </TD>
</TR>
<tr>
<td colspan="2"><font color=red align=left> </font></td>
</tr>
</TBODY>
</TABLE>
</FORM>
</TD>
</TR></TBODY></TABLE><br><br><br><br>
</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td align="center"><br>
</td>
</tr>
</table></td>
</tr>
</table>
<script language='javascript'>TypeChange(document.form1.txt03,0,'')</script>
</BODY>
</HTML>
