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

ASP中随机文件名的函数，在Asp.Net不用修改也能用

放到Module1.vb里，声明公有函数
在任何一个WebForm里都能调用。
(Module1.vb在VB6.0就有了，看来.Net还是保留下来了)

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())