%
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 "成功....."
%>