日期:2014-05-16 浏览次数:20775 次
<td width="79%"><select name="cp" id="cp" onChange="changelocation(document.add.cp.options[document.add.name.selectedIndex].value,document.add)">
<option value="">请选择车型</option>
<%
i = 0
Set RsBig = Conn.Execute("select dpm,name from newqpgl.dbo.tbsysset where type='xlcx' and dpm='A' order by dpm")
Do While Not RsBig.Eof
If i = 0 Then name = RsBig(0)
Response.Write("<option value="""&RsBig(0)&""">"&RsBig(1)&"</option>")
i = i + 1
RsBig.MoveNext
Loop
Set RsBig = Nothing
%>
</select>
</td>