<%
set rs=server.CreateObject ("adodb.recordset")
Sql="SELECT * from a where aid=aid"//aid
rs.Open Sql,con,1,1
%>
//这里写上其他的语句
<form action="up.asp" method="POST" name=form1>
<%
set srs=server.createobject("adodb.recordset")
Sql="SELECT * from b order by bid"
srs.Open Sql,con,1,1
do while not srs.eof
%>
<option <%if rs("bid")=srs("bid") then Response.Write "selected"%> value='<%=srs("bid")%>'><%=srs("bname")%></option>