جيد جدًا، يمكنك تطبيقه بنفسك. <%
'// جزء معالجة البيانات
المحتوى الخافت، Num، I، strCodea
أنا = الطلب (أنا)
إذا كان لين (I) = 0 فأنا = 0
Response.write <br><div align=center>قام البرنامج حاليًا بمعالجة بيانات &I& في حلقة</div><br>
strCodea=UploadFiles/News '// تحتاج إلى الاستعلام عما إذا كان يحتوي على سلسلة
strCodeb=/UploadFiles/News '//تم استبدال السلسلة
strCodec=http://www.vevb.com/uploadfiles/news '//Replace string
تعيين rs = server.CreateObject(adodb.recordset)
rs.open حدد المحتوى من الأخبار حيث id=&I& وsiteid=1 ترتيب حسب المعرف desc,conn,1,1
إذا لم يكن (rs.eof أو rs.bof) إذن
المحتوى = rs(المحتوى)
Num=instr(content,strCodea)
إذا كان رقم> 0 ثم
إذا كان اليمين (left(content,Num),2)=/ إذن
المحتوى = استبدال (المحتوى، strCodeb، strCodec)
نهاية إذا
نهاية إذا
نهاية إذا
روبية قريبة
الثاني=أنا+1
Response.write(<meta http-equiv=refresh content=0;url=?I=&I>)
سيترز = لا شيء
%>