showdbupload.aspx

asp.net技术内幕的书配源码

<%@ Import Namespace="System.Data.SqlClient" %>

<Script Runat="Server">

Sub Page_Load
  Dim intItemID As Integer
  Dim conMyData As SqlConnection
  Dim strSelect As String
  Dim cmdSelect As SqlCommand
  Dim dtrSearch As SqlDataReader

  intItemID = Request.Params( "id" )
  conMyData = New SqlConnection( "Server=Localhost;UID=sa;PWD=secret;Database=myData" )
  strSelect = "SELECT u_documentType, u_document From Uploads " & _
    "WHERE u_id=@itemID"
  cmdSelect = New SqlCommand( strSelect, conMyData )
  cmdSelect.Parameters.Add( "@itemID", intItemID )
  conMyData.Open()
    dtrSearch = cmdSelect.ExecuteReader()
    If dtrSearch.Read
      ' Set Content Type
      Response.ClearHeaders()
      Select Case dtrSearch( "u_documentType" )
        CASE "doc"
          Response.ContentType = "application/msword"
        CASE "ppt"
          Response.ContentType = "application/ppt"
        CASE "txt"
          Response.ContentType = "text/plain"
      End Select
      Response.BinaryWrite( dtrSearch( "u_document" ) )
    End IF
    dtrSearch.Close
   conMyData.Close
End Sub

</Script>