![]() |
#2
multiple19022008-07-23 13:26
|
<select name='ctrl_pingtai' id='ctrl_pingtai'>
<option value=''>--请选择--</option>
<%
Set Rs_pingtai=Server.CreateObject("adodb.recordset")
sql = "select * from [pingtai]"
Rs_pingtai.Open sql,conn,1,1
Do While Not Rs_pingtai.Eof
Response.Write ("<option value='" & Rs_pingtai("pingtai_type") & "'>" & Rs_pingtai("pingtai_type") & "</option>" & vbcrlf)
Rs_pingtai.MoveNext()
Loop
Rs_pingtai.Close()
Set Rs_pingtai = Nothing
%>
</select>