<!--#include file="conn.asp" -->

<%
dim filepath,id
sql = "Select * from book"
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open sql,conn,3,2
id=rs("id")
folder = "page/"
filepath="htmfiles/"&id&".html"
Set rs = Server.CreateObject ("ADODB.Recordset")
sql0="update book set c_filepath='"&filepath&"' where id="&id
rs.Open sql0,conn,3,2
Set rs = Nothing
rs.close
%>

运行后提示：
Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: 'rs'

该怎么改？？

谢谢版主
我是想设一个字段保存文件名（以ID值为文件名）
我用上面的不行，版主你帮帮我吧

你要实现的效果是怎样的?比如??

然后,你现在所实现到的效果又是怎样?比如?

你要实现的效果是这样的,表book里有字段id,body,c_filepath
id body c_filepath
1 a htmfiles/1.html
2 b htmfiles/2.html
3 c htmfiles/3.html
4 d htmfiles/4.html

但现在只有id和body的值，c_filepath里还没有记录
id body c_filepath
1 a
2 b
3 c
4 d

就是想把c_filepath都插进如上面的记录

谢谢!!

[此贴子已经被作者于2006-8-29 10:15:32编辑过]

&lt;%
dim rs,rs2,sql,sql2
dim filepath,folder
sql = "Select * from test"
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open sql,conn,1,1
do while not rs.eof

folder = "page/"
filepath="htmfiles/"&amp;rs("id")&amp;".html"

Set rs2 = Server.CreateObject ("ADODB.Recordset")
sql2="update test set c_filepath='"&amp;filepath&amp;"' where id="&amp;rs("id")&amp;""
rs2.Open sql2,conn,1,3
rs2.close
set rs2=nothing

rs.movenext
loop

rs.close
Set rs = Nothing

conn.close
set conn=nothing
%&gt;

好,太好了,
谢谢hangxj版主