（3）//Checklogin.asp
//检验登录的单位用户的合法性，返回值。同时调用存储过程sp_CheckPwd
'包含数据库连接定义的文件
< %
Set cmdTemp=Sever.CreateObject("ADODB.Command")
'建立命令对象
Set cmdTemp.ActiveConnection=Conn
'把命令和打开的连接联系起来
cmdTemp.CommandType=adCMdStoredProc
'指定要执行的是一个存储过程
cmdTemp.CommandText="sp_CheckPwd"
'引用存储过程指定名称
Set tmpFirstParam =cmdTemp.CreateParameter
("DepartmentUserPwd",adVarChar,adParamInput,30)
'创建输入参数对象，命令对象的CreateParameter（）方法建立输入参数,同理可以建立输入参数对象DepartmentId，对象的方法带有四个参数，需要注意区别
Set tmpThirdParam=cmdTemp.CreateParameter
("RetValue",adChar,adParamOutput,8)
'创建返回参数对象
cmdTemp.Parameters.Append.tmpFirstParam
'把第一个参数追加到参数集合中，同理依次追加其他参数到集合中
cmdTemp("DepartmentId ")=Request.FORM("DepartmentId ")
'取得输入参数，从请求的login.asp的 FORM中获得
cmdTemp("DepartmentUserPwd ")=Request.FORM("DepartmentUserPwd ")
cmdTemp.Execute
'调用Execute方法执行存储过程
% >
The Check Result is < %=cmdTemp("RetValue")% >
'输出返回值，这是最为简单的应用，在实际中可以根据需求，进行相应开发
< %
DataConn.Close
'关闭数据库连接
% >
（4）//conn.asp
//数据库连接定义文件
<%
dim conn
dim connstr
set conn=server.createobject("ADODB.CONNECTION")
'建立连接对象
connstr="driver={SQL Server};server=xx.xxx.xx.xx;uid=fzxxg_user;pwd=;database=fzxxg"
'与数据库建立连接,服务器的IP地址，用户名称fzxxg_user，口令为空，数据库名称为fzxxg
conn.open connstr
%>
四、结束语
人民银行网站的建设为新世纪的银行业带来了巨大的发展机遇并提供了广阔的舞台，Intranet在我们的社会中将扮演多种角色，各种Intranet的技术将备受关注。本文中，调用数据库存储过程可以建立一个交互式的、高效率的网站，是一种实用技术。但它只是网站建设技术的冰山一角，相信以TCP/IP协议作为基础，以WEB为核心应用，以后台数据库为支持模型的大型复杂高效率的站点建设是发展趋势和必然。
