| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 477 人关注过本帖
标题:求教:请高手帮我看看这段代码错在哪里!急,在线等!!!
取消只看楼主 加入收藏
hhx2004
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2005-11-19
收藏
 问题点数:0 回复次数:1 
求教:请高手帮我看看这段代码错在哪里!急,在线等!!!

本人是一个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 行

我在第二段代码中,要实现的功能是检测表单数据的正确性,和显示出来.

我是初学者,希望高手指点一下.谢谢.

搜索更多相关主题的帖子: 代码 form 
2005-11-19 21:27
hhx2004
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2005-11-19
收藏
得分:0 

是这样吗,那我试试看看.

2005-11-20 09:47
快速回复:求教:请高手帮我看看这段代码错在哪里!急,在线等!!!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.069567 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved