ASP问题缺少标识符
大家帮忙看看下面的代码，提示缺少标识符。MicrosoftVBScript编译器错误'800a03f2'缺少标识符\wwwroot\check_ok.asp,line18...
大家帮忙看看下面的代码，提示缺少标识符。
Microsoft VBScript 编译器错误 '800a03f2'
缺少标识符
\wwwroot\check_ok.asp, line 18
代码如下：<%dim id,num1,num2,num3
id=request("id")
num1=request.form("num1")
num2=request.form("num2")
num3=request.form("num3")
%>
<body>
<%sql="select * from jobs where user_id="&id
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,3
%>
<%dim posname,addtime,jobFunction1,jobFunction2,jobFunction3,jobLocation1_c,jobLocation2_c,
jobLocation3_c,calling,ReqAge1,ReqAge2,speciality,ReqDegree,language,resident,Reqcomputer,
jobtype,Salary,ReqWorkyear,ReqLocation,addtime,EndValid,shisu,notes,ExamNotice ------提示是这行上边有错误
posname=rs("PosName")
addtime=rs("addtime")
jobFunction1=rs("jobFunction1")
jobFunction2=rs("jobFunction2")
jobFunction3=rs("jobFunction3")
jobLocation1_c=rs("jobLocation1_c")
jobLocation2_c=rs("jobLocation2_c")
jobLocation3_c=rs("jobLocation3_c")
calling=rs("calling")
ReqAge1=rs("ReqAge1")
ReqAge2=rs("ReqAge2")
speciality=rs("speciality")
ReqDegree=rs("ReqDegree")
language=rs("language")
resident=rs("resident")
Reqcomputer=rs("Reqcomputer")
jobtype=rs("jobtype")
Salary=rs("Salary")
ReqWorkyear=rs("ReqWorkyear")
ReqLocation=rs("ReqLocation")
addtime=rs("addtime")
EndValid=rs("EndValid")
shisu=rs("shisu")
notes=rs("notes")
ExamNotice=rs("ExamNotice")
rs.close
%>
<%
set rs = server.createobject("adodb.recordset")
rs.open"select * from jobs2 where id is null",conn,1,3
rs.addnew
rs("posname")=posname
rs("addtime")=addtime
rs("jobFunction1")=jobFunction1
rs("jobFunction2")=jobFunction2
rs("jobFunction3")=jobFunction3
rs("jobLocation1_c")=jobLocation1_c
rs("jobLocation1_c")=jobLocation2_c
rs("jobLocation1_c")=jobLocation3_c
rs("calling")=calling
rs("ReqAge1")=ReqAge1
rs("ReqAge2")=ReqAge2
rs("speciality")=speciality
rs("ReqDegree")=ReqDegree
rs("language")=language
rs("resident")=resident
rs("Reqcomputer")=Reqcomputer
rs("jobtype")=jobtype
rs("Salary")=Salary
rs("ReqWorkyear")=ReqWorkyear
rs("ReqLocation")=ReqLocation
rs("addtime")=addrime
rs("EndValid")=EndValid
rs("shisu")=shisu
rs("notes")=notes
rs("ExamNotice")=ExamNotice
rs("ContactTel_Z")=num1
rs("ContactTel")=num2
rs("ContactTel_E")=num3
rs.update
rs.close
conn.close
set conn=nothing
response.redirect("check.asp")
%> 展开
Microsoft VBScript 编译器错误 '800a03f2'
缺少标识符
\wwwroot\check_ok.asp, line 18
代码如下：<%dim id,num1,num2,num3
id=request("id")
num1=request.form("num1")
num2=request.form("num2")
num3=request.form("num3")
%>
<body>
<%sql="select * from jobs where user_id="&id
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,3
%>
<%dim posname,addtime,jobFunction1,jobFunction2,jobFunction3,jobLocation1_c,jobLocation2_c,
jobLocation3_c,calling,ReqAge1,ReqAge2,speciality,ReqDegree,language,resident,Reqcomputer,
jobtype,Salary,ReqWorkyear,ReqLocation,addtime,EndValid,shisu,notes,ExamNotice ------提示是这行上边有错误
posname=rs("PosName")
addtime=rs("addtime")
jobFunction1=rs("jobFunction1")
jobFunction2=rs("jobFunction2")
jobFunction3=rs("jobFunction3")
jobLocation1_c=rs("jobLocation1_c")
jobLocation2_c=rs("jobLocation2_c")
jobLocation3_c=rs("jobLocation3_c")
calling=rs("calling")
ReqAge1=rs("ReqAge1")
ReqAge2=rs("ReqAge2")
speciality=rs("speciality")
ReqDegree=rs("ReqDegree")
language=rs("language")
resident=rs("resident")
Reqcomputer=rs("Reqcomputer")
jobtype=rs("jobtype")
Salary=rs("Salary")
ReqWorkyear=rs("ReqWorkyear")
ReqLocation=rs("ReqLocation")
addtime=rs("addtime")
EndValid=rs("EndValid")
shisu=rs("shisu")
notes=rs("notes")
ExamNotice=rs("ExamNotice")
rs.close
%>
<%
set rs = server.createobject("adodb.recordset")
rs.open"select * from jobs2 where id is null",conn,1,3
rs.addnew
rs("posname")=posname
rs("addtime")=addtime
rs("jobFunction1")=jobFunction1
rs("jobFunction2")=jobFunction2
rs("jobFunction3")=jobFunction3
rs("jobLocation1_c")=jobLocation1_c
rs("jobLocation1_c")=jobLocation2_c
rs("jobLocation1_c")=jobLocation3_c
rs("calling")=calling
rs("ReqAge1")=ReqAge1
rs("ReqAge2")=ReqAge2
rs("speciality")=speciality
rs("ReqDegree")=ReqDegree
rs("language")=language
rs("resident")=resident
rs("Reqcomputer")=Reqcomputer
rs("jobtype")=jobtype
rs("Salary")=Salary
rs("ReqWorkyear")=ReqWorkyear
rs("ReqLocation")=ReqLocation
rs("addtime")=addrime
rs("EndValid")=EndValid
rs("shisu")=shisu
rs("notes")=notes
rs("ExamNotice")=ExamNotice
rs("ContactTel_Z")=num1
rs("ContactTel")=num2
rs("ContactTel_E")=num3
rs.update
rs.close
conn.close
set conn=nothing
response.redirect("check.asp")
%> 展开
4个回答
展开全部
两个错误,换行定义未加接续符"_",应改为:
dim posname,addtime,jobFunction1,jobFunction2,jobFunction3,jobLocation1_c,jobLocation2_c, _
jobLocation3_c,calling,ReqAge1,ReqAge2,speciality,ReqDegree,language,resident,Reqcomputer, _
jobtype,Salary,ReqWorkyear,ReqLocation,EndValid,shisu,notes,ExamNotice
另外,第三行与第一行addtime变量重复定义
dim posname,addtime,jobFunction1,jobFunction2,jobFunction3,jobLocation1_c,jobLocation2_c, _
jobLocation3_c,calling,ReqAge1,ReqAge2,speciality,ReqDegree,language,resident,Reqcomputer, _
jobtype,Salary,ReqWorkyear,ReqLocation,EndValid,shisu,notes,ExamNotice
另外,第三行与第一行addtime变量重复定义
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
dim posname,addtime,jobFunction1,jobFunction2,jobFunction3,jobLocation1_c,jobLocation2_c,
jobLocation3_c,calling,ReqAge1,ReqAge2,speciality,ReqDegree,language,resident,Reqcomputer,
jobtype,Salary,ReqWorkyear,ReqLocation,addtime,EndValid,shisu,notes,ExamNotice ------提示是这行上边有错误
定义的变量与系统保留字段一致导致冲突.建议在定义变量时采取前面英文加后面数字的形式。
language应该是保留字段。
jobLocation3_c,calling,ReqAge1,ReqAge2,speciality,ReqDegree,language,resident,Reqcomputer,
jobtype,Salary,ReqWorkyear,ReqLocation,addtime,EndValid,shisu,notes,ExamNotice ------提示是这行上边有错误
定义的变量与系统保留字段一致导致冲突.建议在定义变量时采取前面英文加后面数字的形式。
language应该是保留字段。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
不定义直接使用试试
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
似乎多了一个addtime，删掉一个试试吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
