为什么会出现Microsoft VBScript 编译器错误 (0x800A0400)缺少语句的错误？ - ASP技术论坛

问题点数：0 回复次数：8

为什么会出现Microsoft VBScript 编译器错误 (0x800A0400)缺少语句的错误？

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<title>注册</title>
</head>

<body>
<%
dim strUserName
dim strPassword
dim strConfPassword
dim strRealName
dim strGender
dim strTel
dim strEmail
dim strHomePage
dim blnGender
strUserName=Request.Form("txtUserName")
strPassword=Request.Form("txtPassword")
strConfPassword=Request.Form("txtConfPassword")
strRealName=Request.Form("txtRealName")
strGender=Request.Form("sltGender")
strTel=Request.Form("txtTel")
strEmail=Request.Form("txtEmail")
strHomePage=Request.Form("txtHomePage")

if strUserName="" or strPassword="" or strConfPassword="" or strRealName=""_
or strGender="non" or strTel="" or strEmail="" then
response.redirect "Signup.asp"
end if
if strPassword<>strConfPassword then
response.redirect "Signup.asp"
end if
tacklePrime(strUserName)
tacklePrime(strPassword)
tacklePrime(strRealName)
tacklePrime(strGender)
tacklePrime(strTel)
tacklePrime(strEmail)
if strGender="male" then
blnGender=1
else
blnGender=0
end if
sql="insert into UserInfo values('"&strUserName&"','"&strPassword&"','"_
&strRealName&"',"&blnGender&",'"&strTel_
&"','"&strEmail&"','"&strHomePage&"')"///这里提示Microsoft VBScript 编译器错误 (0x800A0400)缺少语句的错误，？？？

call openDB()
conn.Execute(sql)
call closeDB()
response.write"注册成功，欢迎您"
%>
</body>
</html>

第 2 楼

得分:0

数据库连接文件
<%
dim sql,rs,conn
'on error resume next
sub openDB()
set conn=server.createobject("ADODB.Connection")
conn.open "Driver={SQL Server};"_
&"Server=TY;" _
&"Database=company;" _
&"Uid=sa;" _
&"Pwd=101"
set rs=server.createobject("ADODB.Recordset")
end sub

sub closeDB()
If IsObject(conn) Then
if not(conn is nothing) then
set rs=nothing
conn.close
set conn=nothing
end if
End If
end sub
%>

第 3 楼

得分:0

sql="insert into UserInfo (字段1,字段2...) values('"&strUserName&"','"&strPassword&"','"_ &strRealName&"',"&blnGender&",'"&strTel_
&"','"&strEmail&"','"&strHomePage&"')"

字段和values对应上

[此贴子已经被作者于2007-5-26 10:48:57编辑过]

营口小猪 http://bbs.

第 4 楼

得分:0

版主，我试了一下，还是有这个问题，这个_不是语句的续行符吗？能去掉吗？

第 5 楼

得分:0

字段个数对吗?
insert into 表名 () vaules (),把所有要插入的字段都写出来在试试,应该没有问题的,呵呵

[此贴子已经被作者于2007-5-26 10:47:21编辑过]

营口小猪 http://bbs.

第 6 楼

得分:0

多谢，多谢，辛苦了版主
还是出现了同样的情况，该网页也接收到POST的数据，再说我是仿照书上例子写的代码，应该没有问题的，？？？？？？

[此贴子已经被作者于2007-5-26 14:57:34编辑过]

第 7 楼

得分:0

sql="insert into UserInfo (字段1,字段2...) values('"&strUserName&"','"&strPassword&"','"&strRealName&"','"&blnGender&"','"&strTel&"','"&strEmail&"','"&strHomePage&"')"
用这个试试

[此贴子已经被作者于2007-5-26 15:37:54编辑过]

仍然自由自我,永远高唱我歌,走遍千里...

第 8 楼

得分:0

sql="insert into UserInfo values('"&strUserName&"','"&strPassword&"','"_
&strRealName&"',"&blnGender&",'"&strTel_
&"','"&strEmail&"','"&strHomePage&"')"///
用另一种方法添加数据试试
rs.Open "select * from UserInfo",conn,1,3'打开要增加的表(注意1，3的参数不要改变)。
rs.AddNew'增加一行新数据
rs("字段名1")=字段值
rs("字段名2")=字段值
'……依此类推
rs.update'重要添加完数据最后一定要写这句代码来更新数据库，否则前面的就全白写了。

第 9 楼

得分:0

其实，对于ASP和PHP的这种数据库操作的SQL语句，楼主先不要急于实行插入和更新等操作。
可以先看看....
sql="insert into UserInfo values('"&strUserName&"','"&strPassword&"','"_
&strRealName&"',"&blnGender&",'"&strTel_
&"','"&strEmail&"','"&strHomePage&"')"

把接收到的值

strUserName
strPassword
strRealName
. . . . . .
. . . . . .

试着先输出，然后看一下输出的值、对照数据库，是否对应了。这也是一种相应的调试方法。

论坛是我家灌水靠大家