d") = "" 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 rstProduc页码:[1] [2] [3] [4] [5] [6] [7] 第3页、共7页 |