帮我看看添加代码有什么错误？

[复制链接]

乄獨萊◇獨徍

电梯直达

1^#

发表于 2010-1-19 03:15:54 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

<% if request.form("submit")="录入"　then
kaohao=request.form("kaohao")
xingming=request.form("xingming")
Politics=request.form("Politics")
math=request.form("math")
language=request.form("language")
Specialized=request.form("Specialized")
fenshu=int(Politics)+int(math)+int(language)+int(Specialized)　
exec="select * from kfcx where kaohao='"&kaohao&"'"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
if not rs.eof then
response.write "<script language='javascript'>" & chr(13)
response.write "alert('添加失败已有考生编号');" & Chr(13)
response.write "window.document.location.href='javascript:history.back(-1);';"&Chr(13)
response.write "</script>" & Chr(13)
Response.end
else
rs.addnew
rs("kaohao")=kaohao
rs("xingming")=xingming
rs("fenshu")=fenshu
rs("politics")=politics
rs("math")=math
rs("language")=language
rs("Specialized")=Specialized
rs.update
rs.close
set rs=nothing
response.write "<script language='javascript'>" & chr(13)
response.write "alert('添加成功');" & Chr(13)
response.write "window.document.location.href='javascript:history.back(-1);';"&Chr(13) '这一行要不要自己决定
response.write "</script>" & Chr(13)
Response.end
%>
<%end if%>
<%end if%>
<%conn.close
set conn=nothing
%>
运行提示错误
Microsoft VBScript 编译器错误 (0x800A0408)
无效字符
/showkf.asp, line 2, column 30
if request.form("submit")="录入"　then

收藏0