php免数据库留言本 php与数据库连接制作留言板

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

不用数据库编写一个PHP留言板提交后在页面中显示留言内容留言时间等

我有一个这样的程序，以前我的个人博客。

但在跟你说数据库之前，望你理解一下什么是数据库？如果你说完全不适用数据库，是不能做到你这样的功能的！我是用文本充当数据库，做为保存机制。然后通过自己定义的函数来增删读改该文件的操作。

表面上看来，你不需要安装任何数据库，但要仔细去看看，其实自己已经实现了一个数据库，就是没有专业的数据库功能那么强大，安全及优化性能没有那么高罢了。

简单的来说数据库，就是这样的原理。

我现在用的是办公室的电脑没有装FLASH插件，所以不能上传。你要是要的话，留下邮箱，我给你发过去，我邮箱中有。

下边给你一段，我自己的数据库格式

用|locksepace|分解，你说的时间，内容，包括访客IP，等等信息都可包涵。

哎，为了你，我刚刚安装了一个FLASH插件，上传上来吧给你！

效果图

相关问答

Q1: PHP做的留言板，没用数据库，怎么实现删除留言。倒序显示留言并显示留言时间,具体到代码，谢谢！

使用glob 读出所有的文件然后使用 krsort 逆向排序分页读出你要留言

Q2: 怎样建立数据库不我的flash留言板模块和php连在一起？

1.数据库用office2000或者office2003的access做的，里面的内容要根据输入的内容来确定，数据库名字和表的名字由conn.asp和调用语句决定，当然也可以先确定数据库的再确定调用的

2.不懂的话做个不用数据库的留言板：文本文件不是好办法，建议使用XML 补充一点，PHP支持XML，ASP反而不支持

数据库系统留言板de制作2007/11/23 15:46 数据库系统留言板---主页asp

1.建个数据库，名为Message 字段为：id user email towho addtime contert

2.建个表单，名为〈index.asp〉

SCRIPT language=VBScript

'定义检查输入信息格式的函数Check()

Sub Check()

Dim strEmail, Position1, EmailLen, strDomainName

strEmail = Form1.Email.Value

Position1 = Instr(strEmail, "@")

EmailLen = Len(strEmail)

strDomainName = Mid(strEmail, Position1 + 1, EmailLen - Position1 )

'以下每一项信息都不能为空，VBScript中的empty表示为空信息

If Form1.User.Value = empty Then

MsgBox "请输入您的名字！"

FocusTo(0)

Exit Sub

ElseIf Form1.Email.Value = empty Then

MsgBox "请输入您的电子邮件地址！"

FocusTo(1)

Exit Sub

'如果在邮件地址中缺少账号和域名的分隔符，提示出错

ElseIf Position1 = 0 Or Instr(strDomainName, ".") = 0 Then

MsgBox "请正确填写您的电子邮件地址！"

FocusTo(1)

Exit Sub

ElseIf Form1.Content.Value = empty Then

MsgBox "请输入您的留言内容！"

FocusTo(2)

Exit Sub

End If

Form1.Submit

End Sub

'在Check()中调用以下FocusTo()函数来确定出错时的输入焦点

Sub FocusTo(x)

Document.Form1.Elements(x).Focus()

End Sub

/SCRIPT

HTML

HEADTITLE留言本/TITLE/HEAD

BODY bgcolor=LightYellow

P Align=centerFONT size=5 face=华文彩云 color= blue留言板/FONT

FORM method=post action=MessageAdd.asp name=Form1HR

TABLE bgcolor=LightBlue align=center border=1 width=500

TRTD height=35 align=center留言者/TD

TDINPUT maxlength=30 name=User/TD/TR

TRTD height=35 align=centerE-mail/TD

TD colspan=3INPUT name=Email /TD/TR

TRTD height=35 align=center标题/TD

TD colspan=3INPUT maxlength=200 name=Subject size=40/TD/TR

TRTD height=35 align=center留给谁/TD

TD colspan=3INPUT name=ToWho /TD/TR

TRTD height=35 align=center内容/TD

TD colspan=3TEXTAREA cols=51 name=Content rows=8/TEXTAREA/TR

TR align=middleTD height=40 colspan=4 align=center

INPUT type=button value=提交 OnClick=Check()

INPUT type=reset value=重写/TD/TR

/TABLE

/FORM

A href=MessageBrowse.asp查看留言/A

/BODY

/HTML

3.建个〈Messageadd.asp〉

' 该程序因为不在窗口内显示内容，只弹出一个对话框进行提示，所以不

' 用再加入HTML/HTML，HEAD/HEAD，BODY/BODY标记对

' 声明对象、变量

Dim User, Email, ToWho, Content, AddTime

Dim objConn, objRS

Dim strSQL

' 获取由Index.asp页面传送过来的变量

User = Request("User")

Email = Request("Email")

ToWho = Request("ToWho")

Content = Request("Content")

' 获取服务器当前时间

AddTime = Date()

' 使用Connection对象打开数据库文件

Set objConn = Server.CreateObject("ADODB.Connection")

objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _

"Data Source=" Server.MapPath("Message.mdb")

objConn.Open

' 建立Recordset对象并以追加记录方式打开数据表Message

Set objRS = Server.CreateObject("ADODB.Recordset")

objRS.Open "Message", objConn, 1, 2

' 采用数组形式将记录追加到数据库中

objRS.AddNew Array("User", "Email", "ToWho", "AddTime", "Content"), _

Array(User, Email, ToWho, AddTime, Content)

objRS.Update

' 释放变量占用的内存空间

Set objRS = Nothing

Set objConn = Nothing

' 在客户端显示弹出对话框后返回前一个页面Index.asp

msg = "记录已添加！"

SCRIPT language=VbScript

Msgbox "记录已添加！"

history.back()

/SCRIPT

4.建个messagebrowse.asp

' ShowPage子程序负责显示PageNo参数所指定的页次的所有记录

Sub ShowPage(objRS, PageNo)

' 显示留言并加以格式化

objRS.AbsolutePage = PageNo

For I = 1 To objRS.PageSize

User = objRS("User")

ToWho = objRS("ToWho")

Email = objRS("Email")

Content = objRS("Content")

AddTime = objRS("AddTime")

Response.Write User " 给 " ToWho " 的留言BR"

Response.Write "E-mail: A href=mailto:" Email "" Email "/ABR"

Response.Write "内容：" Subject "BR"

Response.Write "TABLE width=100% bgcolor=LightBlueTRTD"

Response.Write Content "/TD/TR/TABLE时间：" AddTime "HR"

objRS.MoveNext

If objRS.EOF Then Exit For '若到记录结尾就结束For循环

Response.Write "/TABLE"

End Sub

HTML

HEAD

TITLE显示留言本/TITLE

/HEAD

BODY bgcolor=LightYellow

CENTERFONT size=5 face=华文彩云 color= blue留言显示/FONT

/CENTERHR

A href="Index.asp"返回留言板/ABR

' 声明对象、变量

Dim objConn, objRS

Dim strSQL

Dim User, ToWho, Email, Content, AddTime

' 使用Connection对象打开数据库文件

Set objConn = Server.CreateObject("ADODB.Connection")

objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _

"Data Source=" Server.MapPath("Message.mdb")

objConn.Open

' 建立Recordset对象并返回表Message的所有记录

strSQL = "SELECT * FROM Message"

Set objRS = Server.CreateObject("ADODB.Recordset")

objRS.Open strSQL, objConn, 1, 1

' 判断记录数是为空有多种方法，可以用Recordset对象的RecordCount属性是否为零，

' 也可以判断刚打开RecordSet对象的记录指针的开始位置是否等于文件的结束位置，

' 以下程序使用后一种方法来判断记录数是否为零

If objRS.Eof And objRS.Bof Then

Response.Write "当前没有留言！BR"

Response.Write "A href=Index.asp返回留言表单/A"

Else

' 若有留言，调用子程序ShowPage显示数据表中的数据

objRS.PageSize = 5

' 显示页次超链接

PageNo = Request("PageNo") '读取浏览者所点取的页次超链接

Response.Write "["

For I = 1 To objRS.PageCount

If I = CInt(PageNo) Then '若到浏览者所点取的页次超链接，便不再当成超链接

Response.Write I " | "

Else

Response.Write "A HREF='MessageBrowse.asp?PageNo=" I "'" _

I "/A" " | " '超链接到MessageBrowse.asp并将页次当成参数传送

End If

Response.Write "]HR"

' 根据页次调用ShowPage子程序来显示留言，若没有指定页次，就显示第1页

If PageNo "" Then

ShowPage objRS, PageNo

Else

ShowPage objRS, 1

End If

' 释放内存变量占用空间

Set objRS = Nothing

Set objConn = Nothing

/BODY

/HTML

Q3: 求一步一步教PHP留言板制作方法

1. 先设计数据表，一般留言板需要两个表：留言内容表、回复表

留言内容表：messages

字段如下：

id 自动增加

contents 留言内容

messages_time 留言时间

回复表：reply

字段如下：

id 自动增加

messages_id 关联messages表的id

contents 回复的内容

reply_time 回复时间

2. 设计留言板页面及保存留言数据

大概代码如下：

form name="form1" method="post" action="index.php?action=ok"

texarea cols="30" rows="10" name="contents"

/textarea

input type="submit" value="提交"

/form

?php

if($_GET['action'] == 'ok'){

$contents = $_POST['contents'];

mysql_query("insert into messages values(NULL,'".$contents."',now())");

}

3. 显示留言内容，遍历数据表

?php

//包含数据连接代码

require('data.php');

$query = mysql_query("select * messages");

while($array = mysql_fetch_array($query)){

echo $array['contents']."br";

}

4. 回复的设计可以参照留言的设计

Q4: php网页不用数据库如何实现留言板功能

access貌似可以，你把access的数据放到一个文件夹里，然后连接那个数据文件就行了

Q5: php做的留言板留言显示很多页怎么做

//数据库连接

@mysql_connect("localhost","root","password") or die("连接数据库失败：".mysql_error());

mysql_select_db("test");

mysql_query("set character set 'utf-8'");

//每页显示的留言数

$pagesize = 10;

//确定页数 p 参数

$p = $_GET['p']?$_GET['p']:1;

//数据指针

$offset = ($p-1)*$pagesize;

//查询本页显示的数据

$query_sql = "SELECT * FROM guestbook ORDER BY id DESC LIMIT $offset , $pagesize";

//echo $query_sql;

$result = mysql_query($query_sql);

//循环输出

while($gblist = mysql_fetch_array($result)){

echo 'a href="',$gblist['nickname'],'"',$gblist['nickname'],'/a';

echo '发表于：',date("Y-m-d H:i", $gblist[createtime]),'br /';

echo '内容：',$gblist['content'],'br /hr /';

}

//分页代码

//计算留言总数

$count_result = mysql_query("SELECT count(*) as count FROM guestbook");

$count_array = mysql_fetch_array($count_result);

//计算总的页数

$pagenum=ceil($count_array['count']/$pagesize);

echo '共 ',$count_array['count'],' 条留言';

//循环输出各页数目及连接

if ($pagenum 1) {

for($i=1;$i=$pagenum;$i++) {

if($i==$p) {

echo ' [',$i,']';

} else {

echo ' a href="index.php?p=',$i,'"',$i,'/a';

}

php免数据库留言本的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于php与数据库连接制作留言板、php免数据库留言本的信息别忘了在本站进行查找喔。

正文

不用数据库编写一个PHP留言板提交后在页面中显示留言内容留言时间等

相关问答

相关阅读

PRIDEII翻译网站制作，翻译网站软件

小孩发火有什么危害视频，向小孩发火会对孩子有什么影响

荣耀支持升级鸿蒙，荣耀支持升级鸿蒙吗

什么叫视频制作失败了，zao制作视频总是失败怎么回事

竞技小说游戏，经典游戏竞技小说

关于棋牌游戏推广活动方案的信息

华为鸿蒙怎么关应用振动，鸿蒙系统振动怎么取消

如何做门店充值引流，门店如何做推广引流

目录[+]

不用数据库 编写一个PHP留言板 提交后 在页面中显示留言内容 留言时间等

相关问答

相关阅读

PRIDEII翻译网站制作，翻译网站软件

小孩发火有什么危害视频，向小孩发火会对孩子有什么影响

荣耀支持升级鸿蒙，荣耀支持升级鸿蒙吗

什么叫视频制作失败了，zao制作视频总是失败怎么回事

竞技小说游戏，经典游戏竞技小说

关于棋牌游戏推广活动方案的信息

华为鸿蒙怎么关应用振动，鸿蒙系统振动怎么取消

如何做门店充值引流，门店如何做推广引流

目录[+]

不用数据库编写一个PHP留言板提交后在页面中显示留言内容留言时间等