If Not IsPostBack Then
            Dim strcontent As String
            Dim strarray() As String
            Dim strtitle As String
            Dim str As String
            Dim con As SqlConnection
            Dim cmd As SqlCommand
            Dim strcmd As String
            Dim da As SqlDataReader
            con = New SqlConnection(ConfigurationSettings.AppSettings("stars"))
            strcmd = "select title,ct,ft from infomation where id=" & CInt(Request("id"))
            cmd = New SqlCommand(strcmd, con)
            con.Open()
            da = cmd.ExecuteReader
            If da.Read() Then
                context.Response.Buffer = True 
context.Response.Clear() 
context.Response.ContentType = da("ft").ToString() 
context.Response.AddHeader("Content-Disposition", "attachment;filename=" + HttpUtility.UrlEncode(da("Title").ToString())) 
context.Response.BinaryWrite(CByte(da("ct"))) 
context.Response.Flush() 
context.Response.End()
            End If
            con.Close()