请教文章添加中需要同时上传文件的代码? 上传了取相对路径存入DB中.

我的代码,可以成功加入,但感觉上传的代码太长,求精简的. 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim files As System.Web.HttpFileCollection = System.Web.HttpContext.Current.Request.Files
        '状态信息
        Dim strMsg As New System.Text.StringBuilder("上传的文件是：<hr color=red height=1>")
        Dim iFile As System.Int32
        Try
            For iFile = 0 To files.Count - 1
                '检查文件扩展名字
                Dim postedFile As System.Web.HttpPostedFile = files(iFile)
                Dim fileName, fileExtension As System.String
                fileName = System.IO.Path.GetFileName(postedFile.FileName)
                If Not (fileName = String.Empty) Then
                    fileExtension = System.IO.Path.GetExtension(fileName)
                    Dim filename1 As String
                    filename1 = Now.ToString("yyyyMMddhhmmss") + fileExtension
                    strMsg.Append("上传的文件类型：" + postedFile.ContentType.ToString() + "<br>")
                    strMsg.Append("客户端文件地址：" + postedFile.FileName + "<br>")
                    strMsg.Append("上传文件的文件名：" + fileName + "<br>")
                    strMsg.Append("上传文件的扩展名：" + fileExtension + "<br><hr color=red height=1>")
                    '可根据扩展名字的不同保存到不同的文件夹
                    postedFile.SaveAs(System.Web.HttpContext.Current.Request.MapPath("upfiles/") + filename1)
                    pdfurl = "upfiles/" + filename1
                    up_msg.Text = "上传成功!"
                End If
            Next
            strStatus.Text = strMsg.ToString()
        Catch Ex As System.Exception
            strStatus.Text = Ex.Message
            up_msg.Text = ("上传失败!")
        End Try=================pafurl就是我取的相对路径        Dim addconn As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("conn"))
        Dim addcmd As SqlCommand = New SqlCommand("INSERT  into bxgg_info([ipb_id],[region],[project_name],[add_time],[end_time],[ipb_pzwh],[ipb_invite],[Ipb_level],[Ipb_number],[Ipb_address],[Howmoney],[destination],[Ipb_rl],[address],[Linkman],[Link_phone],[fax],[zip],[pdf_url],[pdf_pwd])values(@ipb_id,@region,@project_name,@addtime,@endtime,@ipb_pzwh,@ipb_invite,@ipb_level,@ipb_number,@ipb_address,@howmoney,@destination,@ipb_rl,@address,@linkman,@link_phone,@fax,@zip,@pdf_url,@pdf_pwd)", addconn)        'Try
        '初始化数据
        addcmd.Parameters.Add("@ipb_id", SqlDbType.Char, 30)
        addcmd.Parameters.Add("@region", SqlDbType.Char, 20)
        addcmd.Parameters.Add("@project_name", SqlDbType.Char, 200)
        addcmd.Parameters.Add("@addtime", SqlDbType.DateTime)
        addcmd.Parameters.Add("@endtime", SqlDbType.DateTime)
        addcmd.Parameters.Add("@ipb_pzwh", SqlDbType.Char, 100)
        addcmd.Parameters.Add("@ipb_invite", SqlDbType.Char, 100)
        addcmd.Parameters.Add("@ipb_level", SqlDbType.Char, 30)
        addcmd.Parameters.Add("@ipb_number", SqlDbType.Char, 20)
        addcmd.Parameters.Add("@ipb_address", SqlDbType.Char, 50)
        addcmd.Parameters.Add("@howmoney", SqlDbType.Int)
        addcmd.Parameters.Add("@destination", SqlDbType.Char, 50)
        addcmd.Parameters.Add("@ipb_rl", SqlDbType.Char, 16)
        addcmd.Parameters.Add("@address", SqlDbType.Char, 200)
        addcmd.Parameters.Add("@linkman", SqlDbType.Char, 16)
        addcmd.Parameters.Add("@link_phone", SqlDbType.Char, 25)
        addcmd.Parameters.Add("@fax", SqlDbType.Char, 15)
        addcmd.Parameters.Add("@zip", SqlDbType.Char, 6)
        addcmd.Parameters.Add("@pdf_url", SqlDbType.Char, 50)
        addcmd.Parameters.Add("@pdf_pwd", SqlDbType.Char, 10)        '添加数据        addcmd.Parameters("@ipb_id").Value = Trim(ipb_id.Text).ToString
        addcmd.Parameters("@region").Value = Trim(txt_region.Text).ToString
        addcmd.Parameters("@project_name").Value = project_name.Text
        addcmd.Parameters("@addtime").Value = add_time.Text
        addcmd.Parameters("@endtime").Value = end_time.Text
        addcmd.Parameters("@ipb_pzwh").Value = txt_Ipb_pzwh.Text
        addcmd.Parameters("@ipb_invite").Value = txt_Ipb_invite.Text
        addcmd.Parameters("@ipb_level").Value = txt_ipb_level.Text
        addcmd.Parameters("@ipb_number").Value = txt_ipb_number.Text
        addcmd.Parameters("@ipb_address").Value = txt_ipb_address.Text
        addcmd.Parameters("@howmoney").Value = txt_ipb_price.Text
        addcmd.Parameters("@destination").Value = destination.Text
        addcmd.Parameters("@ipb_rl").Value = txt_Ipb_rl.Text
        addcmd.Parameters("@address").Value = txt_address.Text
        addcmd.Parameters("@linkman").Value = txt_linkman.Text
        addcmd.Parameters("@link_phone").Value = txt_tel.Text
        addcmd.Parameters("@fax").Value = txt_fax.Text
        addcmd.Parameters("@zip").Value = txt_zip.Text
        addcmd.Parameters("@pdf_url").Value = pdfurl
        addcmd.Parameters("@pdf_pwd").Value = txt_pdfpwd.Text
        addconn.Open()
        addcmd.ExecuteNonQuery()
        addconn.Close()
        addcmd.Dispose()
        msgtext.Text = "添加成功"    End Sub