<
!
--
#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 , 1
while not rs.eof
% >
< option value = " <%=rs( " table " )%> " >< % = rs( " table " )% ></ option >
< %
rs.movenext
wend
rs.close
% >
</ select >
</ td >
</ tr >
</ table >
</ body >
</ html >
< 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 , 1
while not rs.eof
% >
< option value = " <%=rs( " table " )%> " >< % = rs( " table " )% ></ option >
< %
rs.movenext
wend
rs.close
% >
</ select >
</ td >
</ tr >
</ table >
</ body >
</ html >