ASP.net根据时间生成随机文件名

ASP中随机文件名的函数，在Asp.Net不用修改也能用
放到Module1.vb里，声明公有函数
在任何一个WebForm里都能调用。
Function makeFileName(ByVal fname) '根据时间生成文件名
fname = Now()
fname = Replace(fname, "-", "")
fname = Replace(fname, " ", "")
fname = Replace(fname, ":", "")
fname = Replace(fname, "PM", "")
fname = Replace(fname, "AM", "")
fname = Replace(fname, "上午", "")
fname = Replace(fname, "下午", "")
makefilename = fname & ".htm"
End Function

调用的方法：

Public Sub FileWrite(ByVal Str As String, ByVal myPath As String, ByVal myFileName As String) '新增文件(内容,路径,文件名)
End Sub
Call FileWrite("I Like Asp.net","Path",makeFileName())