批量修改文件名防止新云CMS系统盗链
-
<!--#include file="../conn.asp"-->
<!--#include file="../inc/const.asp"-->
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
<%
Server.ScriptTimeOut = 900000
dim fs,sfile,nfile,rs,sql,ranNum,cg,sb,channel,SFilename
cg=0
sb=0
Set fs = Server.CreateObject("Scripting.FileSystemObject")
set rs=Server.CreateObject("ADODB.RecordSet")
sql="Select id,downfilename,channelid,softid FROM NC_DownAddress order by id desc"
Rs.Open SQL,Connstr,1,3
do while not rs.eof
SFilename=rs("downfilename")
SFile = Server.MapPath("UploadFile/"&SFilename&"")
randomize
ranNum=int((9000000*rnd)+1)
NFile = Server.MapPath("UploadFile/"&left(rs("downfilename"),InstrRev(rs("downfilename"),"/"))&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&".rar")
on Error Resume Next
fs.MoveFile SFile, NFile
If Err.Number = 53 Then
Response.Write SFile & "文件不存在！ID："&rs("softid")&"<br>"
'rs("downfilename")="no"
sb=sb+1
'Response.End
Elseif Err.Number = 58 Then
Response.Write NFile & "文件已存在！ID："&rs("softid")&"<br>"
sb=sb+1
'Response.End
Elseif Err.Number <> 0 Then
Response.Write "未知错误，错误编码：" & Err.Number &" <br>"
sb=sb+1
'Response.End
Else
Response.Write "成功重命名文件！" & SFile &"为" &NFile& "<br>"
rs("downfilename")=replace(NFile,"\","/")
cg=cg+1
rs.update
Response.Flush()
End If
rs.movenext
loop
response.write "成功改名"&cg&"个,<br>"
response.write "改名失败"&sb&"个,<br>"
rs.close
set rs=nothing
%>
