ASP 循环导入导出数据处理 不使用缓存
程序员文章站
2022-06-05 12:25:16
<% '//数据处理部分 dim content,num,i,strcodea i=request("i") if len(i)=0 then i=0 respons...
<%
'//数据处理部分
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
%>
'//数据处理部分
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
%>
上一篇: 列出指定目录下的所有文件和目录
下一篇: 奇妙的文件系统对象组件