<!--#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
%>

谢谢!

你两个表的 id 和tid 有关联吗

我想起来了
等一下啊
我的大类表的id 和新闻表的 type_id 有关系,不是和id 有关系

版主


又出现了这样的错误
ADODB.Field 错误 '80020009'

BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

/news/admin_xiugai.asp，行 0

版主:我现在做的是一个新闻管理系统,有两个表,他们两个表是一对多的关系,然后通过点击大类里的名称进入小类修改的页面
从而管理员可以对其进行修改
但是现在主要的问题是返回不了修改小类的数据?其他 的数据可以返回,但是<select>返回值的时候出错.
谢谢

sql="select * from news where id ='"&id&"'"
这个ID是文本型数据？
如果是 自动编号 或 数值型 的要把 单引号 去掉
sql="select * from news where id ="&id&""
或
sql="select * from news where id ="&id

能说说理由吗?
单引号什么时候加什么时候不加
另外,我说一下就是我的大类表名是ntype,小类表名是news
大类表ntype
tid ntype
1 协会动态
2 协会大事件
3 政策法规
4 专家解读
5 中国农药
6 dfsg
7 sdfsdads
8 dfsg345245
10 dfsg345245
11 国内新闻
小类表news
id Type_id Title Content Ntime
36 1 十分十分 感到风格上豆腐干 2007-11-15 19:22:39
37 2 dgsdfg dfgdsfhgfhfghfghfg 2007-11-16 8:57:13
38 4 sgfhsg sdhgfahsdfgsadkfaksdgfasgdfgasdgfsadfsd 2007-11-16 9:31:33
43 1 sgfhsg sdhgfahsdfgsadkfaksdgfasgdfgasdgfsadfsd 2007-11-16 17:07:02
大类tid和小类type_id有关系

错误提示呢？？？