Muito bom, você mesmo pode aplicar. <%
'//Parte de processamento de dados
dim Conteúdo,Num,I,strCodea
Eu = pedido (eu)
Se len(I)=0 então I=0
Response.write <br><div align=center>O programa atualmente processou dados &I& em um loop</div><br>
strCodea=UploadFiles/News '//É necessário consultar se contém uma string
strCodeb=/UploadFiles/News '//String substituída
strCodec=http://www.vevb.com/uploadfiles/news '//Substituir string
Definir rs = server.CreateObject(adodb.recordset)
rs.open selecione conteúdo de notícias onde id=&I& e siteid=1 ordene por id desc,conn,1,1
Se não (rs.eof ou rs.bof), então
Conteúdo=rs(conteúdo)
Num=instr(conteúdo,strCodea)
Se Num>0 então
Se direita(esquerda(conteúdo,Num),2)=/ então
content=substituir(conteúdo,strCodeb,strCodec)
terminar se
terminar se
terminar se
Rs.fechar
II=I+1
resposta.write(<meta http-equiv=refresh content=0;url=?I=&I>)
Setrs=Nada
%>