当前位置：网学 > 编程文档 > ASP.net > 正文

Asp.net直接保存文件到客户端

作者：用户投稿来源：网络发布时间： 12/10/12

方法,还没有试用,不知道有没有作用.

   Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
   Handles MyBase.Load
   ''在此处放置初始化页的用户代码
   '' 定义是否是 SQL Server 数据库，这里为False
   Dim blnIsSQLServer As System.Boolean = False
   Dim strSQL As String
   Dim objDataset As New DataSet()
   Dim objConn As Object
   Dim strCnn As String

   If blnIsSQLServer Then
   strCnn = "User ID=sa;Initial Catalog=Northwind;Data Source=.\NetSDK;"
   objConn = New System.Data.SqlClient.SqlConnection(strCnn)
   objConn.Open()
   Dim objAdapter As New System.Data.SqlClient.SqlDataAdapter()
   strSQL = "Select * from customers where country=''USA''"
   objAdapter.SelectCommand = New System.Data.SqlClient.SqlCommand(strSQL, objConn)
   objAdapter.Fill(objDataset)
   Else
   strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("Test.mdb")
   objConn = New System.Data.OleDb.OleDbConnection(strCnn)
   objConn.Open()
   Dim objAdapter As New System.Data.OleDb.OleDbDataAdapter()
   strSQL = "Select Top 10 Title From Document"
   objAdapter.SelectCommand = New System.Data.OleDb.OleDbCommand(strSQL, objConn)
   objAdapter.Fill(objDataset)
   End If
   Dim oView As New DataView(objDataset.Tables(0))
   DataGrid1.DataSource = oView
   DataGrid1.DataBind()
   objConn.Close()
   objConn.Dispose()
   objConn = Nothing
   If Request.QueryString("bExcel") = "1" Then
   Response.ContentType = "application/vnd.ms-excel"
   '' 从Content-Type header中去除charset设置
   Response.Charset = ""

   '' 关闭 ViewState
   Me.EnableViewState = False
   Dim tw As New System.IO.StringWriter()
   Dim hw As New System.Web.UI.HtmlTextWriter(tw)
   '' 获取control的HTML
   DataGrid1.RenderControl(hw)
   '' 把HTML写回浏览器
   Response.Write(tw.ToString())
   Response.End()
   End If
   End Sub

上一页 1 2 3

上一篇资讯：在ASP.NET Atlas中调用Web Service

下一篇资讯：关于 IE 模态对话框的两个问题