Sehr gut, man kann es selbst anwenden. <%
'//Datenverarbeitungsteil
dim Content,Num,I,strCodea
I=Anfrage(I)
Wenn len(I)=0, dann ist I=0
Response.write <br><div align=center>Das Programm hat derzeit &I& Daten in einer Schleife verarbeitet</div><br>
strCodea=UploadFiles/News '//Es muss abgefragt werden, ob es eine Zeichenfolge enthält
strCodeb=/UploadFiles/News '//Ersetzte Zeichenfolge
strCodec=http://www.vevb.com/uploadfiles/news '//Zeichenfolge ersetzen
Setze rs = server.CreateObject(adodb.recordset)
rs.open Inhalt auswählen Aus Nachrichten mit id=&I& und siteid=1, sortiert nach ID desc,conn,1,1
Wenn nicht (rs.eof oder rs.bof), dann
Inhalt=rs(Inhalt)
Num=instr(content,strCodea)
Wenn Num>0 dann
Wenn right(left(content,Num),2)=/ dann
content=replace(content,strCodeb,strCodec)
Ende wenn
Ende wenn
Ende wenn
Rs.schließen
II=I+1
Response.write(<meta http-equiv=refresh content=0;url=?I=&I>)
Setrs=Nichts
%>