| 网站首页 | 业界新闻 | 群组 | 人才 | 技术文章 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 248 人关注过本帖
标题:谁帮看看这个代码
只看楼主 收藏
无言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







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

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