<%@Language=VBScript%>
<script> 
runat="server"
Sub Upload_Click(ByVal sender As Object, ByVal e As EventArgs) 

strRootUpload = Server.MapPath("./d_upload") 
lblMessage.Text = "" 

If Not (fileInp.PostedFile Is Nothing) Then 
  Try 
  strFileName = fileInp.PostedFile.FileName 
  If strFileName <> "" Then 
    strFileName = strFileName.Replace("/", "\") 
    strFileName = strFileName.Replace("C:/Ilya_test/", "http://iptor.com.ru/")
    index = strFileName.LastIndexOf("\") 
    strFileName = strFileName.Substring(index +  1 ) 
    strUniqueName = System.Guid.NewGuid().ToString() + "_" + strFileName 
    fileInp.PostedFile.SaveAs(strRootUpload & "\" & strUniqueName) 
    lblMessage.Text = "Файл успешно загружен с именем " & strUniqueName & "<p>" 
  End if 
  Catch ex As Exception 
    lblMessage.Text = ex.Message & "<p>" 
  End Try 
End if

End Sub 
</script>