程序开发 订阅所有程序开发的日志

10天掌握ASP第十课：实例：留言本系统

作者:小虫 日期:2009-06-04

字体大小: 小 中 大

　　现在，保存这个文件做index.asp。然后，访问一下，看看效果，如下图：

 

　　新的数据库中，当然没有任何留言咯。

　　我们再建一个ASP VBScript文件，Body区中，加入如下代码：

ASP/Visual Basic Code复制内容到剪贴板
  1. <%   
  2. dim GG,GC,GT   
  3. GG=Trim(Request.Form("Guest"))      '取得表单的留言者姓名的值   
  4. GC=Trim(Request.Form("Content"))    '取得表单的留言内容的值   
  5. GT=Now()                            '取得当前的时间   
  6.   
  7. dim errmsg,errtime   
  8. 'errmsg，出错信息   
  9. 'errtime，是否有出错过   
  10. errtime=False       '默认情况下，出错是False   
  11.   
  12. if GG="" then   
  13.     errtime=True    '证明出错过了   
  14.     errmsg=errmsg&"留言者姓名不能为空哦！<br>"  
  15. end if   
  16.   
  17. if GC="" then   
  18.     errtime=True    '证明出错过了   
  19.     errmsg=errmsg&"留言内空不能不写的嘛！<br>"  
  20. end if   
  21.   
  22. if errtime=False then   '如果没有出错过的话，就执行   
  23.     sql="insert into VK_Guestbook (G_Content,G_Guest,G_Posttime) values ('"&GC&"','"&GG&"','"&GT&"')"  
  24.     conn.execute(sql)   '写数据库   
  25.     Response.Write("<a href=index.asp>留言成功，请返回</a>")   
  26. else    '否则就执行这句话   
  27.     Response.Write(errmsg) '输出出错信息   
  28. end if   
  29. %>  

　　这里说一下，errmsg=errmsg&"……" 是什么意思。。。

　　我们这里假设，留言者姓名和留言内容都是空的。

　　一开始，errmsg是什么都没，然后，到第14行 errmsg=errmsg&"留言者姓名不能为空哦！<br>" 时。errmsg就会变成：留言者姓名不能为空哦！<br>，再到19行。就变成：留言者姓名不能为空哦！<br>留言内空不能不写的嘛！<br>。

　　但是，如果不是写成errmsg=errmsg&"……"的样子，而是errmsg="……"的话。

　　就会变成留言内空不能不写的嘛！<br>。而第一句就不见了！因为重新赋值了哦！

　　保存好这个文件为save.asp。我们去IE那，全部留空发表一下，出现提示：

 

　　然后只填其中一项，如只填了姓名：

 

　　然后，正确填写两项，再发表，出现成功画面：

 

　　返回，看下留言是不是出来呢？

 


[上一页]  当前第2页，共3页：[1] [2] [3]   [下一页]
文章来自: 本站原创
Tags: 留言本 实例 ASP 系统
相关日志:
评论: 0 条 | 查看: - 次
发表评论
昵　称:
密　码: 游客发言不需要密码.
内　容:
验证码: 点击输入框即可显示验证码
选　项:
虽然发表评论不用注册，但是为了保护您的发言权，建议您注册帐号.