aspÏÂÀ­ÁбíÇóÖú - Web ¿ª·¢ / ASP

ÓÉÓÚÒ³ÃæÓжà¸ölist£¬Ëì±àÁ˸öfunction list333£¬ÒÔ±¸µ÷ÓÃ
<% function list333 (a,b,c,d)
response.Write "<select name="&d&">"

response.Write "<option value="">ÇëÑ¡Ôñ</option>"

set rs=server.createobject("adodb.recordset")
sql = "SELECT * from "&a&" "
rs.open sql, adocon, 1, 1
if rs.eof or rs.bof then
response.end
else
do while not rs.eof or rs.bof 
response.Write "<option value="&rs(""&c&"")&">"&rs(""&b&"")&"</option>"
rs.movenext
loop
end if
response.Write "</select>"
rs.close
end function
%>
ÔÚδ¼ÓÈëºìÉ«µÄÒ»¾äʱһÇÐÕý³££¬¼ÓÈëÁ˺ìÉ«Ò»¾äºó£¬µ¥¸öµ÷ÓÃlist333£¬²»ÏÔʾ¡°ÇëÑ¡Ôñ¡±Ñ¡Ïһ¸öÒ³Ãæµ÷ÓÃ5´Îʱ£¬Ö»ÏÔʾ3¸ölist¿ò£¬ÇÒÄÜÏÔʾ¡°ÇëÑ¡Ôñ¡±Ñ¡Ïî¡£ÇëÎÊÕâÊÇÔõô»ØÊ£¿ÔÚÏߵȸßÊÖ½â´ð

---

¿´ÁËһϴúÂë

do while not rs.eof or rs.bof  
response.Write "<option value="">ÇëÑ¡Ôñ</option>"//Ó¦¸Ã·ÅÔÚÕâÀï
response.Write "<option value="&rs(""&c&"")&">"&rs(""&b&"")&"</option>"

---

response.Write "<option value="">ÇëÑ¡Ôñ</option>"
ÀïÃæÓõ¥ÒýºÅ