针对select写了一个通用的option输出函数
2008-02-23 05:31:04来源:互联网 阅读 ()
function writeSlt(arrstr,arrstrValue,selectedstr)
'arrstr 要显示在option里面的值,arrstrValue option的实际值,selectedstr要选中的默认值
'将一个字串分割为数组,输出select的option,并选中selectedstr arrstr&arrstrValue长度要一致
arr=split(arrstr,",")
arrValue=split(arrstrValue,",")
j=0
do while j<=ubound(arr)
if trim(arrValue(j))=trim(selectedstr) then
response.write "<option value='" & arrValue(j) & "' selected>" & arr(j) & "</option>"
else
response.write "<option value='" & arrValue(j) & "'>" & arr(j) & "</option>"
end if
j=j 1
loop
end function
可以从数据库中读出数据,形成逗开分隔的字符串,来动态生成select的<option>
function getArrString(table,fld,cond,sortfld)
'获取一个指定表中指定字段指字条件的数据,返回一个以逗号分隔的字符串
set rs=server.createobject("adodb.recordset")
sql="select " & fld & " from " & table
if len(cond)>0 then
sql=sql & " where " & cond
end if
if len(sortfld)>0 then
sql=sql & " order by " & sortfld
end if
rs.Open sql,conn,1,1
if not (rs.bof or rs.EOF) then
do while not rs.EOF
getArrString=getArrString & trim(rs(fld)) & ","
rs.MoveNext
loop
end if
getArrString=left(getArrString,len(getArrString)-1)
rs.Close
set rs=nothing
end function
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash