如何使用数组来显示下拉菜单？
发布时间：2010-05-16 15:19:00
如何使用数组来显示下拉菜单？
可以这样，如下：
Sub DoDropDown(Arr(), strSelName, onchange, strSelected, strexclude)
Dim i
if strSelected <> "" then
swap arr, strSelected
end if
response.write "<SELECT NAME='" & strSelName & "' SIZE=1 ONCHANGE='" & onchange & "'>"
For i = 0 To UBound(Arr)
If arr(i) <> "" And IsNull(Arr(i)) = FALSE and arr(i) <> strexclude Then
response.write "<OPTION VALUE=""" & Arr(i) & """>" & Arr(i) & "</OPTION>"
End If
Next
response.write "</SELECT>"
End Sub
Sub Swap(Arr(), strSelected)
' 交换数组中的元素
Dim StoreString, i
For i = 0 To UBound(Arr)
If Arr(i) = strSelected Then
StoreString = Arr(i)
Arr(i) = Arr(0)
Arr(0) = StoreString
End If
Next
End Sub
0
投稿猜你喜欢
- 打开网页，然后将javascript:document.body.contentEditable='true';
- 很多人在使用AJAX调用别人站点内容的时候,JS会提示"没有权限"错误，这是XMLHTTP组件的限制-安全起见禁止访问非
- 这几个技术都不是很新了,现在还拿出来说也就是为了教教新手了呵呵,各位大虾多多指正.css之所以出现就是为了实现数据与数据的表现形式的分离,
- strConnString = "driver={MySQL ODBC 3.51
- 使用ASP生成图片彩色校验码49行代码,三个文件 Asp文件：Co
今天运行程序时，在Oracle中输入SQL语句：select * from USERS as u ，程序报错输入select * from- 索引 经常要查询的语句，则给它建一个索引 表连接 select T_Oders as o join T_Customers as C on
- 如何用ASP发送HTML格式的邮件？HTML格式的邮件可以把网页上的所有元素，包括文字和图片集成保存在一个文件中，阅读和链接非常便捷，请问在
- 研究（2）中讨论了栅格系统的基础知识。这一篇将集中探讨栅格系统的粒度问题。（注：如非特别指明，栅格系统均指24列960栅格系统）淘宝的首页（
- 我们公司网站的项目都是采用utf-8编码格式的，一天，发现部分电脑打开网站的一个页面是空白页，要在IE下重新选择编码才显示正常。我们网站的编
- MSXML是微软非托管代码栈中最为核心的XML服务集合，不但适合基于COM的开发应用，更是微软AJAX解决方案和客户端XSLT解决方案的核心
- win7 +Navicat Lite 9+ VMware7在VMware中安装openSUSE11.x mysql5 Navicat Lit
- GetRepeatTimes(TheChar,TheString) 得到一个字符串在另一个字符串当中出现几次的函数(新)如：response
- 很多时候关心的是优化SELECT 查询，因为它们是最常用的查询，而且确定怎样优化它们并不总是直截了当。相对来说，将数据装入数据库是直截了当的
- 问题：如何用ASP实现点击数统计？比如我要实现某篇文章被浏览一次就增加一个点击数，该怎么做?回答：就是说，比如，你的页面是：shownews
- 这片文章只对本地存储方法做介绍，若要查看本地存储组件使用方法的介绍请稍等。本地数据持久化（或者也叫做浏览器本地存储）是一种在浏览器中长久保存
- asp如何显示全部的环境变量？<％@Language="VBScript"％><％dim H
- 如果程序中没有设置session的过期时间，那么session过期时间就会按照IIS设置的过期时间来执行，IIS中session默认过期时间
- 在做项目的过程中，我们经常会建立各种各样的规范，以方便团队之间更好的合作更好的完成项目；同样我们也经常会听到各种各样的协议，比如Google
- 重复的数据可能有这样两种情况，第一种: 表中只有某些字段一样，第二种是两行记录完全一样。一、对于部分字段重复数据的删除 1.查询重复的数据
