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

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