一个由POST方式提交表单后INSERT 数据库出现错误求解啊

表单名没有出错

<%
UserName=ReplaceBadChar(Request.Form("UserName"))
UserNum=ReplaceBadChar(Request.Form("UserNum"))
'response.Write(UserName & UserNum & UserPenName & UserAge & UserSex & UserEdu & Usertype & UserTest & UserTel & UserPic & UserNote & UserAddr)
IF UserName<> "" And UserNum <> "" Then
UserPenName=ReplaceBadChar2(Request.Form("UserPenName"))
UserAge=ReplaceBadChar2(Request.Form("UserAge"))
UserPic=Request.Form("UserPic")
UserAddr=ReplaceBadChar2(Request.Form("UserAddr"))

'response.Write(UserName & UserNum & UserPenName & UserAge & UserSex & UserEdu & Usertype & UserTest & UserTel & UserPic & UserNote & UserAddr & Udep & UClass)

    StrSql="Select * From XcUserInfo Where UNumber='" & UserNum & "'"
    Set Rsu=Conn.Execute(StrSql)
        IF Rsu.Eof Then
        '------------------------------------------
        StrSql="Insert Into XcUserInfo(UserName,UNumber,Uage,UAddr,Pic,) Values('"& UserName & "','" & UserNum & "','"& UserAge & "','" & UserAddr & "','"&  UserPic & "')"
        'Response.Write(StrSql)
        Conn.execute(StrSql)
        '------------------------------------------
        Call UserOpr(" 增加证件：" & UserName)
        Call ShowMessAge("增加证件成功！","AdminInstu.asp")
        Else
        ShowMess("准考证号存在，请选择其他的学生学号！")
        End IF

End IF
'===========================================

 %>

错误信息
Microsoft JET Database Engine '80040e14'

INSERT INTO 语句的语法错误。

\AdminInStu.asp, line 111

我的QQ251020351

在线等

错误信息行在        Conn.execute(StrSql)

StrSql="Insert Into XcUserInfo(UserName,UNumber,Uage,UAddr,Pic,) Values('"& UserName & "','" & UserNum & "','"& UserAge & "','" & UserAddr & "','"&  UserPic & "')"

看清楚你的sql是怎么写的  
应该是
StrSql="Insert Into XcUserInfo(UserName,UNumber,Uage,UAddr,Pic) Values('"& UserName & "','" & UserNum & "','"& UserAge & "','" & UserAddr & "','"&  UserPic & "')"
字段后面多了个逗号  写sql语句的时候要仔细啊

收到的鲜花

• wfywfy 于 2011-10-28 15:41 送鲜花  3朵   附言：我很赞同

噢噢 不好意思 哈哈 谢谢你啊~~

楼上的挺细心的~~~~~~~~~

是啊3楼就是细心- -