作者:游泳 | 来源:互联网 | 2024-10-18 14:02
请选择一级分类
<%Dim BigClassRs,BigClassSql
Set BigClassRs=Server.CreateObject("Adodb.RecordSet")
BigClassSql="Select * From Hhf_PrBigClass"
BigClassRs.Open BigClassSql,Conn,1,1
if Not(BigClassRs.Bof And BigClassRs.Eof) Then
Do while Not BigClassRs.Eof
response.write " if BigClassRs("BigID")=int(BigclassID) then
response.Write "selected"
end if
response.write ">" & BigClassRs("BigClassName") & " "
BigClassRs.movenext
Loop
end if
BigClassRs.Close
Set BigClassRs=Nothing
%>
请选择二级分类
<%Dim SmallClassRs,SmallClassSql
Set SmallClassRs=Server.CreateObject("Adodb.RecordSet")
SmallClassSql="Select * From Hhf_PrSmallClass"
SmallClassRs.Open SmallClassSql,Conn,1,1
if Not(SmallClassRs.Bof And SmallClassRs.Eof) Then
Do while Not SmallClassRs.Eof
response.write " if SmallClassRs("BigID")=int(BigclassID) then
response.Write "selected"
end if
response.write ">" & SmallClassRs("BigClassName") & " "
SmallClassRs.movenext
Loop
end if
SmallClassRs.Close
Set SmallClassRs=Nothing
%>
当我选择第一个下拉框时触发onChange事件,根据选择的不同在第二个下拉列表中显示不同的内容。两个都是从数据库中读取,也就是第二个下拉列表的内容是根据第一个选择不同而变化!!急!谢谢了
6 个解决方案
懂AJAX用AJAX;不懂AJAX用表单提交刷新网页
<%
BigClassID=request.form("BigClassName") if BigClassID="" then BigClassID=0 SmallClassID=request.form("SmallClassName") if SmallClassID="" then SmallClassID=0 Dim rs,sql Set rs=Server.CreateObject("Adodb.RecordSet")
%>
0">请选择一级分类
<%
sql="Select BigID,BigClassName From Hhf_PrBigClass"
rs.Open sql,Conn,1,1
with response
Do while Not rs.Eof
if rs(0)&""-BigclassID=0 then sel= " selected" else sel=""
.write "" & rs(1)&"" & " "
rs.movenext
Loop
end with
rs.Close
%>
0">请选择二级分类
<%
sql="Select BigID,BigClassName From Hhf_PrSmallClass WHERE [你的一级分类ID字段]="&BigClassID
rs.Open sql,Conn,1,1
with response
Do while Not rs.Eof
if rs(0)&""-SmallClassID=0 then sel= " selected" else sel=""
.write "" & rs(1)&"" & " "
rs.movenext
Loop
end with
rs.close
%>
顺便建议一下,你的代码太不规范,以后要注意改进。一个记录集就搞定的别声明那么多的记录集,什么bigRs,SmallRs之类的......
谢谢二楼的建议和方法,我会改进!
但我不想用表单来提交,提交一次的话页面就刷新了,我想用AjAX。可能AjAx对我来说还有点难度,希望大家帮帮我,就算学个思路也行,最好有代码可以参考!谢谢了
唉~~ 这类问题论坛里面见过好几回了。
提问者花点心思搜一下多快啊。