28,390
社区成员
发帖
与我相关
我的任务
分享
<select name="column1">
<option value="0" selected="selected">不显示</option> <%
While (NOT quarys.EOF)
%>
<option value="<%=(quarys.Fields.Item("quaryid").Value)%> <% If quarys.Fields.Item("quarylable").value="A" Then Response.Write("selected='selected'") End IF%>"><%=(quarys.Fields.Item("quarycode").Value)&" -> "&(quarys.Fields.Item("quaryname").Value)%></option>
<%
quarys.MoveNext()
Wend
If (quarys.CursorType > 0) Then
quarys.MoveFirst
Else
quarys.Requery
End If
%>
</select>
<option value="<%=(quarys.Fields.Item("quaryid").Value)%><% If quarys.Fields.Item("quarylable").value="A" Then Response.Write("selected='selected'") End IF%>"><%=(quarys.Fields.Item("quaryname").Value)&" -> "&(quarys.Fields.Item("quarycode").Value)%></option>