网络模仿秀
你是不是看到别人的网站和社区的亮点功能很心动？想把它们搬进自己的网站或社区
中吗？你是不是在网上看到新奇或热门的新功能，想自己模仿设计一下？来我们的“网络模
仿秀”瞧瞧，一定有你想要的！如果你有什么网络功能的需求，请发信给我们，电子信箱：
pcw-chendx@vip.sina.com。
雪雪在逛朋友的论坛的时候，发现他提供了一个 “跑马灯”似的祝福功能，它可以把你
把想要对自己朋友或者亲人说的祝福语作为一张祝福“纸条”在论坛顶部进行滚动展示，特
别有意义，中秋就要来了，雪雪也想在自己的网站加入这样的功能，让网友们能使用它为
自己的朋友和亲人祝福。
想传递祝福，跑马灯祝福插件帮助你
我们来制作一款跑马灯祝福插件，在论坛或者网站中安装上它，便可以提供在线祝福
的功能了。首先我们要设计的是该插件的数据库部分，它用来存放网友们的祝福信息，然
后我们需要制作一个祝福信息提交功能，该功能把祝福信息存放到数据库中，最后我们将
祝福信息从数据库中读取出来，并把这些信息做成一张张“纸条”，利用程序控制这些“纸条”
进行移动展示，这样我们便完成了“跑马灯”祝福插件，根据相似原理，我们还可以制作跑
马灯新闻等网页功能。
第一步：设计跑马灯祝福插件的数据库
我们在这里使用的是 access 数据库，打开 access，点击“使用设计器创建表”选项，在打
开的设计器中添加字段“cid”、“ cdate”、“ cauthor”、“ ccontent”，它们分别用来记录标签
的 ID 号、祝福信息发布的时间、祝福信息的作者以及祝福的内容，设计完成后将其保存为
数据库表，当然你也可以按照你的需求添加其它的字段，如被祝福的人的姓名、标签的颜
色等等。
第二步：制作祝福信息提交功能，将提交的祝福信息存放到数据库中
接下来我们来制作祝福信息提交功能，新建一个 ASP 页面，添加以数据库各个字段为
基础的输入框，然后再添加祝福信息录入数据库的功能，由于祝福“纸条”容纳的字数有限
我们在向数据库录入信息的时候，应该对祝福内容进行字数限制。相关代码如下：
<%
OpenDB()'打开数据库链接
'获取录入的祝福信息
cauthor = Request.Form("author")
cbcolor = Request.Form("tagbcolor")
ccontent = Request.Form("massages")
ccontent = Replace(Replace(Replace(ccontent,"'",""),">",""),"<","")'防止 SQL 注入
If Len(ccontent) >100 Then
LoveTxt = Left(LoveTxt,100) '截取祝福内容前 100 字
End If
Conn.execute("Insert Into ccc_love(cauthor,ccontent,cbcolor) values ('" & cauthor &"','" &
ccontent & "','"& cbcolor & "')") '将祝福信息存入数据库
- 1
- 2
- 3
- 4
- 5
前往页