28,391
社区成员
发帖
与我相关
我的任务
分享ASP错误
用ODBC连接数据库，没用，还是个死样
（有能力帮我请访问https://bbs.csdn.net/topics/392415900）。
哎！没办法，只能用OLEDB。
老天！！！，咋还是个狗样！！！
错误信息：
连接Microsoft OLE DB Provider for SQL Server 错误 '80040e14'
参数化查询 '(@P1 varchar(255),@P2 varchar(255))SELECT Name, Password FROM db' 需要参数 '@P2'，但未提供该参数。
/Default.asp，行 29
数据库代码：
网页代码：
求大神们救救我
！！！此问题已纠结好久了！！！
（有能力帮我请访问https://bbs.csdn.net/topics/392415900）。哎！没办法，只能用OLEDB。
老天！！！，咋还是个狗样
！！！错误信息：
连接Microsoft OLE DB Provider for SQL Server 错误 '80040e14'
参数化查询 '(@P1 varchar(255),@P2 varchar(255))SELECT Name, Password FROM db' 需要参数 '@P2'，但未提供该参数。
/Default.asp，行 29
数据库代码：
<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_conn_STRING
MM_conn_STRING = "Provider=sqloledb;Data Source=192.168.0.105;Initial Catalog=DataBase;User Id=**;Password=***;"
%>
网页代码：
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn.asp" -->
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername = CStr(Request.Form("User-Name"))
If MM_valUsername <> "" Then
Dim MM_fldUserAuthorization
Dim MM_redirectLoginSuccess
Dim MM_redirectLoginFailed
Dim MM_loginSQL
Dim MM_rsUser
Dim MM_rsUser_cmd
MM_fldUserAuthorization = ""
MM_redirectLoginSuccess = "map.html"
MM_redirectLoginFailed = "test.html"
MM_loginSQL = "SELECT Name, Password"
If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization
MM_loginSQL = MM_loginSQL & " FROM dbo.[User Information] WHERE Name = ? AND Password = ?"
Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command")
MM_rsUser_cmd.ActiveConnection = MM_conn_STRING
MM_rsUser_cmd.CommandText = MM_loginSQL
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 255, MM_valUsername) ' adVarChar
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 200, 1, 255, Request.Form("Password")) ' adVarChar
MM_rsUser_cmd.Prepared = true
Set MM_rsUser = MM_rsUser_cmd.Execute
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
<!doctype html>
<html>
<head>
<meta charset="utf-8">
<meta http-equiv="X-UA-Compatible" content="IE=edge">
<meta name="viewport" content="width=device-width, initial-scale=1">
<title>登陆-蓝服一号</title>
<link rel="stylesheet" href="https://stackpath.bootstrapcdn.com/bootstrap/4.1.3/css/bootstrap.min.css" integrity="sha384-MCw98/SFnGE8fJT3GXwEOngsV7Zt27NXFoaoApmYm81iuXoPkFOJwJ8ERdknLPMO" crossorigin="anonymous">
<link href="/css/Css1.css" rel="stylesheet" type="text/css">
</head>
<body>
<header class="Header">登录</header>
<hr class="Hr">
<address>
<div id="Div">
<form ACTION="<%=MM_LoginAction%>" METHOD="POST" name="From1">
<p>
<input type="text" name="User-Name" id="User-Name" class="form-control" placeholder="姓名">
</p>
<p>
<input type="password" name="Password" id="Password" class="form-control" placeholder="密码">
</p>
<p>
<input type="checkbox">记住密码
</p>
<p>
<div id="c1"></div>
</p>
<p>
<input type="submit" name="Submit" id="Submit" class="btn btn-lg btn-block btn-primary Can-Not-Using" value="登录" disabled>
</p>
</form>
<p>
<a href="forgot-password.asp">
<input type="button" class="btn btn-lg btn-block btn-dark" value="忘记密码">
</a>
</p>
</div>
</address>
<hr class="Hr">
<footer class="Footer">
<p>
©2018 蓝服一号.top.All rights reserved.
</p>
<nav>
<a>FAQ</a>|
<a>使用说明</a>|
<a>网站信息</a>|
<a>与我们联系</a>
</nav>
</footer>
<script src="https://cdn.dingxiang-inc.com/ctu-group/captcha-ui/index.js"></script>
<script src="js/Verification-Code-Component.js" type="text/javascript"></script>
<script src="https://code.jquery.com/jquery-3.3.1.slim.min.js" integrity="sha384-q8i/X+965DzO0rT7abK41JStQIAqVgRVzpbzo5smXKp4YfRvH+8abtTE1Pi6jizo" crossorigin="anonymous"></script>
<script src="https://cdnjs.cloudflare.com/ajax/libs/popper.js/1.14.3/umd/popper.min.js" integrity="sha384-ZMP7rVo3mIykV+2+9J3UJ46jBk0WLaUAdn689aCwoqbBJiSnjAK/l8WvCWPIPm49" crossorigin="anonymous"></script>
<script src="https://stackpath.bootstrapcdn.com/bootstrap/4.1.3/js/bootstrap.min.js" integrity="sha384-ChfqqxuZUCnJSK3+MXmPNIyE6ZbWh2IMqE241rYiqJxyMiZ6OW/JmZQ5stwEULTy" crossorigin="anonymous"></script>
</body>
</html>
求大神们救救我
！！！此问题已纠结好久了！！！
...全文
请发表友善的回复…
发表回复
qlzgdzfl 2018-08-06
- 打赏
- 举报
我是用 sql ncli 做的，做了一个函数 来调用
<%
'连接数据库，采用sqlncli
Function getRecordsetconn
Dim conn
dim geterrs,getDescriptions
'On Error Resume Next
dim Sql_server_addr,Sql_user,Sql_password,Sql_database
Sql_server_addr = "127.0.0.1" '数据库服务器地址
Sql_user = "sa" '用户
Sql_password = "" '密码
Sql_database = "" '数据库名
dim connstr '链接字符串
connstr="PROVIDER=SQLNCLI.1;DATA SOURCE=" & Sql_server_addr & ";database=" & Sql_database & ";User Id=" & Sql_user & ";PASSWORD=" & Sql_password & ";"
set Conn=Server.CreateObject("ADODB.Connection")
'conn.Provider = "SQLNCLI.1"
conn.Open ConnStr
If Err Then
geterrs=Err.Number
getDescriptions=Err.Description
Err.Clear
Set conn = Nothing
conn.close
Response.Redirect("conn_error.asp?geterr="&geterrs&"&getDescription="&getDescriptions&"&getdatabaseerr="&getdatabaseerr)
response.End
End If
set getRecordsetconn = conn
'关闭
end function
Function closeRecordset( getrs )
getrs.Close
Set getrs = Nothing
End Function
%>
