WD=;APP=Microsoft (R) Developer Studio;WSID=JIA;
DATABASE=Grocevb;UseProcForPrepare=0"
Session("Grocevb_ConnectionTimeout") = 15
Session("Grocevb_CommandTimeout") = 30
Session("Grocevb_RuntimeUserName") = "sa"
Session("Grocevb_RuntimePassword") = ""
End Sub
Sub Session_OnEnd
set objImageLoader = Nothing
End Sub
</SCRIPT>
建立ASP页面
为了连接到数据库，并和ImageLoader这个动态链接库通信，我们在Web项目里建立了一个ASP文件。方法是在文件（File）菜单里选择新建（New）菜单项，在文件（Files）标签卡中选择ASP页面图标，在输入框里输入文件名称。我们把这个页面命名为default.asp。在default.asp 里包含的代码如列表 D所示。
列表 D: default.asp
<% Set dbConn = Server.CreateObject("ADODB.Connection")
dbConn.ConnectionTimeout = Session("Grocevb_ConnectionTimeout")
dbConn.CommandTimeout = Session("Grocevb_CommandTimeout")
dbConn.Open Session("Grocevb_ConnectionString"), Session("Grocevb_RuntimeUserName"), _
Session("Grocevb_RuntimePassword")
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set rstProduct = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT prod_id, prod_name, prod_desc, prod_unitprice, & _
" prod_unitquant, prod_imagetype " & _
"FROM Products ORDER BY prod_name"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = dbConn
rstProduct.Open cmdTemp, , 0, 1
objImageLoader.DbName = "Grocevb"
objImageLoader.TableName = "Products"
objImageLoader.NameOfImageColumn = "prod_image"
objImageLoader.NameOfImageTypeColumn = "prod_imagetype"
objImageLoader.NameOfImageIdColumn = "prod_id"
objImageLoader.OpenConnection
%>
<HTML>
<HEAD>
<TITLE>从SQL Server装载图片的示例</TITLE>
</HEAD>
<BODY bgcolor="#FFFFFF" TOPMARGIN=8 LEFTMARGIN=4>
<%Do While Not rstProduct.EOF %>
<%ProdId = rstProduct("prod_id") %>
<% objImageLoader.CreateTempImageFile(ProdId) %>
<% FileName = "images/" & objImageLoader.ImageFile(ProdId) %>
<TABLE border=1 cellpadding=0 cellspacing=0 width=100%>
<TABLE border=0 cellpadding=5 cellspacing=0 width=100% cols=2>
<td width=30%>
<IMG ALIGN=BOTTOM SRC= <% =FileName %>>
<p> </p>
<font size=2>Image type: <% = rstProduct("prod_imagetype") %>
</td>
<td width=70%>
<p align=center><font size=4><% =rstProduct("prod_name") %></font></p>
<p align=center><% =rstProduct("prod_desc") %></p>
</td>
</TABLE>
<p> </p>
<TABLE border=0 cellpadding=5, cellspacing=0 width=100% cols=2>
<td width=50%>
<p align=left>Unit quantity: <% = rstProduct("prod_unitquant") %></P>
</td>
<td width=50%>
<p align=left>Unit price: <% =rstProduct("prod_unitprice") %></p>
</td>
</TABLE>
</TABLE>
<p> </p>
<% rstProduct.MoveNext %>
<% Loop %>
</BODY>
</HTML>
注意：类ImageLoader 里定义的CreateTempImageFile 方法和ImageFile 属性（只读）需要图片ID作为参数。在这个例子里，图片ID就是表Products的主关键字(prod_id) 。所以， prod_id 的值必须传递给动态链接库。
总结
在这篇文章里，我们演示了一个方法，使用ActiveX动态链接库和ASP，可以从微软SQL Server服务器把图片装载到Web浏览器。它已经表明，这个方法在快速开发、容易使用和自定义Web页面的灵活上都有优势。动态链接库被用来连接数据库，提取图片数据，把图片数据放入文件。ASP页面则负责与SQL数据库和动态链接库通信。我们已经介绍了设置SQL数据库和Web项目的操作过程。
虽然这篇文章里的动态链接库和数据库的功能做了简化，但这里介绍的步骤对于其它任何强大复杂的Web项目都是有效的。 <
| 欢迎光临 江西广告网 (http://bbs.jxadw.com/) | Powered by Discuz! X3.2 |