'//how to 
                       Dim temp As Integer = InStr(url, "http://www.sina.com/soft")
            If temp <> 0 Then
                Dim path As String = Server.MapPath(Mid(url, temp + 33))                Dim result As String = Replace(path, "F:\aaa", "K:\bbb")                Dim file As FileInfo = New FileInfo(result)
                              Response.Clear()                
                Response.AddHeader("content-disposition", "attachment; filename=" + file.Name)                ' add the header that specifies the file size, so that the browser
                ' can show the download progress
                Response.AddHeader("content-length", file.Length.ToString())                ' specify that the response is a stream that cannot be read by the
                ' client and must be downloade
                Response.ContentType = "application/octet-stream"                ' send the file stream to the client
                Response.WriteFile(file.FullName)                ' stop the execution of this page
                Response.End()                'Label1.Text = result
            End If