日期:2014-05-17  浏览次数:20819 次

select取值的选择难题
如何将

<option   value=博士学位> 博士学位 </option>
<option   value=硕士学位> 硕士学位 </option>
<option   value=学士学位> 学士学位 </option>

格式化成

<option   value=博士学位   <%if   rs( "ds_xl ")= "博士学位 "   then   response.write   "selected "%> > 博士学位 </option>
<option   value=硕士学位   <%if   rs( "ds_xl ")= "硕士学位 "   then   response.write   "selected "%> > 硕士学位 </option>
<option   value=学士学位   <%if   rs( "ds_xl ")= "学士学位 "   then   response.write   "selected "%> > 学士学位 </option>

其中的
<option   value=博士学位> 博士学位 </option>
<option   value=硕士学位> 硕士学位 </option>
<option   value=学士学位> 学士学位 </option>
是运用application( "xuewei ")方式从数据库生成的!

方法如下:
sql= "select   xuewei   from   [daima]   xuewei   is   not   null   order   by   id   asc "
rs.open   sql,conn,1,1
for   x=1   to   rs.recordcount
xuewei   =   xuewei   &   " <option   value= "&rs( "xuewei ")& "> "&rs( "xuewei ")& " </option> "
rs.movenext
next
rs.close
application( "xuewei ")                 =   xuewei                             '学位

------解决方案--------------------
sql= "select xuewei from [daima] xuewei is not null order by id asc "
rs.open sql,conn,1,1
Response.Write " <select name= " "xl " "> " & Chr(13) & Chr(10)
for x=1 to rs.recordcount
'xuewei = xuewei & " <option value= "&rs( "xuewei ")& "> "&rs( "xuewei ")& " </option> "
If rs( "xuewei ") = "博士学位 " Then
Response.Write " <option value= " " "& rs( "xuewei ") & " " " checked> " & rs( "xuewei ") & " </option> " & Chr(13) & Chr(10)
Else
Response.Write " <option value= " " "& rs( "xuewei ") & " " "> " & rs( "xuewei ") & " </option> " & Chr(13) & Chr(10)
End If
If rs( "xuewei ") = "硕士学位 " Then
Response.Write " <option value= " " "& rs( "xuewei ") & " " " checked> " & rs( "xuewei ") & " </option> " & Chr(13) & Chr(10)
Else
Response.Write " <option value= " " "& rs( "xuewei ") & " " "> " & rs( "xuewei ") & " </option> " & Chr(13) & Chr(10)
End If
If rs( "xuewei ") = "学士学位 " Then
Response.Write " <option value= " " "& rs( "xuewei ") & " " " checked> " & rs( "xuewei ") & " </option> " & Chr(13) & Chr(10)
Else
Response.Write " <option value= " " "& rs( "xuewei ") &