语句未结束，找了一下午的问题

[caizhuguanguan]

<%
Response.Buffer = True 
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Response.AddHeader "Pragma", "No-Cache"
%>
<!--#include virtual="/language_pack/language_pack.asp"-->
<!--#include virtual="/API/db_connection.asp"-->
<!--#include virtual="/includes/function_post_get_value.inc.asp"-->
<%
 	id = Q_Request("id")'根据收到ID的有无来判断是更新还是添加
	WorkStartYear=Q_Request("WorkStartYear")
	WorkStartMonth=Q_Request("WorkStartMonth")
	WorkEndYear=Q_Request("WorkEndYear")
	WorkEndMonth=Q_Request("WorkEndMonth")
	WorkCompany = Q_Request("WorkCompany")
	WorkCompanyNature= Q_Request("WorkCompanyNature")
	WorkCompanySize= Q_Request("WorkCompanySize")
	Industry_value= Q_Request("Industry_value")
	Category_value= Q_Request("Category_value")
	WorkDepartment= Q_Request("WorkDepartment")
	WorkDescription= Q_Request("WorkDescription")
	WorkJobAbroad= Q_Request("WorkJobAbroad")
	
items = Split(Industry_value, "#")
hangyeid = ""
job = ""
For i = 0 To UBound(items)
  If items(i)<>"" Then
  fields = Split(items(i), ":")
  If UBound(fields)>=1 Then   
  if hangyeid="" then
  hangyeid=fields(0)
  else
  hangyeid = hangyeid&","&fields(0)
  end if   
  if job="" then
  job=fields(1)
  else
  job = job&","&fields(1)
  end if
    
  End If
  End If
Next

''''''''''获取职位ID 和 职位名称''''''''''''''''''''''''
items = Split(Category_value, "#")
zhiweiid = ""
jobb =""
For i = 0 To UBound(items)
  If items(i)<>"" Then
  fields = Split(items(i), ":")
  If UBound(fields)>=1 Then   
  if zhiweiid="" then
  zhiweiid=fields(0)
  else
  zhiweiid = zhiweiid&","&fields(0)
  end if   
  if jobb="" then
  jobb=fields(1)
  else
  jobb = jobb&","&fields(1)
  end if
    
  End If
  End If
Next

	if id="" then 
	'WorkCompany="增加"
	Set Rs = Server.Createobject("ADODB.recordset")
	'执行存储过程 查询个人标识号 和总表简历ID
	sql = "exec pro_InsertPer_Resume_WorkExp '"&session("PersonResumeNum")&"','"&session("a")&"','"&WorkStartYear&"','"&WorkStartMonth&"','"&WorkEndYear&"','"&WorkEndMonth&"','"&WorkCompany&"','"&hangyeid&"','"&job&"','"&WorkCompanySize&"','"&WorkCompanyNature&"','"&WorkDepartment&"','"&zhiweiid&"','"&jobb&"','"&WorkDescription&"','"&WorkJobAbroad&"'"
	Rs.open sql,Conn,1,3
	set rs=nothing

Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/proc/my_register_word_info_ok.asp, line 75, column 191
sql = "exec pro_InsertPer_Resume_WorkExp '"&session("PersonResumeNum")&"','"&session("a")&"','"&WorkStartYear&"','"&WorkStartMonth&"','"&WorkEndYear&"','"&WorkEndMonth&"','"&WorkCompany&"','"&hangyeid&"','"&job&"','"&WorkCompanySize&"','"&WorkCompanyNature&"','"&WorkDepartment&"','"&zhiweiid&"','"&jobb&"','"&WorkDescription&"','"&WorkJobAbroad&"'"

[smitxx]

好像是没有问题

[smitxx]

除非你的变量里面含有双引号

[zfj1020]

最后没有endif

[caizhuguanguan]

有 没贴出来

[lein_design]

可能是你接收到的数据里有数字型的 建议你将它们全部先转化为字符串

WorkStartYear=Cstr(Q_Request("WorkStartYear"))

还有一种情况就是 接收的数据里面有单引号 造成的错误

[猜我是几娃]

sql = "exec pro_InsertPer_Resume_WorkExp '"&session("PersonResumeNum")&"','"&session("a 。。。。


response.write sql 仔细检查这里


Rs.open sql,Conn,1,3
set rs=nothing

[caizhuguanguan]

JS页面 AJAX做的， 到这里停止不了，也看不到

[猜我是几娃]

[Quote=引用 7 楼 caizhuguanguan 的回复:]
JS页面 AJAX做的， 到这里停止不了，也看不到
[/Quote]

单独执行这个页面就好了。。哪会停不了。。想想办法，总能定位到的， 或者你就在js里把这个sql的值取过来然后alert 也可以。

[ChinaXtHuLang]

调试ASP和AJAX的。先调试ASP页面是否正常。再调试AJAX。
如果ASP的本身不正常。那使用AJAX不就是在白忙活
这里有篇AJAX成的调试方法。虽然你现在的错误是ASP的。
希望这篇文章对你有帮助：
http://www.aspprogram.cn/html/article/2010910125200.html

[碧海情天-赵亮]

'执行存储过程 查询个人标识号 和总表简历ID
sql = "exec pro_InsertPer_Resume_WorkExp '" & session("PersonResumeNum") & "','" & session("a") & "','" & WorkStartYear & "','" & WorkStartMonth & "','" & WorkEndYear & "','" & WorkEndMonth & "','" & WorkCompany & "','" & hangyeid & "','" & job & "','" & WorkCompanySize & "','" & WorkCompanyNature & "','" & WorkDepartment & "','" & zhiweiid & "','" & jobb & "','" & WorkDescription & "','" & WorkJobAbroad & "'"
这样不行的话，就把这其中那些数据在这之前分别进行一下是否为空的验证。

[碧海情天-赵亮]

检查时，可以先从WorkCompany这个开始向后检查，因为错误就发生在它这