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
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
