<script language="vb" runat="server"> sub uploadfile(sender as object, e as eventargs) dim file1 as HttpPostedfile =fileup.postedfileif file1.contentlength<>0 then Dim filesplit() as String = split(file1.filename,"\") Dim filename as string= filesplit(filesplit.length-1) if file.exists(server.mappath(filename)) then file1.SaveAs( server.mappath(string)) 'string为你想要命名的文件名.含后缀. msg.text="有同名文件在!已改名为" & string End If Msg.text=filename else file1.SaveAs( server.mappath(filename)) Msg.text=filename end if
其中path里包含你的要改的名字
DateTime.Now.ToString("yyyyMMddhhmmss") + DateTime.Now.Millisecond.ToString()
sub uploadfile(sender as object, e as eventargs)
dim file1 as HttpPostedfile =fileup.postedfileif file1.contentlength<>0 then
Dim filesplit() as String = split(file1.filename,"\")
Dim filename as string= filesplit(filesplit.length-1) if file.exists(server.mappath(filename)) then
file1.SaveAs( server.mappath(string)) 'string为你想要命名的文件名.含后缀.
msg.text="有同名文件在!已改名为" & string
End If
Msg.text=filename
else
file1.SaveAs( server.mappath(filename))
Msg.text=filename
end if
End if
end sub