针对select写了一个通用的option输出函数

新客网 XKER.COM 2005-05-19 来源： 收藏本文

’author:chjpeng
’email:chjpeng@163.com
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 rsdq=server.createobject("adodb.recordset")
sqldq="select " & fld & " from " & table 
if len(cond)>0 then
 sqldq=sqldq & " where " & cond
end if
if len(sortfld)>0 then
 sqldq=sqldq & " order by " & sortfld
end if
rsdq.Open sqldq,conn,1,1
if not (rsdq.bof or rsdq.EOF) then
 do while not rsdq.EOF
  getArrString=getArrString & trim(rsdq(fld)) & ","
  rsdq.MoveNext
 loop
end if
getArrString=left(getArrString,len(getArrString)-1)
rsdq.Close
set rsdq=nothing
end function

• ·ASP+ACCESS数据库中文乱码问题解决
• ·编程实例 字母+数字验证码程序
• ·ASP连接数据库错误解决办法新法
• ·初学:ASP内建对象Response
• ·ASP网站Server object error的解决办法
• ·ASP技巧：让Len,Left,Right函数识别中文
• ·把网页中的电话号码生成图片的ASP程序
• ·ASP如何实现IE地址栏参数的判断
• ·细化解析：ASP连接11种数据库语法集锦
• ·ASP实现网页打开任何类型文件都保存
• ·ASP代码直接增加、删除ACCESS表和字段
• ·ASP：判断访问是否来自搜索引擎的函数
• ·ASP技巧：禁用页面缓存的五种方法
• ·学习ASP关于与变量子类型相关的函数
• ·ASP开发中的(VBScript)类基础学习
• ·ASP访问Excel文件