[求助]asp,缺少标识符 - ASP技术论坛

问题点数：0 回复次数：1

[求助]asp,缺少标识符

请大家帮忙了，
为什么我下面的程序在浏览时出现缺少标识符的错误？
谢谢了

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>

</head>

<body>
<%
dim name,mima,sex,zz,xl,sg,tz,hm,jsj,wy,yx,nj,jg,tel1,tel2,email,addr,friend,friendaddr,friendtel1,hk,wenti,da,
shet1,shet2,shet3,zw1,zw2,zw3,zuz1,zuz2,zuz3,shijian1,shijian2,shijian3,shijian4,shijian5,shijian6,shijian7,yany1,yany2,yany3,yany4,yany5,yany6,
danwei1,danwei2,danwei3,zhiwu1,zhiwu2,zhiwu3,yuexin1,yuexin2,yuexin3,fuli1,fuli2,fuli3,ziwo,jineng,yaoqiu,zhuchu
dim founderr,errmsg
founderr=false

name=request.form("name")
if name=""then
founderr=true
errmsg="姓名不能为空"
end if
mima=request.form("mima")
if mima=""then
founderr=true
errmsg="密码不能为空"
end if
sex=request.form("sex")
if sex=""then
founderr=true
errmsg="请选择性别"
end if

zz=request.form("zz")
if zz=""then
founderr=true
errmsg="政治面貌不能为空"
end if
xl=request.form("xl")
if xl=""then
founderr=true
errmsg="学历不能为空"
end if
sg=request.form("sg")
if sg=""then
founderr=true
errmsg="身高不能为空"
end if
tz=request.form("tz")
if tz=""then
founderr=true
errmsg="体重不能为空"
end if
hm=request.form("hm")
if hm=""then
founderr=true
errmsg="身份证号不能为空"
end if
jsj=request.form("jsj")
if jsj=""then
founderr=true
errmsg="请写上您的计算机水平"
end if
wy=request.form("wy")
if wy=""then
founderr=true
errmsg="外语水平不能为空"
end if
yx=request.form("yx")
if yx=""then
founderr=true
errmsg="请写上你所在的院校"
end if
nj=request.form("nj")
if nj=""then
founderr=true
errmsg="年级不能为空"
end if
jg=request.form("jg")
if jg=""then
founderr=true
errmsg="籍贯不能为空"
end if
tel1=request.form("tel1")
if tel1=""then
founderr=true
errmsg="电话不能为空"
end if
tel2=request.form("tel2")
if tel2=""then
founderr=true
errmsg="家庭电话不能为空"
end if
email=request.form("email")
if email=""then
founderr=true
errmsg="电子邮件不能为空"
end if
addr=request.form("addr")
if addr=""then
founderr=true
errmsg="地址不能为空"
end if
friend=request.form("friend")
if friend=""then
founderr=true
errmsg="请填写一个紧急联系人的名字"
end if
friendtel=request.form("friendtel1")
if friendtel1=""then
founderr=true
errmsg="紧急联系人电话不能为空"
end if
wenti=request.form("wenti")
if wenti=""then
founderr=true
errmsg="密码问题不能为空"
end if
da=request.form("da")
if da=""then
founderr=true
errmsg="问题答案不能为空"
end if
hk=request.form("hk")
if hk=""then
founderr=true
errmsg="户口所在地不能为空"
end if
if founderr then
response.write errmsg
%>
<%else
dim strsql,rs
strSql="select * from xinxi"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSql,conn,3,3
rs.addnew

rs("name")=name
rs("tel1")=tel1
rs("addr")=addr
rs("tel2")=tel2
rs("email")=email
rs("mima")=mima
rs("sex")=sex

rs("zz")=zz
rs("xl")=xl
rs("sg")=sg
rs("tz")=tz
rs("hm")=hm
rs("friend")=friend
rs("friendaddr")=friendaddr
rs("friendtel")=friendtel
rs("wenti")=wenti
rs("da")=da
rs("jsj")=jsj
rs("wy")=wy
rs("nj")=nj
rs("jg")=jg
rs("hk")=hk
rs("shet1")=shet1
rs("yx")=yx
rs("shet2")=shet2
rs("shet3")=shet3
rs("zw1")=zw1
rs("zw2")=zw2
rs("zw3")=zw3
rs("zuz1")=zuz1
rs("zuz2")=zuz2
rs("zuz3")=zuz3
rs("shijian1")=shijian1
rs("shijian2")=shijian2
rs("shijian3")=shijian3
rs("shijian4")=shijian4
rs("shijian5")=shijian5
rs("shijian6")=shijian6
rs("shijian7")=shijian7
rs("yany1")=yany1
rs("yany2")=yany2
rs("yany3")=yany3
rs("yany4")=yany4
rs("yany5")=yany5
rs("yany6")=yany6
rs("danwei1")=danwei1
rs("danwei2")=danwei2
rs("danwei3")=danwei3
rs("zhiwu1")=zhiwu1
rs("zhiwu2")=zhiwu2
rs("zhiwu3")=zhiwu3
rs("yuexin1")=yuexin1
rs("yuexin2")=yuexin2
rs("yuexin3")=yuexin3
rs("fuli1")=fuli1
rs("fuli2")=fuli2
rs("fuli3")=fuli3
rs("ziwo")=ziwo
rs("jineng")=jineng
rs("yaoqiu")=yaoqiu
rs("zhuchu")=zhuchu

rs.update
rs.close
set conn=nothing
set rs=nothing
%>
<script language="javascript">
alert("")
document.location="index.asp"
</script>
<%end if%>
</body>
</html>

搜索更多相关主题的帖子: asp　dtd　loose　head　