这是昨天写的一段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![None.gif](/Images/OutliningIndicators/None.gif)
9
If
IsArray
(aa)
Then
'判断是否取到
10![None.gif](/Images/OutliningIndicators/None.gif)
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![None.gif](/Images/OutliningIndicators/None.gif)
20
end
if
21
%
>
![None.gif](/Images/OutliningIndicators/None.gif)
2
![None.gif](/Images/OutliningIndicators/None.gif)
3
![None.gif](/Images/OutliningIndicators/None.gif)
4
![None.gif](/Images/OutliningIndicators/None.gif)
5
![None.gif](/Images/OutliningIndicators/None.gif)
6
![None.gif](/Images/OutliningIndicators/None.gif)
7
![None.gif](/Images/OutliningIndicators/None.gif)
8
![None.gif](/Images/OutliningIndicators/None.gif)
9
![None.gif](/Images/OutliningIndicators/None.gif)
10
![None.gif](/Images/OutliningIndicators/None.gif)
11
![None.gif](/Images/OutliningIndicators/None.gif)
12
![None.gif](/Images/OutliningIndicators/None.gif)
13
![None.gif](/Images/OutliningIndicators/None.gif)
14
![None.gif](/Images/OutliningIndicators/None.gif)
15
![None.gif](/Images/OutliningIndicators/None.gif)
16
![None.gif](/Images/OutliningIndicators/None.gif)
17
![None.gif](/Images/OutliningIndicators/None.gif)
18
![None.gif](/Images/OutliningIndicators/None.gif)
19
![None.gif](/Images/OutliningIndicators/None.gif)
20
![None.gif](/Images/OutliningIndicators/None.gif)
21
![None.gif](/Images/OutliningIndicators/None.gif)