7-30.asp

asp开发 asp开发 asp开发 asp开发

<!--#INCLUDE file="ADOVBS.inc"-->
<%
	set conn = Server.CreateObject("ADODB.Connection")
	Conn.Open("driver={SQL Server};database=pubs;"&_
		"server=localhost;uid=sa;pwd=")
	set cmd = Server.CreateObject("ADODB.Command")
	cmd.ActiveConnection = conn
	cmd.CommandType=4
	cmd.CommandText = "sp_CheckPass"
	'创建存储过程的两个输入参数
	'adVarChar和adParamInput定义在文件adovbs.inc中
	set param =  cmd.CreateParameter("CHKName", adVarChar, adParamInput, 30)
	cmd.Parameters.Append(param)
	set param =  cmd.CreateParameter("CHKPass", adVarChar, adParamInput, 30)
	cmd.Parameters.Append(param)
	'给存储过程两个输入参数赋值
	cmd("CHKNAME") = "aa"
	cmd("CHKPass") = "aa"
	'创建存储过程输出参数
	set param =  cmd.CreateParameter("ISValid", adVarChar, adParamOutput, 30)
	cmd.Parameters.Append(param)
	'执行存储过程
	cmd.Execute()
	'输出返回值
	Response.Write(cmd("ISValid"))
%>