<script language=vbscript runat=server>
Server.ScriptTimeOut = 9999
Function reName(sourceName,destName)
dim oFso,oFile
set oFso = Server.CreateObject("Scripting.FileSystemObject")
set oFile = oFso.getFile(Server.mappath(sourceName))
oFile.Name = destName
Set oFso = Nothing
Set oFile = Nothing
End Function
</script>
http://wenku.baidu.com/view/ebc8a16e1eb91a37f1115c89.html