Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for SQL Server 错误 '80040e14'

字符串 '123',0)' 之前有未闭合的引号。

/intranet/GovernmentRelations/admin/admin_pgl/class.asp，行162

输入符号 ' 就出现这样的错误。。
下面是这部分代码：
'添加类别
sub addclass()
dim sql,infotype,level,parentid,sqlbig,Btname,rs,conn
infotype=request("type")
if trim(request.form("classname"))<>"" and request.form("subbtn")="提交" then '提交
disNum=Trim(Request.Form("disNum"))
if disNum="" or not IsNumeric(disNum) then disNum=0
if trim(request.Form("parentclass"))<>"" then '添加的是二级类
if infotype="en" then '判断中英文
Tname="info_type_en"
else
Tname="info_type"
infotype="ch"
end if
sql="insert into "&Tname&" (type_name,blong_group,dis_num) values('"&trim(request.form("classname"))&"',"&trim(request.Form("parentclass"))&","&disNum&")"
else '添的一级类
if infotype="en" then '判断中英文
Tname="info_type_big_en"
else
Tname="info_type_big"
infotype="cn"
end if
sql="insert into "&Tname&" (type_name,dis_num) values('"&trim(request.form("classname"))&"',"&disNum&")"
end if
set conn=Server.CreateObject("ADODB.connection")
conn.open conn_str
conn.execute sql
if conn.errors.count<>0 then
ErrorMsg("有错误请联系管理员")
else
url="class.asp"
call WinMsg("成功添加数据",url)
end if
conn.close
else '没提交
%>

2位说的都试了，但问题还是不能解决。

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for SQL Server 错误 '80040e14'

字符串 '123',0)' 之前有未闭合的引号。 问题出在这。。

/intranet/GovernmentRelations/admin/admin_pgl/class.asp，行162



输入符号 ' 就出现这样的错误。。我在这里输入的是 123'若不带 ' 此符号就不会出错。

修改的时候也出现这样的错误。

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for SQL Server 错误 '80040e14'

第 1 行: '6' 附近有语法错误。

/intranet/GovernmentRelations/admin/admin_pgl/class.asp，行273 （红色部分）

<%
end if
end sub
'******************************************************
'编辑类别
sub editclass()
dim sql,infotype,level,parentid,sqlbig,Btname,rs,conn,sqlstr
infotype=request("type")
if trim(request.form("classname"))<>"" and request.form("subbtn")="提交" then '提交
if trim(request.Form("parentclass"))<>"" then '添加的是二级类
if infotype="en" then '判断中英文
Tname="info_type_en"
else
Tname="info_type"
infotype="ch"
end if
sql="update "&Tname&" set type_name='"&trim(request.form("classname"))&"',blong_group='"&trim(request.Form("parentclass"))&"',dis_num="&Trim(Request.Form("disnum"))&" where id="&request.Form("id")
else '添的一级类
if infotype="en" then '判断中英文
Tname="info_type_big_en"
else
Tname="info_type_big"
infotype="cn"
end if
sql="update "&Tname&" set type_name='"&trim(request.form("classname"))&"',dis_num="&Trim(Request.Form("disnum"))&" where id="&request.form("id")
end if
set conn=Server.CreateObject("ADODB.connection")
conn.open conn_str
'response.write sql
'response.end
conn.execute sql
if conn.errors.count<>0 then
ErrorMsg("有错误请联系管理员")
else
url="class.asp"
call WinMsg("成功修改数据",url)
end if
conn.close
else '没提交
if Request.QueryString("level")<>"2" then
if infotype="en" then
Btname="info_type_big_en"
else
Btname="info_type_big"
end if
sqlstr="select id,type_name,dis_num from "&Btname&" where id="&request.QueryString("id")
else
if infotype="en" then
Btname="info_type_en"
else
Btname="info_type"
end if
sqlstr="select id,blong_group,type_name,dis_num from "&Btname&" where id="&request.QueryString("id")
end if
set rs=server.CreateObject("AdODB.recordset")
'response.write sqlstr
rs.open sqlstr,conn_str,1,1
if rs.eof then ErrorMsg("传值错误!"):response.end
%>

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for SQL Server 错误 '80040e14'

字符串 '123',0)' 之前有未闭合的引号。

/intranet/GovernmentRelations/admin/admin_pgl/class.asp，行164


数据插不进去。

这段insert into代码在查询分析器中执行也有问题。
insert into info_type_big_en(typename,disnum) values('China'',1)

错误提示：

服务器: 消息 105，级别 15，状态 1，行 1
字符串 'China',1)
' 之前有未闭合的引号。
服务器: 消息 170，级别 15，状态 1，行 1
第 1 行: 'China',1)
' 附近有语法错误。

我觉得主要问题在 ' 这个符号。但不知道怎么处理。楼上大侠知道如何处理吗？

这样做没有错误，提示“提交成功”，但数据库里并没有插入新的数据进去。