本人是一个asp菜鸟,今天在做一个表的数据检测,遇到了问题,望高人指点一下,非常感谢!
代码如下:
表单代码:
<p align="center"><strong>留言</strong></p>
<table width="400" height="150" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2"><form name="form1" method="post" action="aa1.asp">
<table width="400" height="284" border="1" cellpadding="0" cellspacing="5">
<tr>
<td width="138">姓名:</td>
<td width="262"><input name="name" type="text" id="name" size="20" maxlength="10"></td>
</tr>
<tr>
<td>性别:</td>
<td><input type="radio" name="sex" value="radiobutton">
男
<input type="radio" name="sex" value="radiobutton">
女</td>
</tr>
<tr>
<td>年纪:</td>
<td><input name="lj" type="text" id="lj" size="20" maxlength="10"></td>
</tr>
<tr>
<td>邮箱:</td>
<td><input name="email" type="text" id="email" size="20" maxlength="10"></td>
</tr>
<tr>
<td>电话号码:</td>
<td><input name="dh" type="text" id="dh" size="20" maxlength="10"></td>
</tr>
<tr>
<td>留言:</td>
<td><textarea name="ly" cols="30" rows="10" id="ly"></textarea></td>
</tr>
<tr>
<td height="60"><input type="submit" name="Submit" value="提交"></td>
<td><input type="reset" name="Submit2" value="重置"></td>
</tr>
</table>
</form></td>
</tr>
</table>
检测代码:
<p align="center"><strong>最新留言信息</strong></p>
<%
dim errmsg
errmsg=""
if instr(request("email"),"@")=0 then
errmsg="eamil格式不对!"
if request("email")="" then
errmsg="没有填写eamil"
if request("sex")="" then
errmsg="没有选择性别"
if request("name")="" then
errmsg="没有填名字"
if request("lj")="" then
errmsg="没填年纪"
if request("dh")="" then
errmsg="没填电话"
if request("ly")="" then
errmsg="没填留言"
end if
if errmsg="" then
response.write("您的大名是:<font color=red>"&request("name")&"</font>")
if request("sex")="男" then
response.write("先生")
else
response.write("小姐")
end if
response.write("<br>")
response.write("您的姓别是:<font color=red>"&request("sex")&"</font>")
response.write("<br>")
response.write("您的电话是:<font color=red>"&request("dh")&"</font>")
response.write("<br>")
response.write("您的年纪是:<font color=red>"&request("lj")&"</font>")
response.write("<br>")
response.write("您的邮箱是:<font color=red>"&request("email")&"</font>")
response.write("<br>")
response.write("您的留言信息是:<font color=red>"&request("ly")&"</font>")
else
response.write("&errmsg&")
end if
%>
提示的错误是:
错误类型：
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/p/aa1.asp, 第 49 行
我在第二段代码中,要实现的功能是检测表单数据的正确性,和显示出来.
我是初学者,希望高手指点一下.谢谢.
