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

1. <%
2. '//数据处理部分
3. dimContent,Num,I,strCodea
4. I=request("I")
5. Iflen(I)=0thenI=0
6. Response.write"<br><divalign=center>该程序目前已经循环处理了"&I&"次数据</div><br>"
7. strCodea="UploadFiles/News"'//需要查询是否包含的字符串
8. strCodeb="""""/UploadFiles/News"'//被替换的字符串
9. strCodec="""""http://www.sditi.com/uploadfiles/news"'//替换字符串
10. Setrs=server.CreateObject("adodb.recordset")
11. rs.open"selectcontentFromnewswhereid="&I&"andsiteid=1orderbyiddesc",conn,1,1
12. Ifnot(rs.eoforrs.bof)then
13. Content=rs("content")
14. Num=instr(content,strCodea)
15. IfNum>0then
16. Ifright(left(content,Num),2)="""""/"then
17. content=replace(content,strCodeb,strCodec)
18. endif
19. endif
20. endif
21. Rs.close
22. II=I+1
23. response.write("<metahttp-equiv=""refresh""content=""0;url=?I="&I""">")
24. Setrs=Nothing
25. %>