����λ�ã���ҳ����ҳ�����ASPʵ���� ��ASP��ʾAACCESS���ݿ�GIFͼ��

��ASP��ʾAACCESS���ݿ�GIFͼ��

ʱ�䣺2008/11/28 15:38:00��Դ����վ�������ߣ���Ҫ����(0)

д�룺

1:��gifͼ���ļ������ڴ棨һ������strTemp����

2:д�����ݿ⡣

����Ϊ���õ����ݣ� ��Dim binTmp() As Byte ��Dim conn As ADODB.Connection ��Dim rs As ADODB.Recordset ��Dim strSql As String ��Set conn = New ADODB.Connection ��Set rs = New ADODB.Recordset ��conn.Open "db" ��strSql = "select * from tbImage" ��rs.Open strSql, conn, 1, 3 ��OpenFile ("bayshore.jpg") ��'���Լ�ʵ��OpenFile���� ��rs.AddNew ��rs.Fields("image").AppendChunk binTmp ��rs.Update

��������ʾ��

����Ϊ���õ����ݣ� ��show.asp: ��<% ��dim P ��dim L ��L = 8192 ��dim conn,rs,strSql ��set conn=server.CreateObject("ADODB.Connection") ��conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &server.MapPath(".") & "db2.mdb;Persist Security Info=False" ��set rs=server.CreateObject("ADODB.Recordset") ��strSql = "select * from tbImage" ��Response.ContentType = "image/gif" ��'Important! ��rs.open strSql,conn,1,1 ��rs.movelast ��do ��P = rs("image").GetChunk(L) ��Response.BinaryWrite P ��IF LenB(P) < L then exit do ��loop ����%>

��html��

����Ķ�ȫ������2easy anti cheat����������dnfSPTP�İ����ݽ���2019 dnfSPTP���ܸİ�����Astral Chain��������һ�� Astral Chainʲôʱ�������ʦSP���ͽ���ʽ�ع� ����ʦSP���������ͽ���ƽ��������ʦSP���ͽ��ʲô���� ����ʦSP���ͽ���������Ƽ�����ʦSP���ͽ�����ʲô ����ʦSP���ͽ���һ������ʦSP���ͽ��ع� ����˫SP����ƽ��������ʦSPһĿ����ʽ�ع� �Է�һĿ������ƽ����

��������

�鿴����0������>>

��������

����˵����...

�ύ����