杭州交通信息网初期怀男孩有哪些特征:关于列表菜单关联(ASP+Access)
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/30 23:12:50
现在只差第一步,几个列表菜单互相关联:选择公司后,'公司列表'后面的列表菜单内容相应为选择公司的产品内容~~再继续选择另一公司,再选择此公司的产品...(把最后把所选的产品的价格相加等...都已经OK了的.)
不知各位高手能否帮帮我?
有点急~~谢谢啦~~ ( 我可以把全部的ASP文件和数据库文件发给愿意出手帮我的高手们,方便调试.)
''''''''''''''''''''''''''''''''''''''''''''''''''
'二级及联下拉列表
'sql1,sql2 数据库查询字符串sql 主类 sql2 子类
'con 数据库连接对象
'sql1ID,sql1Value 主类的 value 值 和 字面值
'sql2ID,sqlValue,sqlFrID 子类 的 value 值 和 字而值 及 相对于主类的外銉
'smallid 指定被选中的子类ID
''''''''''''''''''''''''''''''''''''''''''''''''''
Function selClass(sql1,sql2,con,sql1ID,sql1Value,sql2ID,sql2Value,sql2FrID,smallid)
Set RsFind = Server.CreateObject("Adodb.RecordSet")
Set RsFinds = Server.CreateObject("Adodb.RecordSet")
RsFinds.Open sql2,con,1,1
RsFind.Open sql1,con,1,1
RsID = RsFinds.RecordCount
iRsID = 0
If smallid="" Or IsNumeric(smallid) = False Then smallid = 0
SmallShowID = Clng(smallid)
Response.Write(" <select name=selbigs OnChange=selChange(this.value)>")
'Response.Write("<option >请选择主类别</option>")
Do While Not RsFind.Eof
Response.Write("<option value=" & RsFind(sql1ID) & ">" & RsFind(sql1Value) & "</option>")
RsFind.MoveNext
Loop
Response.Write("</select> " & " <select name=selsmalls></select>")
ClsObj(RsFind)
%>
<script language="javascript">
var icount;
selsmall = new Array()
icount=0;
<%
do while not RsFinds.eof
%>
selsmall[<%=iRsID%>] = new Array("<%= trim(RsFinds(sql2ID))%>","<%=RsFinds(sql2Value)%>","<%= RsFinds(sql2FrID)%>");
<%
iRsID = iRsID + 1
RsFinds.movenext
loop
%>
onecount=<%=iRsID%>;
function selChange(str)
{
document.form1.selsmalls.length = 0;
var locationid=str;
var i;
for (i=0;i < onecount; i++)
{
if (selsmall[i][2] == locationid)
{
document.form1.selsmalls.options[document.form1.selsmalls.length] = new Option(selsmall[i][1], selsmall[i][0]);
}
}
}
selChange(document.form1.selbigs.value);
var sid;
sid=<%=SmallShowID%>;
if(sid!=0)
{
for (i=0;i < onecount; i++)
{
if (selsmall[i][0] == sid)
{
selChange(selsmall[i][2]);
document.form1.selbigs.value = selsmall[i][2];
document.form1.selsmalls.value=sid;
}
}
}
</script>
<%
ClsObj(RsFinds)
End Function
ClsObj(RsFinds) 这是个注销记录集的函数
如果还不行 加我QQ：416619723