<!--#include file=conn.asp--><title>數據庫調出顯示爲下拉列表:</title></head><body> <table bgcolor="#FFFF00" width="90%" > <tr> <td width="150">數據庫調出</td><td width="250"><select name="table" ><%set rs = createobject("ADODB.recordset")sql="select * from ZhiFa where type like '"&trim(request.QueryString("type"))&"__moban'"'sql="select * from ZhiFa where type like '"&trim(request.QueryString("type"))&"_"&"_moban'"rs.open SQL,conn,3,1while not rs.eof%><option value="<%=rs("table")%>"><%=rs("table")%></option><%rs.movenextwendrs.close%></select></td></tr></table></body></html>