试试这个：
Dim aDo while not rows.Eof a = rows.Collect("specialty") Response.Write("<option value=""" & Replace(a, """", """) & """>" & a & "</option>") rows.MoveNextLoop
试试这个：
Dim aDo while not rows.Eof a = rows.Collect("specialty") Response.Write("<option value=""" & Replace(a, """", """) & """>" & a & "</option>") rows.MoveNextLoop名师互学网 版权所有 (c)2021-2022 ICP备案号：晋ICP备2021003244-6号
