例6－18.txt

web课件并附有习题练习还有实例详细的讲解了WEB的各种开发过程是学习 的好资料

<!--#INCLUDE file="ADOVBS.inc"-->
<%
Set Conn=Server.CreateObject("ADODB.Connection") 
Set MyComm=Server.CreateObject("ADODB.Command")
Conn.Open "Mysql" 
Set MyComm.ActiveConnection=Conn
MyComm.CommandText= "LoginCheck" 
MyComm. CommandType=adCMDStoredProc
'创建一个参数对象UserParam
Set UserParam=Mycomm.CreateParameter("UserName",adVarChar,adParamInput,30)
'将参数对象UserParam添加到命令对象MyComm的参数集合中
MyComm.Parameters.Append.UserParam
Set PassParam=MyComm.CreateParameter("Password",adVarChar,adParamInput,30)
MyComm.Parameters.Append.PassParam
Set ResultParam=MyComm.CreateParameter("Result",adVarChar,adParamOutput,30)
MyComm.Parameters.Append.ResultParam
'为参数赋值
MyComm("UserName")="John"
MyComm("Password")="Hello"
'执行对LoginCheck的调用
MyComm.Execute
'显示调用返回值
Response.Write MyComm("Result")
Conn.Close
%>