这是昨天写的一段asp代码,功能就是用来替换数据库里某字段中的某些匹配内容
如果数据库中行数很多的话,程序运行会有很长时间,所以如果程序运行超时的话还得修改下,把脚本超时的时间改长些,也可以修改程序输出一些成功信息
如果数据库中行数很多的话,程序运行会有很长时间,所以如果程序运行超时的话还得修改下,把脚本超时的时间改长些,也可以修改程序输出一些成功信息
1
<
!
--
#include file
=
"
conn.asp
"
-->
2 < % dim rs,sql,aa,i,bb
3 set rs = server.createobject( " adodb.recordset " )
4 sql = " select musicid,testfilename from music where testfilename like '%.ra%' "
5 rs.open sql,conn, 1 , 1
6 If Not Rs.Eof And Not Rs.Bof Then aa = Rs.GetRows() '获取数据集,存入数组
7 rs.close
8
9 If IsArray (aa) Then '判断是否取到
10
11 for i = 0 to Ubound (aa, 2 ) '循环替换
12 bb = replace (aa( 1 ,i), " .ra " , " .mp3 " )
13 sql = " select testfilename from music where musicid= " & aa( 0 ,i)
14 rs.open sql,conn, 1 , 3
15 rs( " testfilename " ) = bb
16 rs.update
17 rs.close
18 next
19
20 end if
21 % >
2 < % dim rs,sql,aa,i,bb
3 set rs = server.createobject( " adodb.recordset " )
4 sql = " select musicid,testfilename from music where testfilename like '%.ra%' "
5 rs.open sql,conn, 1 , 1
6 If Not Rs.Eof And Not Rs.Bof Then aa = Rs.GetRows() '获取数据集,存入数组
7 rs.close
8
9 If IsArray (aa) Then '判断是否取到
10
11 for i = 0 to Ubound (aa, 2 ) '循环替换
12 bb = replace (aa( 1 ,i), " .ra " , " .mp3 " )
13 sql = " select testfilename from music where musicid= " & aa( 0 ,i)
14 rs.open sql,conn, 1 , 3
15 rs( " testfilename " ) = bb
16 rs.update
17 rs.close
18 next
19
20 end if
21 % >
转载于:https://www.cnblogs.com/aween/archive/2006/02/03/325002.html