高手请看一看,这个存储过程为什么出错?
<!-- #include file="adovbs.inc"-->
<!-- #include file="conn.asp"-->
<%
Set objCmd = Server.CreateObject("ADODB.Command")
objCmd.CommandText="sp_Check" '存储的过程名
objCmd.CommandType=adCmdStoredProc '将 CommandText 作为存储过程名进行计算
Set objCmd.ActiveConnection = Conn
Set tmpFirstParam=objCmd.CreateParameter ("UserName",adVarChar,adParamIntput,30)
objCmd.Parameters.Append tmpFirstParam
Set tmpSecondParam=objCmd.CreateParameter ("UserPwd",adVarChar,adParamInput,30)
objCmd.ParaMeters.Append tmpSecondParam
Set tmpThirdParam=objCmd.CreateParameter ("RetValue",adChar,adParamOutput,8)
objCmd.Parameters.Append tmpThirdParam
objCmd("UserName")=Request.FORM("UserName")
objCmd("UserPwd")=Request.FORM("UserPwd")
objCmd.Execute
%>
The Check Result is <%=objCmd("RetValue")%>
<%
Conn.Close
%>
<HTML><HEAD><TITLE>Registration Page</TITLE>
<LINK href="include/FONT.CSS" type=text/css rel=stylesheet>
<META content="Microsoft FrontPage 5.0" name=GENERATOR><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></HEAD>
<BODY text=#000000 bottomMargin=0 vLink=#000000 aLink=#000000 link=#000000 bgColor=#FFFFFF leftMargin=0 topMargin=0 rightMargin=0 marginheight="0" marginwidth="0">
<table width="776" height="69" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="320"> </td>
<td width="185"> </td>
<td width="271"> </td>
</tr>
<tr>
<td> </td>
<td>请输入用户名与密码</td>
<td> </td>
</tr>
</table>
<table width="400" height="82" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="form1" method="post" action="">
<tr>
<td width="76">用户名:</td>
<td width="324"><input name="username" type="text" id="username"></td>
</tr>
<tr>
<td>密码:</td>
<td><input name="userpwd" type="password" id="userpwd"></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="确定"></td>
</tr>
</form>
</table>
</body>
</html>