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

<script type="text/javascript"> </script> <script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type="text/javascript"></script>

1. <% 
2. '//数据处理部分 
3. dim Content,Num,I,strCodea 
4. I=request("I") 
5. If len(I)=0 then I=0 
6. Response.write "<br><div align=center>该程序目前已经循环处理了"&I&"次数据</div><br>" 
7. strCodea="UploadFiles/News" '//需要查询是否包含的字符串 
8. strCodeb="""""/UploadFiles/News" '//被替换的字符串 
9. strCodec="""""http://www.sditi.com/uploadfiles/news" '//替换字符串 
10. Set rs = server.CreateObject("adodb.recordset") 
11. rs.open "select content From news where id="&I&" and siteid=1 order by id desc",conn,1,1 
12. If not(rs.eof or rs.bof) then 
13. Content=rs("content") 
14. Num=instr(content,strCodea) 
15. If Num>0 then 
16. If right(left(content,Num),2)="""""/" then 
17. content=replace(content,strCodeb,strCodec) 
18. end if 
19. end if 
20. end if 
21. Rs.close 
22. II=I+1 
23. response.write("<meta http-equiv=""refresh"" content=""0;url=?I="&I""">") 
24. Set rs = Nothing 
25. %>