● [转载] ASP中显示数据库中的图像 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: tang (独孤九剑〖玄铁重剑〗), 信区: Homepage
标  题: [转载] ASP中显示数据库中的图像
发信站: BBS 荔园晨风站 (Sun Apr 11 20:59:22 1999), 站内信件

【以下文字转载自 Program 讨论区】
【原文由 zzt 所发表】
以下的程序是我曾经用过的显示图形的ASP程序

**其中 PHOTO_IMG 字段的内容为Jpeg或Gif图象格式

希望有所帮助。
欢迎来信交流。

----------------------------------------
disp_photo.asp

<%@ LANGUAGE="VBSCRIPT" %>
<%'显示数据库中图象字段的内容

'过程   重定向结果图象
Private Sub redirect()
        Response.Redirect "./images/NoPhoto.GIF"
end Sub

'过程   显示结果图象
Private Sub disp_photo()
dim P
dim L
        L = 8192
        '以8K为单位向 Client 端写数据
        '设置文档类型
        Response.ContentType = "image/JPEG"
        '取得图象数据并显示
        do
                P = RS("PHOTO_IMG").GetChunk(L)
                Response.BinaryWrite P
                IF LenB(P) < L then exit do
        loop
end Sub

'函数   从Request QueryString中返回查询参数
Private Function Req_arg(str)
dim tmp
        tmp = ""
        if Request.QueryString(str).Count <> 0 then
                tmp = Request.QueryString(str)
        end if
        Req_arg = tmp
end Function

%>

<% '主程序 %>
<OBJECT RUNAT=Server ID=Conn PROGID="ADODB.Connection"></OBJECT>
<%
dim arg
dim SQL
        arg = ""
        arg = Req_arg("no")
        if arg = "" then redirect()
        '初始化数据库连接
        Conn.Open session("dataconn_connectionstring")
        SQL = "select * from photo_tab"
        SQL = SQL & " where IMAGE_NO = " & arg

        '取得查询结果
        Set RS = Conn.Execute(SQL)
        if (RS.BOF and RS.EOF) then
                '没有找到图象数据
                redirect()
        else
                '显示图象
                disp_photo()
        end if

        '断开数据库连接
        RS.Close
        Conn.Close
%>

----------------------------------------

--
--

日出东方，唯我不败；
    天上地下，唯我独尊。

※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.0.72]
--
※ 转载:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.0.4]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店