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

Private Function GetRandomizeNo()Function GetRandomizeNo() As Integer
        '功能说明:生成随机验证码
        Dim RandomizeNo As Integer
        Randomize()
        RandomizeNo = 9999 * Rnd() + 1000
        If (RandomizeNo).ToString.Length >= 5 Then
            RandomizeNo = Val(RandomizeNo.ToString.Substring(0, 4))
        End If
        Return RandomizeNo
    End Function

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