戒不掉忽然之间妈妈网:如何显示下拉菜单的值

来源:百度文库 编辑:中科新闻网 时间:2024/05/05 07:40:22
<%

Set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("shopping.mdb")
SQL = "SELECT '<OPTION Value='',value,''>',name,'</OPTION>' FROM commodity "
Set RS = conn.Execute(SQL)
Response.Write "<SELECT>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</SELECT>"
sql1 ="select * from commodity where name='' "
Set rs=conn.execute(sql1)
%>

<body>
<table border=1>
<tr><%
For i=0 To rs.fields.count-1
response.write"<td>"&rs(i).name&"</td>"
next%>
</tr>
<%
rs.movefirst
While Not rs.eof%>
<tr>
<td><%=rs(0)%></td>
<td><%=rs(1)%></td>
<td><%=rs(2)%></td>
</tr>
<%rs.movenext
wend%>
</table>
</body>
不知道SQL1那里的条件怎么写`