📄 twoselect.asp

📁 手机入网登记管理
💻 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>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -