在ASP下实现像网易发短信息的选择电话本的功能？

[beret]

公司要用ASP做一个类似网易发手机短信息的选择电话本的功能，具体情况我不太会描述，我想大家也应该也在网上发过信息，想问问到底怎么才能实现这样的功能。也就是跟下面的差不多。有位beyond_xiruo(希偌)回应过了。但不是我要的那种。希望有朋友能帮小弟解决问题，最好有详细解答，谢谢！

主　　题：关于select下拉菜单显示数据库内容的问题
作　　者：beret
所属论坛：ASP
问题点数：20
回复次数：1
发表时间：2002-1-8 11:34:12


具体情况如下：先说表结构吧。

-----------------------------------------
id(自增量) menu1 menu2 content

1 A A君 1111
2 B B君 2222
3 C C君 3333
4 A D君 4444

-----------------------------------------

在相同页面有两个select下拉菜单，菜单一（menu1）访问数据库里的menu1列，菜单二（menu2）根据菜单一的条件再访问数据库里的menu2列.

举个例子：当选择“菜单一”的“A”时，“菜单二”会即时相应显示出“A君”，然后再将相应记录“conent”里的值赋到“菜单二”。还有一样的就是菜单一和菜单二会有多条记录的。希望能详细具体解答，谢谢！

[mkiss]

加点分吧!我帮你写出源代码!

[tttk]

你所说的这种菜单，在我刚刚开发完成的OA系统中多次应用，具体的实现方法是，利用ASP从数据库中把相关数据导入多个多维数组中，然后，利用菜单的OnChanged事件编写代码。

这里的技巧其实是javascript中多维数组的设置，告诉你一种方法(以下代码需要通过ASP程序得出）：
var menu = new Array();
menu[0] = new Array("父结点id", "字节点id", "字节点名称");
menu[1] = ...

有疑问，可以与我直接联系。[e-mail]

[beret]

To:tttk(要做就做最好)..我已经发信给你啦。。你收信啦。。等你回音。

[mkiss]

beret(贝雷帽):你看看是不是这个效果
http://www.chinafareast.com/mjh.asp

[beret]

To:mkiss(小kiss) 对就是这样的，但姓名那里会有很多，也就是说选“A”的话可能不止一个“A君”。可以把源代码给我吗？我最多就只有80。。我已经全割出去了。。

[mkiss]

姓名哪里是会很多的,我只是举几个例子:好吧!我贴出来了:(注意改一些东西)
<%
set Conn=server.createobject("adodb.connection")
connstr="Driver={SQL Server};Server=mail;UID=homepage;PWD=homepage;Database=fe_homepage" '这里要改成你的数据库连接
Conn.open connstr
set rs=server.createobject("adodb.recordset")
rs.open "select distinct menu1 from table1",conn,1,3
function selected(req,reqvalue)
if req=reqvalue then
selected=" selected"
else
selected=""
end if
end function
%> <form method="POST" action="mjh.asp" name="form1">
代码：<select size="1" name="hth" onChange="document.form1.submit();">
<option selected>请选择代号</option>
<%
if request("hth")<>"" then firsthth=request("hth")
do until rs.eof
%>
<option value="<%=rs("menu1")%>" <%=selected(firsthth,rs("menu1"))%>><%=rs("menu1")%></option>
<% rs.movenext
loop%>
</select>
姓名：<select size="1" name="kh">
<%
if request("hth")<>empty then
set rs1=conn.execute("select * from table1 where menu1='" & request("hth") & "'")
do until rs1.eof
%>
<option value="<%=rs1("content")%>"><%=rs1("menu2")%></option>
<% rs1.movenext
loop
end if%></select>  </p>
</form>

[beret]

To:mkiss(小kiss) 好的。我试试。。那我就先把分给你了。。给你70分，因为我要留下10分给tttk(要做就做最好)。。。　谢谢啦。。。

[tttk]

我们就以网易的电话本为例，给你说明这个例程执行的过程：
流程：从一个下拉列表中选择电话本条目，在另一个下拉列表中立即显示出与该条目相关的所有人员名单。

这里的技巧就在于数组的巧妙设置。
我们来看一下这两个下拉列表之间的数据在数据库中的关系，那就是，电话簿中的每一个人员名单必须对应一个组名，我们假设组的编号叫做gid，人员的编号叫做sid，毫无疑问，gid和sid之间是1对多的关系。先明白这一点，接下来，把数据以以下这种格式导出为javascript数组定义：

1、组数组 gMenu，用来包含所有的组信息
格式：gMenu(gid， 组名)
2、电话簿数组 sMenu，用来包含所有的电话号码信息
格式：sMenu(sid, gid，人员姓名, 电话号码) --这里的gid和上面的gid对应起来

根据上面的结构，通过asp程序生成以下代码，相信你知道怎么做。
<script lanauage="javascript">
...
var gMenu = new Array();
gMenu[0] = new Array(gid1, 组名1);
gMenu[1] = new Array(gid2, 组名2);
...
var sMenu = new Array();
sMenu[0] = new Array(sid1, gid??, 姓名1, 电话号码1);
sMenu[1] = new Array(sid2, gid??, 姓名2，电话号码2);
...
//注意，我这里的gid??表示根据实际数据来定。
...
</script>
//以下的script代码用来控制数组，请认真揣摩
<script language="javascript">
//参数说明：
//arrSub, 数组名称，即根据此数组生成菜单，需要利用上面产生的数组
//pValue, 父结点id，根据此id来决定显示哪些数据，0表示显示第一项；
//cValue, 当前显示id，根据此id来决定在过滤出的数据中那一项是当前项，0表示显示第一项；
//name, 菜单名称
//bulSkip, 菜单的第一项是否显示"<未选择>"，1表示显示，0表示不显示
function MakeMenu(arrSub, pValue, cValue, name, bulSkip){
var sHTML = "<select name='" + name + "' onchange='SetSubMenu(this)' class='input_apply140px'>";
if (bulSkip) sHTML += "<option value=0><未选择></option>";
for (var i=0; i < arrSub.length; i++){
if (arrSub[i][0]==pValue){
var tag = (arrSub[i][1]==cValue)?" selected>":">";
sHTML += "<option value='" + arrSub[i][1] + "'" + tag + arrSub[i][2] + "</option>";
}
}
sHTML += "</select>";
return sHTML;
}
//此函数取得指定的菜单显示值
function GetSelectValue(oSelect){
if (oSelect.selectedIndex < 0) return 0;
return oSelect.options(oSelect.selectedIndex).value;
}
//此函数取得指定对象的指定父对象
function GetParent(src, tag){
if (src && src.tagName!=tag){
return(GetParent(src.parentElement, tag));
}
return src;
}
//此函数设置子菜单项目
function SetSubMenu(pSelect){
var oOption, sValue

if (pSelect.selectedIndex < 0) return;
switch (pSelect.name){
case "s0":
var TD = GetParent(document.all("s1"), "TD"); //假设s1表示人员选单的select对象名称
TD.innerHTML = MakeMenu(arrMenu1, GetSelectValue(pSelect), "1", "s1", 0);
break;
default:
}
}

//此函数初始化菜单
//s0表示电话分组的Select对象的名称
function body_onload(){
TD = GetParent(document.all("s0"), "TD");
TD.innerHTML = MakeMenu(gMenu, 0, 0, "s0", 1);
TD = GetParent(document.all("s1"), "TD");
TD.innerHTML = MakeMenu(sMenu, GetSelectValue(document.all("s0")), 0, "s1", 1);
}
</script>
<body bgcolor="#FFFFFF" onload="body_onload()">
...
<td>
<select name="s0" onchange="SetSubMenu(this)"></select>
</td>
<td>
<select name="s1"></select>
</td>
</body>

以上代码，希望对你有所帮助。

[tttk]

不过，呵呵，我只得到10分，心里很不平衡哦。

[mkiss]

直接解决问题就行,这里的人不需要别的,就是解决问题的答案!^_^

[beret]

To:tttk(要做就做最好)。。呵。。呵。。真不好意思。。因为mkiss(小kiss)先帮我解决了。。所以我把多数的分数都给他啦。。不过在这里还是要谢谢你们。。以后有问题了希望你们还可以帮我解决。。最好当然是自己解决啦。。。　　

[tttk]

但是，beret，你注意到没有，采用mkiss的方法每次都要重新提交页面的(submit)，这就存在两个缺点喔：
1、如果表单页面上有用户输入的其它信息，重新提交后将~~拜拜~~
2、对于网络速度比较慢的用户，呵呵，想想他们的感受吧

仅供参考。

[beret]

我昨晚才发现的。。唉。。。所以还是不行。。现在只有看你的了。。呵。。呵。。。

[nclyj]

数据驿站有短信发送ASP程序,含组件，并有演示程序，大家可以下载放在自己的网站上使用
http://www.dbstep.com 产品信息栏里的iMobile短信发送