源码网商城,靠谱的源码在线交易网站 我的订单 购物车 帮助

源码网商城

网上用的比较多的asp级联菜单效果代码

  • 时间:2021-05-01 02:08 编辑: 来源: 阅读:
  • 扫一扫,手机访问
摘要:网上用的比较多的asp级联菜单效果代码
[u]复制代码[/u] 代码如下:
<!--#include file="conn.asp"-->  <html>  <head>  <meta http-equiv="Content-Type" content="text/html; charset=gb2312">  <meta name="GENERATOR" content="Microsoft FrontPage 4.0">  <meta name="ProgId" content="FrontPage.Editor.Document">  <title>New Page 1</title>  </head>  <body>  <%  dim rs  dim sql  dim count  set rs=server.createobject("adodb.recordset")  sql = "select * from shiinfo order by id asc"  rs.open sql,conn,1,1  %>  <SCRIPT language="JavaScript">  var onecount;  onecount=0;  subcat = new Array();  <%  count = 0  do while not rs.eof   %>  subcat[<%=count%>] = new Array("<%= trim(rs("shiname"))%>","<%= trim(rs("shengcode"))%>","<%= trim(rs("id"))%>");  <%  count = count + 1  rs.movenext  loop  rs.close  %>  onecount=<%=count%>;  function changelocation(locationid)  {  document.form1.cid.length = 0;   var locationid=locationid;  var i;  for (i=0;i < onecount; i++)  {  if (subcat[i][1] == locationid)  {   document.form1.cid.options[document.form1.cid.length] = new Option(subcat[i][0], subcat[i][2]);  }   }  }   </SCRIPT>  <SCRIPT language="javascript">  <!--  function CheckForm()  {  document.form1.txtcontent.value=document.form1.doc_html.value;  return true  }  //-->  </SCRIPT>  <form name=form1 onsubmit="check()">  省份 <%  sql = "select * from shenginfo"  rs.open sql,conn,1,1  if rs.eof and rs.bof then  response.write "请先添加省份。"  response.end  else  %>  <Select name="sid" onChange="changelocation(document.form1.sid.options[document.form1.sid.selectedIndex].value)" ><%   do while not rs.eof  %><OPTION selected value="<%=trim(rs("id"))%>"><%=trim(rs("shengname"))%></OPTION>  <%  rs.movenext  loop  end if  rs.close  %>  </Select>   城市:<Select name="cid">  <OPTION selected value="">==请选城市==</OPTION>  </Select>  </form>  </body>  </html>
  • 全部评论(0)
联系客服
客服电话:
400-000-3129
微信版

扫一扫进微信版
返回顶部