Microsoft VBScript 运行时错误错误 '800a000d' , 请教高手

浏览器显示这样的错误:
Microsoft VBScript 运行时错误错误 '800a000d'

类型不匹配: 'et'

/login.asp，行 37
login.asp的代码如下:

<HTML>
<HEAD><TITLE>欢迎华工晓月站</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK rev=stylesheet media=all href="images/style.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2900.2769" name=GENERATOR></HEAD>
<BODY id=body onload=autofocus()>
<script language=javascript>
function ChechValue(thisform)
{
if(thisform.username.value.length==0)
{alert('请正确输入用户名');}
else if(thisform.password.value.length==0)
{alert('请正确输入用户名');}
}
else{
if(document.form1.password.value.length!=0 && dounment.form1.username.value.lenght!=0)
thisform.submint();
}
}
</script>
<DIV id=mainui><IMG alt="欢迎光临华工晓月站" src="images/hustlogo.jpg" border=0> </DIV>
<DIV id=form>
<FORM  action=login.asp method=post name=form1 onsubmit="CheckValue(this);return false">
<INPUT class=button type=submit value=用户名称 name=username>
<INPUT class=input maxLength=12 size=12 name=username>
<INPUT class=button type=submit value=用户口令 name=password>
<INPUT class=input  type=password size=12 name=password>
<INPUT class=button type=submit value=登录进站 name=login>
<INPUT class=button type=reset value=重新输入 name=reset>
</FORM></DIV>
<%
username=trim(request("username"))
password=trim(request("password"))
if username<>""and password<>""then
set conn=opendb()
set rs=server.createobject("adodb.recordset")
sql="select * form userinf where username="&sqlstr(username)&"and fobid=0"
rs.open sql,conn,1,1
if not rs.eof and not rs.bof then
response.cookise("oabusyname")=rs("name")
response.cookise("oabusyusername")=rs("username")
response.cookise("oabusyuserdept")=rs("userdept")
response.cookise("oabusyuserlevel")=rs("userlevel")

response.cookise("cokk_allow_add_user")=rs("allow_add_user")
response.cookise("cokk_allow_control_user")=rs("allow_control_user")
response.cookise("cokk_allow_control_power")=rs("allow_control_power")
response.cookise("cokk_allow_send_note")=rs("allow_send_note")
response.cookise("cokk_allow_control_note")=rs("allow_control_note")
response.cookise("cokk_allow_control_file")=rs("allow_control_file")
response.cookise("cokk_allow_send_file")=rs("allow_send_file")
response.cookise("cokk_allow_send_message")=rs("allow_send_message")
response.cookise("cokk_allow_upload_file")=rs("allow_upload_file")
response.cookise("cokk_allow_del_file")=rs("allow_del_file")



set rs=nothing
response.redirect"office/index.asp"
end if
end if
%>
<DIV id=announce>
<UL>
  <LI>请自觉遵守<A href="http://www.edu.cn/HomePage/jiaoyu_xinxi/zheng_ce_wj/index.shtml" target=_blank>
  教育网关于BBS的管理规定</A>,有问题请发邮件至:
  <A href="mailto:peterapple1983@163.com">peterapple1983@163.com</A>
  <LI>友情链接:<A href="http://www.hust.edu.cn/" target=_blank>华中科技大学</A>
  <A href="http://tianya.cn/" target=_blank>天涯社区</A>
  <A href="http://www.rongshuxia.com//" target=_blank>榕树下文学社区</A>
  <A href="http://bbs.5qzone.net/index.htm">5q社区</A>
  <A href="http://e.pku.edu.cn/"target=_blank>天网搜索</A>
  <A href="http://www.xinxian.cn/" target=_blank>中国红城</A>
  <A href="http://www.skycn.com/" target=_blank>天空软件</A>
  <A href="http://www.hustonline.net/"  target=_blank>华中大在线</A>
  <A href="http://www.zuiwan.net/" target=_blank>醉晚亭</A>
  </LI></UL></DIV>
<fieldset style="width: 700;"><legend align="center">:: 校会最新公告 ::</legend>
<div align="left" style="margin-top:8px; margin-left:15px; margin-right:15px;margin-bottom:10px">
<body><p align="center"><font size="4" color="#FF0000">
<a href="show.html" style="text-decoration: none"><font color="#FF0000">
<marquee behavior="alternate" scrollamount="1" width="700">
校会办公网站正式发布测试，敬请各部门加强关注！
</marquee></font></a></font></p>
<p align="center">
<a href="show.html" style="text-decoration: none">用户可以从管理员处获得登录信息<用户注册服务暂未开通></a>
<font color="#0000FF" size="3"><br>
</font>※公网访问: <font color="#b3764d">
<a style="text-decoration: none; color: black" >
网站暂时不开通公网通道</font>   ※校外教育网访问:
<font color="#b3764d">
<a style="text-decoration: none; color: black" href="show.html">
暂未开通</a>  ※</font>合作联系：027-63120102<br>
本站正在测试中，尚未得到相关主管单位的许可证书</p></div></fieldset>
</BODY></HTML>

数据库连接函数如下:
<%
Function opendb()
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("..\data\office.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
End Function
Function closedb(conn)
set conn=nothing
End Function
%>

请高手指点
(我的系统xp 上海*版本的 IIS为5.1)

6 个解决方案

#1

if username<>"" and password<>"" then 36注意空格
37 直接opendb()就行了..
38行username='"&sqlstr(username)&"' and fobid=0 注意空格

#2

问题还是不变啊,按照你说的改
问题出现这样了
Microsoft VBScript 运行时错误错误 '800a000d'

类型不匹配: 'opendb'

/login.asp，行 37

#3

刚才再次进行了休整
发现还是一个问题
我的登陆界面无法达到主界面
报告错误是:
Microsoft VBScript 运行时错误错误 '800a000d'

类型不匹配: 'opendb'

/login.asp，行 37

而其他网页错误已经消除了

#4

set conn=opendb()

------------------->

opendb()

这个很BT，直接就全局变量招呼了

#5

老兄,假如这样的更改的话,直接出现的是网页代码错误
而且在登陆网页不能登陆,出现找不到页面的错误

#6

如果不按我那样子改

Function opendb()
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("..\data\office.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
'这儿必须加一句，把conn返回去
opendb=conn
End Function

#1

if username<>"" and password<>"" then 36注意空格
37 直接opendb()就行了..
38行username='"&sqlstr(username)&"' and fobid=0 注意空格

#2

问题还是不变啊,按照你说的改
问题出现这样了
Microsoft VBScript 运行时错误错误 '800a000d'

类型不匹配: 'opendb'

/login.asp，行 37

#3

#4

set conn=opendb()

------------------->

opendb()

这个很BT，直接就全局变量招呼了

#5

老兄,假如这样的更改的话,直接出现的是网页代码错误
而且在登陆网页不能登陆,出现找不到页面的错误

秒客网

Microsoft VBScript 运行时错误错误 '800a000d' , 请教高手

6 个解决方案

#1

#2

#3

#4

#5

#6

#1

#2

#3

#4

#5

#6

相关文章

Microsoft VBScript 运行时错误 错误 '800a000d' , 请教高手

6 个解决方案

#1

#2

#3

#4

#5

#6

#1

#2

#3

#4

#5

#6

相关文章

Microsoft VBScript 运行时错误错误 '800a000d' , 请教高手