首页 > > 网络编程 > Mssql >

用SQL Server为Web浏览器提供图像

2008-04-02 10:59:09来源：互联网阅读 ()

建立Web项目和配置数据库连接

在注册了 ImageLoader 动态链接库之后，我们就能够建立Web项目了。我们使用微软Visual InterDev 1.0 建立ASP页面连同到微SQL Server数据库的数据连接。

首先，打开微软Visual InterDev。在文档File 菜单里，选择新建（New）菜单项。在出现的对话框里，选中Web项目向导，在项目名称字段里输入ImageLoad 。单击确定（OK），完成后面两步，结束向导。

能够看到， Visual InterDev 在工作空间（Workspace）窗口里自动地生成了一个文档，叫做Global.asa。在用户第一次查看Web程式里的页面里，就会自动生成这个文档。要连接SQL Server里的数据库，选择项目 | 加入项目（Project |Add To Project），然后选择数据连接（Data Connection）。这里，选择数据源对话框出现，我们必须定义一个数据源名称（DSN）。

单击新建（New）按钮，在列出的可用数据驱动程式列表里，选择SQL Server，然后单击下一步（Next）。接着，在输入框里输入 Grocevb 作为DSN。接下来的几步很容易完成，不再详述。

下面，出现了SQL Server 登录对话框。输入服务器名称，登录ID和口令，并单击选项（Option）按钮。从列出的可用数据库列表里，选择Grocevb，单击确定（OK）。在结束了全部以上步骤之后，就返回到了选择数据源对话框。在这里，从DSN列表里单击文档名 Grocevb.dsn，然后完成后面几步结束这段操作。

现在，能够双击Global.asa，查看以上步骤在这个文档里生成的代码。代码定义了连接SQL Server数据库所必需的一些变量。

为了初始化类 clsImageLoader ，必须在Global.asp的开始放两行代码。我们在列表 C里列出了Global.asa里的代码。注意clsImageLoader 是个会话范围内的对象。

列表 C: Global.asa

<OBJECT RUNAT=Server SCOPE=Session ID=objImageLoader PROGID="ImageLoader.clsImageLoader">
</OBJECT>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnStart
Session("Grocevb_ConnectionString") = "DRIVER=SQL Server; SERVER=(local);
UID=sa;PWD=;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。在efault.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>

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有