#12001/12/7 18:35:53
我在建立完纪录集合后,测试时就说,([Microsoft][ODBC Microsoft Access驱动程序]参数不足,期待是2)。请问怎么解决?下面是代码。<%
Dim rsLogin__strUserID
rsLogin__strUserID = "xyz"
if (Request.Form("UserID") <> "") then rsLogin__strUserID = Request.Form("UserID")
%>
<%
Dim rsLogin__strPassword
rsLogin__strPassword = "123"
if (Request.Form("Password") <> "") then rsLogin__strPassword = Request.Form("Password")
%>
<%
set rsLogin = Server.CreateObject("ADODB.Recordset")
rsLogin.ActiveConnection = MM_connLogin_STRING
rsLogin.Source = "SELECT * FROM tblLogin WHERE UserID = '" + Replace(rsLogin__strUserID, "'", "''") + "' AND Password = '" + Replace(rsLogin__strPassword, "'", "''") + "'"
rsLogin.CursorType = 0
rsLogin.CursorLocation = 2
rsLogin.LockType = 3
rsLogin.Open()
rsLogin_numRows = 0
%>
<%
If rsLogin__strUserID <> "xyz" then
If Not rsLogin.EOF Then
Session("svUserID") = (rsLogin.Fields.Item("UserID").value)
Session("svPassword") = (rsLogin.Fields.Item("Password").value)
Session("svAccessGroup") = (rsLogin.Fields.Item("AccessGroup").value)
Response.Redirect "LoginOK.asp"
Else
Response.Redirect "Register.asp"
End If
End If
%>
还有一个问题,我把编辑浏览器列表里,使用应用程序服务器浏览一点上,就不能浏览了。请问是怎么回事?