标题:谁帮看看这个代码
取消只看楼主
无言8888
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2017-5-31
 问题点数:0 回复次数:0 
谁帮看看这个代码
  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td align="center"><h1></h1>从
        <select name="select">
        <%
            Dim GetQihao
            GetQihao = GetAllQihao()
            For I = 0 To Ubound(GetQihao)
                If Instr(Request.Form("select"),GetQihao(I)) > 0 Then
                    Response.Write("<option value=" & GetQihao(I) & " selected>" & GetQihao(I) & "</option>")
                Else
                    Response.Write("<option value=" & GetQihao(I) & ">" & GetQihao(I) & "</option>")
                End If
            Next
            Erase GetQihao
        %>
        </select>
      期到
      <select name="select2">
        <%
            Dim GetQihao2
            GetQihao2 = GetAllQihao()
            For I = 0 To Ubound(GetQihao2)
                If Instr(Request.Form("select2"),GetQihao2(I)) > 0 Then
                    Response.Write("<option value=" & GetQihao2(I) & " selected>" & GetQihao2(I) & "</option>")
                Else
                    Response.Write("<option value=" & GetQihao2(I) & ">" & GetQihao2(I) & "</option>")
                End If
            Next
            Erase GetQihao2
        %>
      </select>
      期&nbsp;&nbsp;&nbsp;&nbsp;
      <input type="submit" name="Submit2" value="提交"></td>
    </tr>
  </table>
</form>

谁帮看看这个代码怎么修改为搜索近30期记录 和2017年,2016年记录
搜索更多相关主题的帖子: selected border center option 
2017-05-31 20:34



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-477504-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.207984 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved