把修改的红色选中
不知道是哪错了!
大家帮我看一下啊!
小弟在这谢谢大家了
<table width="84%" height="185" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#00FF66">

<form action="addnews_db.asp" name="form" method="post">


<tr>
<td width="21%" align="center" bgcolor="#FFFFFF">新闻类别：</td>
<td width="44%" bgcolor="#FFFFFF">


<select name="cate">

<%
do while not rs2.eof
if rs2.fields("tid")=id then
response.Write("<option value="rs2.fields("tid")" selected>"rs2.fields("ntype")"</option>")
else
%>
<%response.Write("<option value='"&rs2.fields("tid")&"'>"&rs2.fields("ntype")&"</option>")
end if
rs2.movenext

loop%>

<%rs2.close

set rs2=nothing

%>
</select>

</td>
<td width="35%" bgcolor="#FFFFFF">*必须填写</td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF">新闻标题：</td>
<td bgcolor="#FFFFFF"><input type="text" name="title" value="<%=rs.fields("Title")%>"></td>
<td bgcolor="#FFFFFF">*新闻标题不能为空</td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF">新闻内容：</td>
<td bgcolor="#FFFFFF"><textarea name="content" rows="10" cols="50"><%=rs.fields("Content")%></textarea></td>
<td bgcolor="#FFFFFF">*新闻内容不能为空！</td>
</tr>


<tr>
<td colspan="3" bgcolor="#FFFFFF"><center><input name="sub" type="submit" value="修改新闻"></center></td>



</tr>

</form>
</table>

红色区域是从数据库里查的数据

<!--#include virtual ="./conn.asp"-->

<%dim id,sql
id = request.form("id")
sql="select * from news where id ='"&id&"'"
set rs=server.CreateObject("ADODB.recordset")
rs.open sql,conn,1,1

%>
<%

dim sql2

set rs2 = server.CreateObject("adodb.recordset")
sql2 ="select * from nType "

rs2.open sql2,conn,1,1

%>

<table width="84%" height="185" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#00FF66">

<form action="addnews_db.asp" name="form" method="post">


<tr>
<td width="21%" align="center" bgcolor="#FFFFFF">新闻类别：</td>
<td width="44%" bgcolor="#FFFFFF">


<select name="cate">

<%
while not rs2.eof
if rs2("tid")=id then%>

<option value="<%=rs2("tid")%>" selected><%=rs2("ntype")%></option>

<%else%>

<option value="<%=rs2("tid")%>"><%=rs2("ntype")%></option>

<%end if

rs2.movenext
wend



%>

<%rs2.close

set rs2=nothing

%>
</select>

</td>
<td width="35%" bgcolor="#FFFFFF">*必须填写</td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF">新闻标题：</td>
<td bgcolor="#FFFFFF"><input type="text" name="title" value="<%=rs.fields("Title")%>"></td>
<td bgcolor="#FFFFFF">*新闻标题不能为空</td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF">新闻内容：</td>
<td bgcolor="#FFFFFF"><textarea name="content" rows="10" cols="50"><%=rs.fields("Content")%></textarea></td>
<td bgcolor="#FFFFFF">*新闻内容不能为空！</td>
</tr>


<tr>
<td colspan="3" bgcolor="#FFFFFF"><center><input name="sub" type="submit" value="修改新闻"></center></td>



</tr>

</form>
</table>

id 是这个<form>中的<checkbox>

<!--#include virtual="./conn.asp"-->
<%
dim tid,sql
tid=request.QueryString("tid")

%>
<%
set rs=server.CreateObject("ADODB.recordset")
sql="select * from news where Type_id='"&tid&"' order by id desc"
rs.open sql,conn,1,1
do while not rs.eof

%>
<table width="778" height="30" border="0" align="center" cellpadding="0" cellspacing="1" bordercolor="#CCCCCC" bgcolor="#9D9D9D">
<form action="admin_xiugai.asp" name="xiugai" method="post">
<td width="162">
<tr>
<td bgcolor="#FFFFFF"><input type="checkbox" name="id" value="<%=rs.fields("id")%>"></td>
<td width="194" bgcolor="#FFFFFF"><%=left(rs.fields("title"),9)%></td>
<td width="186" bgcolor="#FFFFFF"><%=left(rs.fields("content"),9)%></td>
<td width="236" bgcolor="#FFFFFF"><center><input type="submit" name="sub" value="修改"></center></td>
</tr>
</form>
</table>

<%
rs.movenext
loop
rs.close
set rs=nothing
%>

谢谢!