pro_test.asp

eayanQuery思燕大学成绩查询系统 版本 V1.6

<!--#INCLUDE file="adovbs.inc"-->

包含VBSCRIPT的常量定义文件

<%

Set DataConn=Sever.CreateObject("adodb.connection") 
 
Dataconn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=(local);UID=sa;PWD=sa;Database=axhucj"

Set cmdTemp=Sever.CreateObject("ADODB.Command")
'建立命令对象

Set cmdTemp.ActiveConnection=DataConn

cmdTemp.CommandType=adCMdStoredProc 
'指定要执行的是一个存储过程

cmdTemp.CommandText="sp_CheckPass" 
'存储过程名称

Set tmpFirstParam=cmdTemp.CreateParameter("UserName",adVarChar,adParamIntput,30) 
'创建输入参数对象 

cmdTemp.Parameters.Append.tmpFirstParam 
'把参数加到参数集合

Set tmpSecondParam=cmdTemp.CreateParameter("UserPwd",adVarChar,adParamInput,30)

cmdTemp.ParaMeters.Append tmpSecondParam

Set tmpThirdParam=cmdTemp.CreateParameter("RetValue",adChar,adParamOutput,8) 
'创建返回参数对象

cmdTemp.Parameters.Append tmpThirdParam

cmdTemp("UserName")=Request.FORM("UserName")
'取得输入参数 

cmdTemp("UserPwd")=Request.FORM("UserPwd")

cmdTemp.Execute sp_CheckPass '执行存储过程

%>

The Check Result is <% =cmdTemp("RetValue") %> 


<% DataConn.Close
   Set DataConn=nothing 

 '关闭数据库连接 %>