柳州仓库出租:谁能帮我修改一下这段ASP代码调用ACCESS数据库的部分

来源：百度文库编辑：查人人中国名人网时间：2024/04/29 13:11:13

<%@ Language=VBScript %>
<HTML>
<HEAD><TITLE>考生登录</TITLE></HEAD>
<BODY bgcolor=LightYellow>
<%
'定义变量
Dim Name, Password
Dim objConn, objRS
' 从FORM对象中获取用户输入的信息
Name = Trim(Request("Name"))
Password = Trim(Request("Password"))
if name<>"" and Password<>"" then
' 检查用户是否输入信息
' 使用Connection对象打开数据库文件Exercise.mdb
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("Exercise.mdb")
objConn.Open
' 建立Recordset对象并查找满足Name和Password的记录
strSQL = "SELECT * FROM Student WHERE 编号='" &_
Name & "' AND 口令='" & Password & "'"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn, 1, 1
' 如果到了记录文件Exercize.mdb的尾部，则库里没有该用户信息。
If Not objRS.Eof Then
' 检查用户是否已参加过考试，若是则进行成绩查询，
' 否则将建立Session("Pass")和Session("User")，
' 并将页面引导到Test.asp，开始考试计时
If objRS("已考") Then
Response.Write "<P algin=center><FONT size=4>"
Response.Write objRS("编号") & ",你好！"
Response.Write "你已经参加过考试。<P>你的考试成绩是"
Response.Write objRS("成绩") & "分。<P>"
Response.Write "<A href=Login.asp?name=" & Name & ">"
Response.Write "返回首页</A></BODY></HTML>"
Response.End
Else
Session("Pass") = 1
Session("User") = Name
Response.Redirect "Test.asp"
End If
Else
Response.Write "<SCRIPT language=VBScript>" & Chr(13)
Response.Write "MsgBox " & Chr(34) & "对不起，编号或口令不正确!" & Chr(34) & Chr(13)
Response.Write "</SCRIPT>"
End If
End If
%>
<FORM action=Login.asp method=post name=form1>
请输入考生编号和口令<HR>
<TABLE width=300 align=center>
<TR><TD height=40>编号：
<INPUT name=Name value='<%=name%>' size=15>
<TR><TD height=40>口令：
<INPUT name=Password type=password value='<%=Password%>' size=15>
<TR><TD height=40>
<INPUT type=button value=确定 OnClick=Check()>
<SCRIPT language=VBScript>
Sub Check()
str1 = Form1.name.Value
str2 = Form1.Password.Value
If str1 = empty Then
MsgBox "请输入您的编号！"
Exit Sub
elseif str2 = empty then
MsgBox "请输入您的口令！"
Exit Sub
End If
Form1.Submit
End Sub
</SCRIPT></TABLE></FORM> </BODY> </HTML>

浏览器报的错误类型：
Microsoft JET Database Engine (0x80040E10)
至少一个参数没有被指定值。
/MySite/网上考试/Login.asp, 第 23 行
也就是objRS.Open strSQL, objConn, 1, 1
这一句。

你先用response.write("连接状态："& objconn.state&"<br>")
if objconn.state=1 then
response.write"欢迎使用数据库Exercise.mdb！"
else
response.write"对不起，无法打开数据库Exercise.mdb"
end if
先用上面的代码测试一下数据库的连接是否正常，如果不能打开数据库多半是连接状态的问题，如果能打开数据库，问题可能出在数据类型不符合数据库的存储要求。
下面是0x80040E10的错误描述：
(0x80040E10)-->sql语句出错(update字段名或要更新的数据类型错误)

谁能帮我修改一下这段ASP代码调用ACCESS数据库的部分谁能帮我修改一下这段代码? 谁能帮我修改一下这段代码. 谁能帮我解释一下这段ASP代码谁能帮我修改个ASP的页面和调用代码啊！~~ 帮我看一下.这段asp代码..新手问题. 请问一下这段代码？ASP 谁能帮我改一下这段代码？谁能帮我分析一下这段代码？帮我看看这段代码-Asp