当前位置: 首页 > 图文教程 > 数据库 > DB2 > 用SQL Server为Web浏览器提供图像(四)(转)

DB2
监控 DB2 活动之使用解释工具分析SQL
DB2 Viper 快速入门
监控 DB2 活动之Visual Explain详细介绍
监控 DB2 活动之其他问题判断工具
DB2 与 Ruby on Rails 入门之一
DB2 实用程序介绍之EXPORT实用程序
浅谈DB2数据库故障处理及最佳实践
使用重定向恢复DB2数据库
DB中如何查询Table占用空间的大小
DB2 实用程序介绍之LOAD实用程序
DB2 实用程序介绍之数据移动实用程序
DB2 实用程序介绍之IMPORT实用程序
SQL Server 2005对DBA的要求是否会更高
IBM XML tools for DB2 Version 9.5 及其用法
DB2 VS2005.Net插件进行XML数据验证
三种级别的DB2数据库字符集的设置与修改
理解DB2 9中新的查询:XQuery
DB2 存储和检索 XML 数据
VS2005构建针对DB2的应用程序和Web站点
.Net开发采用DB2 XML的应用程序示例

DB2 中的 用SQL Server为Web浏览器提供图像(四)(转)


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-10-31   浏览: 173 ::
收藏到网摘: n/a

建立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







建立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.NameOfI