Очень хорошо, можете применить сами. <%
'//Часть обработки данных
dim Content,Num,I,strCodea
Я = просьба (я)
Если len(I)=0, то I=0
Response.write <br><div align=center>Программа в данный момент обрабатывает &I& данные в цикле</div><br>
strCodea=UploadFiles/News '//Необходимо запросить, содержит ли он строку
strCodeb=/UploadFiles/News '//Заменяемая строка
strCodec=http://www.vevb.com/uploadfiles/news '//Заменить строку
Установите rs = server.CreateObject(adodb.recordset)
rs.open выбрать контент Из новостей, где id=&I& и siteid=1, упорядочить по идентификатору desc,conn,1,1
Если нет (rs.eof или rs.bof), то
Content=rs(содержание)
Num=instr(content,strCodea)
Если Число>0, то
Если right(left(content,Num),2)=/ тогда
содержание = заменить (содержание, strCoDB, strCodec)
конец, если
конец, если
конец, если
рупийблизко
II=I+1
response.write(<meta http-equiv=refresh content=0;url=?I=&I>)
Setrs=Ничего
%>