第一篇:留言簿的制作步骤
留言簿的制作步骤: 1> ACCESS中的数据表的建立:文件名:
表中必有字段:ID——自动编号;姓名——文本;性别——文本(值为01或02);留言主题——文本;留言——备注(255);发表时间——时间或日期(默认值为函数NOW)
保存位置:站点根目录。
2> 创立动态站点 3> 数据源的连接
A:自定义Provider=Microsoft.Jet.OLEDB.4.0;Data Source=“&server.mappath(”db1.mdb“)B:(尝试)数据源:管理工具中数据源的设置。(系统DSN)
4> liuyanban.asp文件的建立
界面设计(略)
应用程序——绑定
姓名——{Recordset1.xinming};发表时间——{Recordset1.fbshijian};留言主题——{Recordset1.liuyanhuti};留言——{Recordset1.liuyan} 重点(难点):头像(根据性别输出头像)插入图像(来自数据源)images/<%=(Recordset1.Fields.Item(”xinbie“).Value)%>.jpg
(在站点下建有images文件夹,内有01.jpg 和02.jpg)应用程序——服务器行为——重复区域;记录集分页 5> charuliuyan.asp文件的制作
界面设计(略)
表单元素(性别用单选按钮组,值分别为01或02)
应用程序——服务器行为——插入记录
6> 功能——删除记录
liuyanban.asp——选中文本(删除)转到详细页面: ID shachuly.asp忽略: 界面设计(略)
表单元素绑定(性别)移至特定记录 删除记录
7> 功能——修改记录
liuyanban.asp——选中文本(修改)转到详细页面: ID xiugaily.asp忽略: 界面设计(略)
表单元素绑定(性别)移至特定记录ID 修改记录
补充功能:计数器(访问次数)——liuyanban.asp
这是你第 {Application.count}次访问这张网页了!!应用程序——绑定——应用程序变量count
<%Application(”count“)= Application(”count")+1 %>
练习:通讯录系统
第二篇:学用asp+access制作留言簿
学用asp+access制作留言簿
前言:这是一篇asp+access的留言簿教程,运行测试环境:win2000+IE5.0。此篇教程适合对asp有一定了解的人,如果是初学者,建议先看点asp方面的书籍,或者本站XML+ASP的一些文章和论坛的一些贴子,至少能对变量、语法、函数、对象等有一个大概的了解。
一、总体思路
留言簿虽小,但对asp知识的要求还是挺全面的。首先对留言簿要完成的功能做一个大体的介绍。在设计一个项目时,最好能够构思出大体轮廓并写出来,这样就不会越做越乱,到最后自己都不知道自己要做什么!
1、单用户版:这篇教程中所要完成的留言簿只有一个管理员,所有人不需要注册就可留言。
2、留言者必须填写用户名、QQ号、邮箱、主页、留言内容、留言时间、可以使用悄悄话功能、可以获取用户IP地址,其中留言内容可以使用简单的UBB功能。
3、可以实现一定的管理功能:删除留言、编辑留言、自定义页头和页低、定义留言数、写公告、对留言簿进行一些最简单的配置等。
4、主要用asp+access2000完成
5、如果必要大家可以加搜索功能。
6、在程序设计中,尽量使用模块化,减少大量无用代码。
二、数据库构造
1、数据库名: data.mdb
说明:在设计留言簿的过程中,可以保持此名,设计完毕后可以改为data.asp,以保证数据库的安全性。
2、数据库表:总共有三个表:
(1)admin 主要记录管理员的用户名和密码以及一些基础信息。
(2)content 用来记录用户留言内容
(3)gbfined 用来记录留言簿的一些基本配置,如题头图片地址、图片长度高度、留言簿每页的留言条数,公告内容等等。
3、数据库表的具体设计:
(1)admin表
字段名
类型
长度
说明
admin_name
文本
默认
存储管理员的名字 admin_password
文本
默认
存储管理员的密码 admin_qq
文本
默认
存储管理员的oicq号 admin_email
文本
存储管理员的邮箱
admin_homepage
文本
150
存储管理员的主页地址 admin_webname
文本
150
存储管理员的主页名称
说明:A、“常归”项中的“允许空字符串”最好填“是” B、表格设计完后最好能够填入数据: admin_name:admin admin_password: admin admin_qq: 57146
admin_email: daifo@5dmeng.com
admin_homepage: http://www.xiexiebang.com“> ,asp教程,织梦帝国,织梦帝国留言簿,呆佛,daifo,code,download,articles,guestbook,源代码“>
sub bottom(gb_editioner)%>
|
然后在index.asp中加入下面代码:
<%call bottom(gb_editioner)%>
把所有文件保存到guestbook文件夹中,然后在浏览器是软件入http://localhost/guestbook/index.asp.数据库文件的扩展名还能改的。为了数据库的安全性,建议你在设计完一个项目后,改动的你数据库文件名为:****.asp。
现摘录一网友对数据库(表)的几段语句,在本教程中并未用到这些语句,但是很有帮助,大家可以和我对数据库的操作比较一下:
'******************************************************************* '打开数据库
sub opendb(connect)set connect=server.CreateObject(”ADODB.connection“)
connect.ConnectionString=”DRIVER={Microsoft Access Driver(*.mdb)};DBQ=“ & server.MapPath(databasename)connect.Open strconn end sub
'******************************************************************* '关闭数据库
sub closedb(connect)connect.close set connect=nothing end sub '******************************************************************* '打开单个表读
sub opentable(connect,tbname,myrs)set myrs=server.createobject(”ADODB.recordset“)rssql=”select * from “ & tbname myrs.open rssql,connect,1,1 end sub
'******************************************************************* '关闭临时表 sub closetable(rs)rs.close set rs=nothing end sub
'******************************************************************* '查询数据库
sub searchtable(connect,sql,rs)set rs=server.createobject(”ADODB.recordset“)rs.open sql,connect,1,1 end sub
'******************************************************************* '查询并更改数据库
sub changetable(connect,sql,rs)set rs=server.createobject(”ADODB.recordset“)rs.open sql,connect,1,3 end sub
********************************************************************
好了,我们接着来。
3、下面给出,我的 index.asp的内容,然后按这些来设计留言簿!
<%'调用函数库inc.asp文件 '函数库中的form参数action值 action=request(”action“)select case action '检查登录
case ”chklogin“
chklogin
'删除留言,由于,代码不是很多,所以不例为函数,大家可以试着将其做成函数
case ”delete“
if session(”adminpress“)<>”“ then
'如果管理员登录了,那么删除留言
我用的是spl语句,很简单的语句!
strsql=”delete * from content where user_id=“&request.querystring(”id“)
conn.execute(strsql)'关闭数据库
conn.close
set conn=nothing
'删除成功,回留言簿
response.write”
response.write”删除成功,,正回留言簿.......
setTimeout(”location.replace('index.asp')“,600)
<%'结束代码的执行,回首页面
response.end
else
'如果未登录,进入登录界面
response.redirect”index.asp?action=login“
end if
case ”w_r_add“
if session(”adminpress“)<>”“ then
w_r_add '留言簿配置修改入库
else
response.redirect”index.asp?action=login“
end if
case ”w_p_add“
if session(”adminpress“)<>”“ then
w_p_add '版主信息修改入库
else
response.redirect”index.asp?action=login“
end if
case ”inputadd“
recadd
'留言内容入库
case ”editadd“
if session(”adminpress“)<>”“ then
editadd '编辑或回复留言入库
else
response.redirect”index.asp?action=login“
end if
case ”logout“ '管理员退出登录
session(”adminpress“)=”“
response.redirect”index.asp“ end select %>
select case action
case ”“
listrec '显示留言信息
case ”serguest“
serrec
'搜索留言
case ”login“
login
'登录界面
case ”input“
input
'输入留言界面
case ”chklogin“
chklogin '检查登录,此函数可以放在顶部,但为了显示错误信息的工整性,我放到了此处
case ”editrec“
editrec '修改信息界面
case ”manage“ '验证管理者是否
if session(”adminpress“)=”“ then
login
else
listrec
end if
case ”m_write“ '修改配置界面
if session(”adminpress“)<>”“ then
m_write
else
login
end if
case ”m_person“ '修改版主信息界面
if session(”adminpress“)<>”“ then
m_person
else
login
end if end select call bottom(gb_editioner)'调用页低信息
%>
最后我们一起来看看inc.asp文件内容,此文件中全部是index.asp文件调用的函数。
首先在文件头加上:来调用定义的变量。
1、首先我们写出引号和空格的转换函数,主要是为了解决数据与sql函数相冲突。
<% Function ChkString(string)if string = ”“ then string = ” “ ChkString = server.htmlencode(Replace(string, ”'“, ”''“))End Function
Function ChkUserString(string)string = ChkString(string)ChkUserString = server.htmlencode(Replace(string, ” “, ”“))End Function %>
2、关于页面头和页面低部函数,在第二讲中已经写出,这里不再重写。
3、登录界面 <%sub login%>
4、验证管理员密码是否正确 <%end sub '验证登录密码 sub chklogin()
admin_name=chkstring(request(”username“))'取得表单数据 admin_password=chkstring(request(”password“))
strsql=”select admin_name,admin_password from admin“
set rs = conn.Execute(strsql)
'读取数据库中用户和密码
if not(rs.bof and rs.eof)then
if admin_name=rs(”admin_name“)and admin_password=rs(”admin_password“)then
session(”adminpress“)=chkstring(request(”username“))
'如果管理员名字和密码输入正确存取session变量,以便管理员对留言簿的维护。
rs.close
set rs=nothing
conn.close
set conn=nothing '关闭数据库和表
response.redirect ”index.asp“ '回到首页
response.end '结束后面代码的操作
else
'验证用户名和密码输入错误的处理
response.write ”
response.write ”
返回上一页
rs.close
set rs=nothing
end if
else
response.write ”登录出现错误或者数据库被破坏!“
end if
end sub %>
5、输入留言界面。思路:用户不用注册就可以留言,管理员留言时一些基本信息自动调用。<%sub input%>
end sub%>6、留言内容入库 sub recadd '读取表单数据
user_name=request(”username“)
user_email=request(”email“)
user_qq=request(”oicq“)
user_address=request(”address“)
user_homepage=request(”homepage“)
user_webname=request(”webname“)
user_image=request(”images“)
user_ip=request.servervariables(”remote_addr“)
user_content=chkuserstring(request(”content“))
user_silent=request(”silent“)
user_time=now()'将读取数据写入库
strSql = ”insert into content(user_name, user_qq,user_email,user_address,user_homepage,user_webname,user_image,user_ip,user_content,user_silent,user_time)Values('“
strSql = StrSQl & user_name & ”', '“
strSql = StrSQl & user_qq & ”', '“
strSql = StrSQl & user_email & ”', '“
strSql = StrSQl & user_address & ”', '“
strSql = StrSQl & user_homepage & ”', '“
strSql = StrSQl & user_webname & ”', '“
strSql = StrSQl & user_image & ”', '“
strSql = StrSQl & user_ip & ”', '“
strSql = StrSQl & user_content & ”', “
strSql = StrSQl & user_silent & ”, '“
strsql = strsql & now()&”')“
conn.Execute(StrSql)'关闭数据库
conn.close
set conn=nothing '返回留言簿首页
response.write”
response.write”留言成功,,正回留言簿.......
response.end end sub %>
第三篇:留言簿的制作过程
动态站点(留言簿)的制作过程
一、安装调试ASP环境
安装IIS或将NetBox测试服务器复制到你的站点根文件夹中。
1、打开“控制面板”—选择“添加或删除WINDOWS组件”
2、选择IIS信息服务的复选框,单击“下一步”(注意:需有WINDOWS的安装光盘或其备份)
3、若IIS组件安装完毕,打开控制面板的“管理工具”,选择“Internet信息服务”---双击
4、右击“默认网站”—“属性”—选择“网站”选项卡的“IP地址”为127.0.0.1
5、选择“主目录”为本地站点根文件夹
6、选择“文档”为index.asp
至此,IIS服务器配置完毕。
二、打开ACCESS , 建立数据库。
三、建立动态站点
1、配置本地信息
2、测试服务器
3、新建动态网页index.asp,并设计静态显示部分。
四、打开应用程序面板,选择“数据库”,检查前三步设置是否完成。
若已完成,单击“+”,添加数据源名称(DSN),见课本。
五、继续选择应用程序面板的“绑定”,单击“+”,添加记录集,见课本插图。
六、将动态内容添加到静态页面中
七、继续选择应用程序面板的“服务器行为”,单击“+”,添加“重复区域”、“记录集分页”
八、若要添加留言,须制作添加留言界面如insert.asp,只要在此页面中添加一个一行一列的表格,再选择“应用程序工具栏”中的“插入记录表单向导”,进行设置即可。
九、若要添加管理员登陆页面,须在页面中先添加表单元素,再添加服务器行为“用户身份验证---登录用户”
第四篇:语文课件制作步骤
语文课件制作步骤
第一步:1.点右键——新建——PPT演示文稿;2.重命名——YW201101卢雪莲《桃花心木》(6下);3.双击打开——单击此处打开第一张幻灯片——内容版式(空白)——复制左边空白3张;4.视图——标尺——视图——网格和参考线——(点击选中)屏幕上显示网格——屏幕上显示参考线——确定;
第二步:1.电子课文——点右键——另存为图片——桌面——文件名(桃花心木)—保存类型(JPEG)——保存;2.点右键——打开方式——画图——重新调整大小——选择——剪切——粘贴;3.在图片上点右键——设置图片格式——尺寸——高度(10厘米)——(选中)锁定纵横比——(选中)相对于图片的原始尺寸——确定;4.插入——文本框——水平——输入“义务教育课程标准实验教科书 人教版小学语文六年级下册”(黑体、楷体GB2312、华文隶书,28号,加粗)——输入“达州职业技术学院 师范系11语文教育 卢雪莲”(黑体,24号,加粗)——插入——文本框——垂直———输入“桃花心木”(黑体,54号,加粗)——调整图片和文本框,使其均匀美观;
第三步:1.复制图片到第二张幻灯片——居中并下移一格——插入文本框——输入“导语设计”(黑体,54号,加粗)——文本框底边放到第三条线上,居中;2.复制图片到第三张幻灯片,横竖居中,点击(A)插入艺术字——选择艺术字样式(54)——确定——输入“衷心感谢各位领导、专家、同仁光临指导!”——确定——设置艺术字格式——尺寸——高度:3厘米 宽度:20厘米——确定——(45)输入“谢谢!(”高度:3厘米 宽度:6厘米)——确定;
3.复制左边第二张幻灯片,并粘贴10次——分别更改为“作者简介”“识字写字”“词语解释”“朗读感悟”“课文赏析”“合作探究”“板书设计”“教师总结”“作业布置”“扩展阅读”;
4.点击左边第二张幻灯片——点击回车键(Enter)——内容版式(空白)——插入——文本框——水平——第一行第三点开始——向右向下拉——最后一行倒数第三点结束;
5.输入或复制粘贴内容——选中文字(黑体,28号,加粗)——文本框居中、首行退两格、两端对齐;
6.选中文字——线条颜色——其他线条颜色(标准)红色——确定——线型(3磅);
7.选中文字——填充颜色——其他填充颜色(标准)浅色44——确定。
第五篇:留言簿系统
留言簿系统一、系统概述
本系统是一个简单的留言簿系统,可以用于发表留言、查看已发表留言、管理留言等功能,具有以下特点:
1、无需FSO、无需数据库支持,高速运行;
2、具有强大的分页功能,并且具有自动对新留言排序功能;
3、具有回复功能,回复留言没有任何权限限制;
4、具有留言阅读总数统计功能;
5、具有回复留言总数统计功能;
6、同时采用了数据岛显示所有留言功能;
7、可以在任意IIS版本中运行,对浏览器无任何要求;
8、界面美观,无需美化即可使用;
9、类似BBS风格,可以作为小型论坛使用。
二、系统设计
本系统分为:
1、首页
首页中显示所有留言,以及每条留言的具体信息,如:发表人、留言标题、发表日期、阅读次数和回复次数。
2、新增留言
新增留言中可以编辑要增加的留言,包括发表人基本信息、留言标题以及留言内容等,编辑完成后即可提交,还可消除重填。
3、查看留言
在首页中点击要查看的留言即可查看有关该留言的详细信息,包括留言内容、标题、日期、回复和浏览次数等。
4、回复留言
查看某一留言的时候,若想回复即可单击页面中的“回复留言”按钮,编辑回复内容。编辑完成后提交,可查看回复内容和所回复的留言。
三、界面设计
本系统界面设计简洁、美观。
1、留言簿首页
2、新增留言
3、回复留言
4、查看留言
四、功能实现
本系统是一个简单的留言簿系统,可以用于发表留言、查看已发表留言、管理留言等功能,具体可以实现以下功能:
1、分页功能
2、新增留言功能;
3、自动对新留言排序功能;
4、查看留言功能;
5、回复留言功能,回复留言没有任何权限限制;
6、留言阅读总数统计功能;
7、回复留言总数统计功能;
8、显示所有留言功能;