连接字符串 
<% 
Set Conn=Server.CreateObject("adodb.Connection") 
Str="driver={mysql odbc 5.1 driver};database=web;server=localhost;uid=root;password=root;OPTION=3;stmt=SET NAMES GB2312" 
conn.cursorlocation=3 
Conn.Open Str 
%> 
输出1 
<% 
Set Rs = Conn.Execute("SELECT * from  it_news") 
Response.Write(rs("content")) 
%> 
输出2 
<% 
set rs=server.createobject("adodb.recordset") 
sql="select * from it_news where id=37" 
rs.open sql,conn,1,1 
Response.Write(rs("content")&" <br>"&len(rs("content"))) 
%> 以上2种方法都无法读出内容 数据库字段 content 有内容 类型 longtext 
同一个数据库 PHP连接输出都有内容 
asp本地上也可以输出内容 放到万网服务器上就不行了 
请高手帮忙解决 

解决方案 »

  1.   

    BLOB字段需要用 GetChunk 方法 来获取!AppendChunk 和 GetChunk 方法范例 (VB)
    本范例使用 AppendChunk 和 GetChunk 方法用其他记录中的数据填充图像字段。'BeginAppendChunkVB    'To integrate this code
        'replace the data source and initial catalog values
        'in the connection string
        
    Public Sub Main()
        On Error GoTo ErrorHandler    'recordset and connection variables
        Dim Cnxn As ADODB.Connection
        Dim strCnxn As String
        Dim rstPubInfo As ADODB.Recordset
        Dim strSQLPubInfo As String
         'record variables
        Dim strPubID As String
        Dim strPRInfo As String
        Dim lngOffset As Long
        Dim lngLogoSize As Long
        Dim varLogo As Variant
        Dim varChunk As Variant
        Dim strMsg As String
        
        Const conChunkSize = 100
        
        ' Open a connection
        Set Cnxn = New ADODB.Connection
        strCnxn = "Provider='sqloledb';Data Source='MySqlServer';" & _
            "Initial Catalog='Pubs';Integrated Security='SSPI';"
        Cnxn.Open strCnxn
        
        ' Open the pub_info table with a cursor that allows updates
        Set rstPubInfo = New ADODB.Recordset
        strSQLPubInfo = "pub_info"
        rstPubInfo.Open strSQLPubInfo, Cnxn, adOpenKeyset, adLockOptimistic, adCmdTable
        
        ' Prompt for a logo to copy
        strMsg = "Available logos are : " & vbCr & vbCr
        Do While Not rstPubInfo.EOF
            strMsg = strMsg & rstPubInfo!pub_id & vbCr & _
                Left(rstPubInfo!pr_info, InStr(rstPubInfo!pr_info, ",") - 1) & _
                vbCr & vbCr
            rstPubInfo.MoveNext
        Loop
       
        strMsg = strMsg & "Enter the ID of a logo to copy:"
        strPubID = InputBox(strMsg)
        
        ' Copy the logo to a variable in chunks
        rstPubInfo.Filter = "pub_id = '" & strPubID & "'"
        lngLogoSize = rstPubInfo!logo.ActualSize
        Do While lngOffset < lngLogoSize
            varChunk = rstPubInfo!logo.GetChunk(conChunkSize)
            varLogo = varLogo & varChunk
            lngOffset = lngOffset + conChunkSize
        Loop
       
        ' Get data from the user
        strPubID = Trim(InputBox("Enter a new pub ID" & _
                                 " [must be > 9899 & < 9999]:"))
                                 
        strPRInfo = Trim(InputBox("Enter descriptive text:"))
        
        ' Add the new publisher to the publishers table to avoid
        ' getting an error due to foreign key constraint
        Cnxn.Execute "INSERT publishers(pub_id, pub_name) VALUES('" & _
                       strPubID & "','Your Test Publisher')"
        
        ' Add a new record, copying the logo in chunks
        rstPubInfo.AddNew
        rstPubInfo!pub_id = strPubID
        rstPubInfo!pr_info = strPRInfo    lngOffset = 0 ' Reset offset
        Do While lngOffset < lngLogoSize
            varChunk = LeftB(RightB(varLogo, lngLogoSize - lngOffset), _
                conChunkSize)
            rstPubInfo!logo.AppendChunk varChunk
            lngOffset = lngOffset + conChunkSize
        Loop
        rstPubInfo.Update
       
        ' Show the newly added data
        MsgBox "New record: " & rstPubInfo!pub_id & vbCr & _
            "Description: " & rstPubInfo!pr_info & vbCr & _
            "Logo size: " & rstPubInfo!logo.ActualSize    ' Delete new records because this is a demo
        rstPubInfo.Requery
        Cnxn.Execute "DELETE FROM pub_info " & _
            "WHERE pub_id = '" & strPubID & "'"    Cnxn.Execute "DELETE FROM publishers " & _
            "WHERE pub_id = '" & strPubID & "'"    ' clean up
        rstPubInfo.Close
        Cnxn.Close
        Set rstPubInfo = Nothing
        Set Cnxn = Nothing
        Exit Sub
        
    ErrorHandler:
       ' clean up
        If Not rstPubInfo Is Nothing Then
            If rstPubInfo.State = adStateOpen Then rstPubInfo.Close
        End If
        Set rstPubInfo = Nothing
        
        If Not Cnxn Is Nothing Then
            If Cnxn.State = adStateOpen Then Cnxn.Close
        End If
        Set Cnxn = Nothing
        
        If Err <> 0 Then
            MsgBox Err.Source & "-->" & Err.Description, , "Error"
        End If
    End Sub
    'EndAppendChunkVB
      

  2.   

    当您的问题得到解答后请及时结贴.
    http://topic.csdn.net/u/20090501/15/7548d251-aec2-4975-a9bf-ca09a5551ba5.html