一段修改数据库中某字段的代码(asp)

这是昨天写的一段asp代码,功能就是用来替换数据库里某字段中的某些匹配内容
 如果数据库中行数很多的话,程序运行会有很长时间,所以如果程序运行超时的话还得修改下,把脚本超时的时间改长些,也可以修改程序输出一些成功信息

 1<!--#include file="conn.asp"--> 
 2<%dim rs,sql,aa,i,bb
 3set rs=server.createobject("adodb.recordset") 
 4sql="select musicid,testfilename from music where testfilename like '%.ra%' " 
 5rs.open sql,conn,1,1 
 6If Not Rs.Eof And Not Rs.Bof Then aa=Rs.GetRows()      '获取数据集,存入数组
 7rs.close 
 8
 9If IsArray(aa) Then  '判断是否取到
10
11for i=0 to Ubound(aa,2)  '循环替换
12bb=replace(aa(1,i),".ra",".mp3") 
13sql="select testfilename from music where musicid="&aa(0,i) 
14rs.open sql,conn,1,3  
15rs("testfilename")=bb 
16rs.update 
17rs.close 
18next 
19
20end if 
21%>