扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
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或者jsp动态语言。有了这些动态语言,你才能把别人的评论写入数据库。所以你需要学习php,数据库。
php评论区加入电话字段按以下步骤操作:
1、先确定你留言所需字段。
2、打开您的mysql数据库,评论表ak_comments,发现目前有字段usernamemessage和我上面的姓名内容对应,我需要的电话号码邮箱没得。于是手动建立。
3、打开fore/comment.php
4、在你的前台模板新建一个,guestbook.htm内容如下:注意js、html代码中涉及到字段:字段内容的读取:[username][phone][email][message]"}电话。
可以自己进行编写评论的留言板块。
1.MySQL 是一种数据库。数据库定义了存储信息的结构。
2.在数据库中,存在着一些表。类似 HTML 表格,数据库表含有行、列以及单元。
3.在分类存储信息时,数据库非常有用。一个公司的数据库可能拥有这些表:"Employees", "Products", "Customers" 以及 "Orders"。
这个是属于正常的现象的,特别是用买的虚拟主机,虚拟主机的数据库编码一般为latin1
若想让库里的数据不出乱码,最好把数据库,网页文件编码进行统一!
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流