ดีมากทาเองก็ได้ -
'//ส่วนการประมวลผลข้อมูล
เนื้อหาสลัว, Num, I, strCodea
ฉัน = คำขอ (I)
ถ้า 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 เรียงลำดับตาม id desc,conn,1,1
ถ้าไม่ใช่(rs.eof หรือ rs.bof) แล้ว
เนื้อหา=rs(เนื้อหา)
Num=instr(เนื้อหา,strCodea)
ถ้า Num>0 แล้ว
ถ้า right(left(content,Num),2)=/ แล้ว
เนื้อหา = แทนที่ (เนื้อหา strCodeb, strCodec)
สิ้นสุดถ้า
สิ้นสุดถ้า
สิ้นสุดถ้า
฿ปิด
ครั้งที่สอง=ฉัน+1
response.write(<meta http-equiv=refresh content=0;url=?I=&I>)
Setrs=ไม่มีอะไร
-