28,391
社区成员
发帖
与我相关
我的任务
分享帮我看看这个出错在哪里，谢谢！！
<!--#include files="adovbs.inc"-->
<script language="vbscript" runat="server">
function CheckPs()
set adocon=server.createobject("ADODB.Connection")
adocon.Open "student"
stuno=cint(request.form("txtno"))
stups=trim(request.form("txtps"))
sqlstr="select*from achievement where stuno=" & stuno & "and stups= '" & stups & "'"
set rsstu=adocon.Execute(sqlstr)
if rsstu.eof then
checkps=false
else
checkps=true
end if
rsstu.close
adocon.close
end function
</script>
<html>
<head>
<title> 身份确认</title>
</head>
<body>
<% if checkps() then
response.redirect "http://localhost/wrong.asp"
%>
<%else
response.write"对不起，你的用户名或密码有误，请重试！"
%>
<%end if%>
</body>
</html>
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Active Server Pages 错误 'ASP 0128'
缺少 File 或 Virtual 属性
/TMPaygmbij413.asp，行1
包含文件名必须用 File 或 Virtual 属性来指定。
<script language="vbscript" runat="server">
function CheckPs()
set adocon=server.createobject("ADODB.Connection")
adocon.Open "student"
stuno=cint(request.form("txtno"))
stups=trim(request.form("txtps"))
sqlstr="select*from achievement where stuno=" & stuno & "and stups= '" & stups & "'"
set rsstu=adocon.Execute(sqlstr)
if rsstu.eof then
checkps=false
else
checkps=true
end if
rsstu.close
adocon.close
end function
</script>
<html>
<head>
<title> 身份确认</title>
</head>
<body>
<% if checkps() then
response.redirect "http://localhost/wrong.asp"
%>
<%else
response.write"对不起，你的用户名或密码有误，请重试！"
%>
<%end if%>
</body>
</html>
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Active Server Pages 错误 'ASP 0128'
缺少 File 或 Virtual 属性
/TMPaygmbij413.asp，行1
包含文件名必须用 File 或 Virtual 属性来指定。
...全文
请发表友善的回复…
发表回复
dirib 2005-06-23
- 打赏
- 举报
stusp 还是 stups
不是用的 整形 吗 ?
上面执行时,加上了 ' 号 ,也就是字符串
是这里的错吗?
不是用的 整形 吗 ?
上面执行时,加上了 ' 号 ,也就是字符串
是这里的错吗?
mnb_cn123 2005-06-23
- 打赏
- 举报
帮我看看吧，我等着用呢，！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
mnb_cn123 2005-06-23
- 打赏
- 举报
我把<!--#include file="adovbs.inc"-->删了后，运行仍出现错误（在最下面），数据库名：student.mdb,表名：achievement，两个字段名：stuno,stusp,都是整形，数据分别是：123，123.输入的也是数字，不知类型错在哪里？帮忙看看啊，谢谢了！！！
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e07'
[Microsoft][ODBC Microsoft Access Driver] 标准表达式中数据类型不匹配。
/ex_asppassword.asp，行9
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e07'
[Microsoft][ODBC Microsoft Access Driver] 标准表达式中数据类型不匹配。
/ex_asppassword.asp，行9
h42244466 2005-06-23
- 打赏
- 举报
<!--#include file="adovbs.inc"-->
文件的内容是什么啊 没办法帮你判断
文件的内容是什么啊 没办法帮你判断
lightenvoy 2005-06-23
- 打赏
- 举报
找不到包含文件 'adovbs.inc'。
mnb_cn123 2005-06-23
- 打赏
- 举报
帮我看看啊，
mnb_cn123 2005-06-23
- 打赏
- 举报
我前面还有个登录的页面如下 ：
<html>
<head>
<title>身份确认</title>
</head>
<body>
<form method="post" name="frmps" action="ex_asppassword.asp">
<p>请输入：</p>
<p>学号：
<input type=text name=txtno ></p>
<P>密码：
<input type=password name=txtps></p>
<input type=button value=确定 name=cmdok>
<input type=reset value=取消 name=cmdcancle>
</form>
<script language="vbs">
<!--
sub cmdok_onclick
if not isnumeric(frmps.txtno.value) then
msgbox "学号应输入数字！"
frmps.txtno.focus
elseif len(frmps.txtps.value)=0 then
msgbox "密码未输入"
frmps.txtps.focus
else
frmps.submit
end if
end sub
-->
</script>
</form>
</body>
</html>
这个没出错，各们帮我看看啊，上面那个错误刀底是什么回事？？？
<html>
<head>
<title>身份确认</title>
</head>
<body>
<form method="post" name="frmps" action="ex_asppassword.asp">
<p>请输入：</p>
<p>学号：
<input type=text name=txtno ></p>
<P>密码：
<input type=password name=txtps></p>
<input type=button value=确定 name=cmdok>
<input type=reset value=取消 name=cmdcancle>
</form>
<script language="vbs">
<!--
sub cmdok_onclick
if not isnumeric(frmps.txtno.value) then
msgbox "学号应输入数字！"
frmps.txtno.focus
elseif len(frmps.txtps.value)=0 then
msgbox "密码未输入"
frmps.txtps.focus
else
frmps.submit
end if
end sub
-->
</script>
</form>
</body>
</html>
这个没出错，各们帮我看看啊，上面那个错误刀底是什么回事？？？
mnb_cn123 2005-06-23
- 打赏
- 举报
<!--#include file="adovbs.inc"-->
sqlstr="select * from achievement where stuno=" & stuno & "and stups= '" & stups & "'"
以上两点都改了，可还是不行，字段应该没错，类型好象也没错，错误如下：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Active Server Pages 错误 'ASP 0126'
找不到包含文件
/TMPfj9yij85s.asp，行1
找不到包含文件 'adovbs.inc'。
sqlstr="select * from achievement where stuno=" & stuno & "and stups= '" & stups & "'"
以上两点都改了，可还是不行，字段应该没错，类型好象也没错，错误如下：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Active Server Pages 错误 'ASP 0126'
找不到包含文件
/TMPfj9yij85s.asp，行1
找不到包含文件 'adovbs.inc'。
luoyixiaoniba 2005-06-23
- 打赏
- 举报
这是你的SQL语句有问题
sqlstr="select * from achievement where stuno=" & stuno & "and stups= '" & stups & "'"
检查一下字段名称是否错误
另外再检查类型是否错误
sqlstr="select * from achievement where stuno=" & stuno & "and stups= '" & stups & "'"
检查一下字段名称是否错误
另外再检查类型是否错误
gz20 2005-06-23
- 打赏
- 举报
不是删掉，是你的写法不对。改成二楼的写法。
你写的files 多了一个s
你写的files 多了一个s
mnb_cn123 2005-06-23
- 打赏
- 举报
我把这句删掉后，还是出错，
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e07'
[Microsoft][ODBC Microsoft Access Driver] 标准表达式中数据类型不匹配。
/TMPc8evqij5on.asp，行9
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e07'
[Microsoft][ODBC Microsoft Access Driver] 标准表达式中数据类型不匹配。
/TMPc8evqij5on.asp，行9
raas 2005-06-23
- 打赏
- 举报
<!--#include file="adovbs.inc"-->
