Question

Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象: '' /check.asp，行 11

ASP出现问题，帮忙看一下
<%
dim username,pwd,repwd,objEmail
username=lcase(trim(request.form("username")))'去除两端空格并不区分大小写
pwd=request.form("pwd")
objEmail=request.form("email")
repwd=request.form("repwd")
if username="" then
Response.write "<script>alert('用户名不能为空');history.back();</script>"
Response.end
end if
if objEmail.Configuration.Fileds.Item="163.com" then
Response.write "邮箱填写正确"
else
Response.write "<script>alert('必须是163的邮箱');history.back();</script>"
Response.end
end if
if repwd=pwd then
Response.write "密码正确"
else
Response.write "<script>alert('密码与确认密码必须一致');history.back();</script>"
Response.end
end if
if Len(trim(Username.text))>3 and Len(trim(Username.text))<12 then
Response.write "用户名填写正确"
else
Response.write "<script>alert('用户名必须大于3个字符小于12个字符');history.back();</script>"
end if
%>

Answer 1

11行是哪行？？看着这些语法没问题啊，，缺少对象很可能是你在和数据库链接的时候对象前面有使用过，关闭了，这边在此使用时却没有重新建立对象所以请在检查下文件

比如set rrs = server.createobject("adodb.recordset") '以前我这边有时会忘记写set或者引号里面的对象拼写出错了，都是提示你说的情况，所以在检查下文件先

追问

Microsoft VBScript 编译器错误 错误 '800a0401'
语句未结束
/check.asp，行 13
IsValidEmail(trim(request.form("email")))=false then
------------------------------------------------^

这是怎么回事呢

追答

IsValidEmail(trim(request.form("email")))=false then 你完整语句是这样？？前面没有if判断吗？？？
if IsValidEmail(trim(request.form("email")))=false then。。。。。是这么写的么！！！，浏览器提示有可能也是前面一点有问题，你可以可以在前面打印下end看看海有没有提示错误，没有在往下一步一步调试~~~

Answer 2

asp帮调试改错