Question

ASP修改文章时的分类显示问题

如图，这是我的数据库中的俩个表，一个分类，一个文章，可是点击修改文章的时候（比如说这篇文章的分类属于网络转载），下拉框中的分类显示的是“个人日志”而不是“网络转载”这个分类，其实说白了应该是一个下拉框自动读取显示数据库的问题吧，请高手求救！
<%strID=request.QueryString("id")%>
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("@#mk.mdb")
exec="select * from rizhi where id="&strID
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
%>
<form name="biaodan" method="POST" action="admin_rzxgok.asp">
<p align="left">文章标题
<input type="text" name="biaoti" size="50" value="<%=rs("biaoti")%>">
</p>
<p align="left">文章作者
<input type="text" name="zz" size="20" value="<%=rs("zz")%>">
文章来源<input type="text" name="laiyuan" size="20" value="<%=rs("laiyuan")%>">
</p>
<p align="left">文章内容</p>
<p align="left"><input type="hidden" name="neirong" value="<%=Server.HTMLEncode(rs("neirong"))%>"><iframe ID="ewb/eWebEditor1" src="ewb/ewebeditor.asp?id=neirong" frameborder="0" scrolling="no" width="560" HEIGHT="371"></iframe>
<p align="left">文章分类
<select name="leibie" size="1" id="leibie" >
<%set rs=conn.execute("select * from fenlei")
if rs.eof or rs.bof then
response.write "<option value=''>没有分类</option>"
else
do until rs.eof
%>
<option value="<%=rs("id")%>"><%=rs("leibie")%></option>
<% rs.movenext
loop
end if
%>
</select>
<span class="STYLE1">（分类不能为空）</span></p>
<p align="left"><input type="submit" value="保存" name="Submit"><input type="hidden" name="id" value="<%=strID%>"></p>
</form>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

Answer 1

修改文章的时候.你可以读取文章的类别ID,然后显示的时候默认你的那个类别被选中.这样如果客户没有修改的时候,它会保持原来的样子..

Answer 2

需要读取本文章在数据库中的分类，然后进行判断。具体可参考下面的代码
<select name="sex">
<option value="男" <%if rs("sex")="男" then response.Write("selected")%>>--男--</option>
<option value="女" <%if rs("sex")="女" then response.Write("selected")%>>--女--</option>
</select>