怎样建立数据库不我的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

HTML 静态静页 数据库 评论

静态页面是不能评论的。你需要学会php或者jsp动态语言。有了这些动态语言，你才能把别人的评论写入数据库。所以你需要学习php，数据库。

php评论区加入电话字段

php评论区加入电话字段按以下步骤操作：

1、先确定你留言所需字段。

2、打开您的mysql数据库，评论表ak_comments，发现目前有字段usernamemessage和我上面的姓名内容对应，我需要的电话号码邮箱没得。于是手动建立。

3、打开fore/comment.php

4、在你的前台模板新建一个，guestbook.htm内容如下：注意js、html代码中涉及到字段：字段内容的读取：[username][phone][email][message]"}电话。

php+mysql ，评论回复功能怎么实现？

可以自己进行编写评论的留言板块。

1.MySQL 是一种数据库。数据库定义了存储信息的结构。

2.在数据库中，存在着一些表。类似 HTML 表格，数据库表含有行、列以及单元。

3.在分类存储信息时，数据库非常有用。一个公司的数据库可能拥有这些表："Employees", "Products", "Customers" 以及 "Orders"。

php和mysql数据库问题

这个是属于正常的现象的,特别是用买的虚拟主机,虚拟主机的数据库编码一般为latin1

若想让库里的数据不出乱码,最好把数据库,网页文件编码进行统一!

分享名称：php和数据库做评论区 PHP是数据库吗
分享链接：http://pwwzsj.com/article/dosddgj.html