如何利用Image Data Type在主页中显示图形？

如何利用Image Data Type从数据库中读取图片，并在主页中显示图形？

然后，写如下代码：

< ％ @ LANGUAGE = VBScript ％ >
< ％ Option Explicit ％ >
< ％
Dim oConn 
Dim oRs 
Dim Pic 
Dim PicSize 
' 定义变量
Response.Buffer = TRUE
Response.ContentType = "image/gif"
' 设置属性
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Im_Test","sa",""
Set oRs = oConn.Execute("SELECT Pr_Info FROM Im_Info WHERE Pr_Id=1")
' 连接数据库
PicSize = oRs("Pr_Info").ActualSize
Pic = oRs("Pr_Info ").GetChunk(PicSize)
' 取出图形
Response.BinaryWrite Pic
Response.End
％ >