| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 932 人关注过本帖
标题:这样的错误何时才能完全避免?
取消只看楼主 加入收藏
哈马拟
Rank: 1
等 级:新手上路
帖 子:270
专家分:0
注 册:2004-7-15
收藏
 问题点数:0 回复次数:5 
这样的错误何时才能完全避免?

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp,行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e10'

[Microsoft][ODBC Microsoft Access Driver] 参数不足,期待是 1。

/check.asp,行18 login.asp 文件内容如下: <% set conn_str=server.createObject("ADODB.Connection") dbpath_str=server.MapPath("ks_auto.mdb") conn_str.open "driver={microsoft Access driver (*.mdb)};dbq="&dbpath_str sql_str2="select sj_name from sj_large" set rs2=conn_str.execute(sql_str2) %> <html> <head> <title>考试系统</title> </head> <body> <center> <h3>考试系统登录</h3> <form action="check.asp" method="post"> <P>科目:<select name="subject"> <% do while not rs2.eof Response.Write"<option>"&rs2("sj_name")&"</option>" rs2.movenext loop %> </select> </P> <p> 你是:<select name="type"> <option>学生</option> <option>教师</option> </select> </p>

<p> 姓名:<input name="name" type="textbox"> 密码:<input name="pass" type="password"> </p>

<p> <input name="sub1" type="submit" value="登录"> </p> </form> </center>

</body> <% rs2.close set rs2=nothing

conn_str.close set conn_str=nothing %> </html> login.asp文件在IE中打开正确 check.asp文件内容如下: <!-- METADATA TYPE="typelib" FILE="C:\Program Files\Common Files\System\ado\msado15.dll" --> <% subject1=Request.Form("subject") type1=Request.Form("type") name1=Request.Form("name") password1=Request.Form("pass") %> <% set conn_str=server.createObject("ADODB.Connection") dbpath_str=server.MapPath("ks_auto.mdb") conn_str.open "driver={microsoft Access driver (*.mdb)};dbq="&dbpath_str if Request.Form("type")="教师" then sqlstr2="select * from sj_large where sj_name='"&subject1&"' and sj_teacher='"&name1&"' and teac_pwd='"&password1&"' and isready='false'" set rs2=conn_str.Execute(sqlstr2)    //出错提示指的是此行 if not rs2.eof then session("sj_name")=subject1 session("name")=name1 Response.Redirect "sj_frame.asp" else Response.Write "<a href='' onclick='javascript:window.close()'>试卷已提交或者登录帐号错误,关闭本窗口</a>" end if end if if Request.Form("type")="学生" then sqlstr1="select * from stud_scor where name='"&name1&"' and pwd='"&password1&"'" set rs1=conn_str.Execute(sqlstr1) if rs1.eof then Response.Write"<a href='' onclick='javascript:history.go(-1)'>登录帐号出错,点击并返回</a>" else session("subject")=subject1 session("name")=name1 Response.Redirect "ks.asp" end if end if rs1.close set rs1=nothing rs2.close set rs2=nothing conn_str.Close set conn_str=nothing %>

代码虽有些长,但都很简单,我认为全部写出来才好分析 我实在是找不出哪里有错了,请各位大虾指点

[此贴子已经被作者于2005-4-23 9:19:28编辑过]

搜索更多相关主题的帖子: face Microsoft common 编译器 
2005-04-20 15:54
哈马拟
Rank: 1
等 级:新手上路
帖 子:270
专家分:0
注 册:2004-7-15
收藏
得分:0 
sj_name,sj_teacher,teac_pwd,isready字段类型都是“文本”

2005-04-20 19:53
哈马拟
Rank: 1
等 级:新手上路
帖 子:270
专家分:0
注 册:2004-7-15
收藏
得分:0 
还是没有搞定

2005-04-23 09:24
哈马拟
Rank: 1
等 级:新手上路
帖 子:270
专家分:0
注 册:2004-7-15
收藏
得分:0 
以下是引用griefforyou在2005-4-23 11:47:29的发言: 服了
老大帮帮我吧! 要不我这毕业论文就写不下去了啊

2005-04-23 12:34
哈马拟
Rank: 1
等 级:新手上路
帖 子:270
专家分:0
注 册:2004-7-15
收藏
得分:0 
以下是引用belin2000在2005-4-23 15:14:31的发言: sqlstr2="select * from sj_large where sj_name='"&subject1&"' and sj_teacher='"&name1&"' and teac_pwd='"&password1&"' and isready='false'" Response.write(sqlstr2) 看看是什么? 然后在access或sql那里运行一下(根据你的数据库) 如果可以的话,就不是这里的问题 你根据Response.write(sqlstr2)看看问什么?

response.write(sqlstr2)的结果为最后一句(红色),应该没问题吧 maths 教师 teac1 pass1 select * from sj_large where sj_name='maths' and sj_teacher='teac1' and teac_pwd='pass1' and isready='false' 测试文件内容如下: <% subject1=Request.Form("subject") type1=Request.Form("type") name1=Request.Form("name") password1=Request.Form("pass") Response.Write subject1 Response.Write "<br>" Response.Write type1 Response.Write "<br>" Response.Write name1 Response.Write "<br>" Response.Write password1 Response.Write "<br>" %>

<% set conn_str=server.createObject("ADODB.Connection") dbpath_str=server.MapPath("ks_auto.mdb") conn_str.open "driver={microsoft Access driver (*.mdb)};dbq="&dbpath_str if Request.Form("type")="教师" then sqlstr2="select * from sj_large where sj_name='" & subject1 & "' and sj_teacher='" & name1 & "' and teac_pwd='" &

password1 & "' and isready='false'" Response.Write(sqlstr2) end if %>

<% conn_str.close set conn_str=nothing %>


2005-04-25 09:07
哈马拟
Rank: 1
等 级:新手上路
帖 子:270
专家分:0
注 册:2004-7-15
收藏
得分:0 
谢谢大家了!

字段名称写错了

[此贴子已经被作者于2005-4-28 11:24:07编辑过]



2005-04-28 11:22
快速回复:这样的错误何时才能完全避免?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017838 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved