我一般都是写个函数的,给参数ID,页面加载的时候重新写Select.
用Javascript控制也可以,可能结构性没那么好.
-------------------------------------------------------------------------
Function GetFactoryList(ByVal FactoryID)
Dim strSql
Dim rs
strSql = " Select [ID],[Name] " & _
" From Factory " & _
" Order by [Name]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSql,ConnectionString(),1,1
If Not rs.EOF Then
Response.Write "<Select name=""lstFactory"">" & vbCrlf
Do While Not rs.EOF
If CInt(FactoryID)=CInt(rs("ID")) Then
Response.write "<Option selected value=""" & rs("ID") & """>" & rs("Name") & "</option>" & vbCrlf
Else
Response.write "<Option value=""" & rs("ID") & """>" & rs("Name") & "</option>" & vbCrlf
End If
rs.MoveNext
Loop
Response.Write "</Select>" & vbCrlf
End If
rs.Close
Set rs = Nothing
End Function
<select name="type">
<%
set rs=conn.execute("SELECT code_name FROM code where code_type='files' order by code_name desc")
do while not rs.eof
%>
<option value="<%=rs("code_name")%>" <%if Trim(rs("code_name"))= Trim(Rs("Doc_Type")) then Response.Write"selected"%>><%=rs("code_name")%></option>
<%
rs.movenext
loop
rs.close
%>
</select>