%
set rs=server.createobject("adodb.recordset")
sql="select * from article where bigtypes='我爱你'order by id desc"   找出数据库内类别为我爱你的所有数据
rs.open sql,conn,1,3
if not rs.eof then
do while not rs.eof
fname = rs("id")".html"
folder = "../html/Info/"
c_filepath = folderfname

conn.execute("update article set filepath='"c_filepath"' where id="rs("id"))

rs.movenext
loop
end if
response.redirect "成功....."
%>