文件1:
<html>
<head>
<title>方法实例</title>
</head>
<body>
<form name="form1" method="get" action="11.asp">
<p>姓名<input type="text" name="username"></p>
<p>年龄<input type="text" name="PWD"></p>
<p><input type="submit" name="Submit" value="提交">
<input type="reset" name="reset" value="重置">
</p>
</form>
</body>
</html>
***********************************************************************
文件2:11.ASP
<html>
<head>
<!-- METADATA NAME="Microsoft ActiveX Data Objects 2.5 Library" TYPE="TypeLib" UUID="{00000205-0000-0010-8000-00AA006D2EA4}" -->
</head>
<body>
<%
dim na,pw
'创建Connection对象
set conn = server.createobject("adodb.connection")
'使用DSN文件打开数据库连接
conn.Open "FILEDSN=c:\Program Files\Common Files\ODBC\Data Sources\user.dsn;uid=sa;pwd=519889;" '连接数据库
Set cmd = Server.CreateObject("ADODB.Command") '创建Command对象
'Command对象所属的Connection对象
cmd.ActiveConnection = conn
cmd.CommandType = adCMDStoredProc '命令类型为存储过程
cmd.CommandText = "sp_ChkPwd" '存储过程名
'生成参数
Set UserName_param = cmd.CreateParameter("@UserName",adVarChar,adParamInput,50)
'把生成的参数添加到cmd的参数集合中
cmd.Parameters.Append UserName_param
'生成参数
Set Password_param = cmd.CreateParameter("@Password",adVarChar,adParamInput,50)
'把生成的参数添加到cmd的参数集合中
cmd.Parameters.Append Password_param
'生成参数
Set RetVal_param = cmd.CreateParameter("@RetVal_para",adInteger,adParamOutput)
'把生成的参数添加到cmd的参数集合中
cmd.Parameters.Append RetVal_param
'读取用户填写的用户名，并赋给cmd的UserName参数
na=request.querystring("username")
pw=request.querystring("PWD")
'读取用户填写的用户名，并赋给cmd的UserName参数
cmd("@UserName") =request.querystring("username")
'读取用户填写的密码，并赋给cmd的Password参数
cmd("@Password") =request.querystring("PWD")
cmd.Execute '执行存储过程
result = cmd("@RetVal_para") '存储过程执行输出值
If result = 1 Then '用户登录成功
Response.Write("<script>alert('登录成功！')</script>")
Response.End '停止执行ASP 文件
ElseIf result = 0 Then '用户登录失败
Response.Write("<script>alert('登录失败！')</script>")
Response.End
End If
conn.Close
conn.Close '关闭Connection对象%>
<%
=name
%>
</body>
</html>
有时成功,有时出现错误:
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC SQL Server Driver][SQL Server]过程 'sp_ChkPwd' 需要参数 '@UserName'，但未提供该参数。
/11.asp, 第 36 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
网页：
POST 37 ??? /11.asp
POST Data:
username=Tom&PWD=&Submit=%CC%E1%BD%BB
是不是GET或POST的原因,好象有一时,改了下成功了?!
请哪位大侠释疑下,不胜感激.
[此贴子已经被作者于2007-5-2 11:47:10编辑过]
