成都网站建设设计

将想法与焦点和您一起共享

留言板php创建数据库 基于PHP的留言板设计与实现

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

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

创新互联是一家集网站建设,潜江企业网站建设,潜江品牌网站建设,网站定制,潜江网站建设报价,网络营销,网络优化,潜江网站推广为一体的创新建站企业,帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿,时刻以成就客户成长自我,坚持不断学习、思考、沉淀、净化自己,让我们为更多的企业打造出实用型网站。

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

3.

数据库系统留言板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循环

Next

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

Next

Response.Write "]HR"

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

If PageNo "" Then

ShowPage objRS, PageNo

Else

ShowPage objRS, 1

End If

End If

' 释放内存变量占用空间

Set objRS = Nothing

Set objConn = Nothing

%

/BODY

/HTML

php留言板 制作思路

制作一个简单留言板,需要

创建一个数据库

创建一个表

创建一个公共的连接数据库的脚本,里边包括,连接数据库(mysql_connect),选择数据库(mysql_select_db)

一个动态页,输出留言的内容(一般用的while循环输出)

一个表单,来接受用户留言

留言板说白了,就是对数据库的删改工作,需要执行对应的sql语句来实现,mysql_query($sql)

增添 $sql="insert into table_name(字段名) values(值)";

删除 $sql="delete from table_name where 主键="$_GET['id'];

修改 $sql="update table_name set 字段名=新值";(多个的话用逗号隔开)

还有涉及到的分页问题,这个我觉得楼主可以自己去尝试一下,是个不错的锻炼!

新年快乐~

求教怎么用PHP做个留言板。

一个html表单,包含留言信息,提交给一个php文件,然后php把数据存入相应数据库。

查看留言则是php从数据库读出相应数据,然后显示给用户。


网页标题:留言板php创建数据库 基于PHP的留言板设计与实现
转载源于:http://chengdu.cdxwcx.cn/article/docisog.html