生成随机码,保存随机文件.

     Dim RandomizeNo As Integer
                    Randomize()
                    Dim ranNum As Integer = 90000 * Rnd() + 10000
                    Dim fn As String = Now().ToString("yyMMddHHmmff") & ranNum & ext
                    hip.PostedFile.SaveAs(Server.MapPath("../dwe/upload/" & fn))