《教你运用FrontPage二零一六制作一个简单的信息留言平台》.doc

《教你运用FrontPage二零一六制作一个简单的信息留言平台》.doc

  1. 1、本文档共5页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
《教你运用FrontPage二零一六制作一个简单的信息留言平台》.doc

教你运用FrontPage2003制作一个简单的信息留言平台 首页教学教程 1)新建首页 首先新建一个网页命名为 index.asp 点保存 接下来文件点击插入-表单 选择插入文本区,再将文本区拉大得到如 图1 以下文本区用于留言人填写留言信息 点击FrontPage2003左下角代码源代码修改 图A form method=POST action=save.asp ptextarea rows=7 name=S1 cols=71/textarea 留言内容br input type=text name=S2 size=20 留言人/p pinput type=submit value=提交 name=B1input type=reset value=重置 name=B2/p /form ? save.asp   2)新建信息存储页 新建一个文本文档把文件名命名为? save.asp 信息存储页主要是将留言人填写在文本区中的信息传到数据库进行储存 接下来在save.asp进行源代码编辑: 数据库链接代码源码,我们先把“信息留言平台”的数据库名命名为 ly.mdb 稍后教你如何制作数据库 % dim connstr dim db db=ly.mdb?? 数据库链接名 Set connt = Server.CreateObject(ADODB.Connection) connstr=Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Server.MapPath(db) connt.Open connstr % 编辑信息存储数据库代码 以下源码可以将留言人的信息存入数据库 % s1=Request(s1)?? 获取文本区信息代码? s1命名是取决于文本区的名称 s2=Request(s2) set rs=server.createobject(adodb.recordset) sql=select * from ly? 表名命名为 ly rs.open sql,conn,1,3 rs.addnew lyb=s1? 文本区内容 lyr=s2? 留言人名姓 rs.update rs.Close set rs=Nothing conn.Close set conn=Nothing % 5)新建制作一个ACCESS数据库 首先打开office2003 里面的ACCESS 点新建,再点新建“空数据库” 输入ly.mdb 点创建 这样就新建了一个名ly.mdb 的数据库,接下来对数据库字段进行编辑,点设计出现如下图空表 再入如下图2中的数据 ID数据类型为? 自动编号 LYB数据类型为 文本 LYR 数据类型为 文本 TIMES 数据类型为? 日期/时间? 并将TIMES 字段的默认值改为 now() 这样可以自动显示出留言人的留言时间点保存这样一个数据库就算建好了 图2 6)制作信息浏览页 对信息浏览页代码进行编辑 用FrontPage2003打开我们第一步新建的index.asp 网页点击右下角代码 进行ASP源代码编辑 数据库链接代码 % dim connstr dim db db=ly.mdb Set connt = Server.CreateObject(ADODB.Connection) connstr=Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Server.MapPath(db) connt.Open connstr % % sql=select * from ly Set rs= Server.CreateObject(ADODB.Recordset) rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write p align=center 没有用户留言/p else do while not rs.eof % table border=1 width=500 id=table1 tr td height=112%=lyb%/td /tr tr td姓名:%=lyr%/td /tr /table % ?rs.movenext loop end if % form method=POST action=save.asp ptextarea rows=7 name=S1 cols=71/textarea 留言内容br input type=text name=S2 size=20 留言人/p pinput type=submit value=提交 name=B1input type=reset value=重置 name=B2/p /form 以下是我们做好

文档评论(0)

ddwg + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档