ASP 循环导入导出数据处理 不使用缓存

<%
'//数据处理部分
dim content,num,i,strcodea

i=request("i")
if len(i)=0 then i=0
response.write "<br><div align=center>该程序目前已经循环处理了"&i&"次数据</div><br>"

strcodea="uploadfiles/news" '//需要查询是否包含的字符串
strcodeb="""""/uploadfiles/news" '//被替换的字符串
strcodec="""""//www.jb51.net/uploadfiles/news" '//替换字符串

set rs = server.createobject("adodb.recordset")
rs.open "select content from news where id="&i&" and siteid=1 order by id desc",conn,1,1
if not(rs.eof or rs.bof) then

content=rs("content")
num=instr(content,strcodea)
if num>0 then
if right(left(content,num),2)="""""/" then
content=replace(content,strcodeb,strcodec)
end if
end if

end if
rs.close

ii=i+1
response.write("<meta http-equiv=""refresh"" content=""0;url=?i="&i""">")
set rs = nothing
%>