?----------------------- Page 1-----------------------
ASP 留言板
设计(参考代码)
一、 tbGuest数据表
1 表结构
2 表内容
二、 数据库连接文件(odbc_connection.asp)
<%
'==============================================================================
==========================
'这是数据库连接文件,专门用来连接数据库。在其他页面中可以包含本页面,就相当于将
如下语句写到别的页面中一样。
'==============================================================================
===========================
'以下连接数据库,建立一个Connection对象实例conn
Dim conn,strConn
Set conn=Server.CreateObject("ADODB.Connection")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &;
Server.MapPath("guest.mdb")
conn.Open strConn
%>
三、 配置文件(config.asp)
<%
'=======================================================================
'这是配置文件,用来设置所用到的一些常量
'=======================================================================
Const conGuestTitle="我的留言板" '显示在首页中留言板的名称
Const conPwd="123456" '是删除留言的密码
%>
----------------------- Page 2-----------------------
四、 函数文件(function.asp)
<%
'==============================================================================
===========
'这里是函数文件,用来保存在各页面中用到的函数
'==============================================================================
===========
'该函数用来对字符串中的危险字符进行处理。
Function myDangerEncode(myString)
If IsNull(myString) Then
myDangerEncode="" '如果myString 为空,则赋值空字符串
Else
myString=Trim(myString) '去 前后的空格
myString=Replace(myString,"'","''") '将单引号替换为连续两个单引号
myDangerEncode=myString '返回函数值
End If
End Function
'该函数用来对字符串进行HTML 编码,而且,要替换其中的空格和换行符号,以实现更佳的
排版效果
Function myHTMLEncode(myString)
If IsNull(myString) Then
myHTMLEncode="" '如果myString 为空,则赋值空字符串
Else
myString=Replace(myString,"&;","&;amp;") '替换&;为字符实体&;amp;
myString=Replace(myString,"<","&;lt;") '替换<为字符实体&;lt;
myString=Replace(myString,">","&;gt;") '替换>为字符实体&;gt;
myString=Replace(myString,Chr(32),"&;nbsp;") '替换空格符为字符实体
&;nbsp;
myString=Replace(myString,Chr(13),"
") '替换回车符为换行标记
myHTMLEncode=myString '
返回函数值
End If
End Function
%>
五、 css样式文件(guest.css)
body{background-color:#FFFFFF}
table,p{font: 12px "宋体", "新宋体"; color:#000033}
----------------------- Page 3-----------------------
a{font: 12px "宋体", "新宋体"; color: #6633FF; text-decoration: none}
a:hover{color: #FF0033; text-decoration: underline}
六、首页文件(guest.asp)
<%
'==============================================================================
==================
'首页文件
'1. 本页主要分为两部分:上面是一个添加留言的表单,表单会被提交到 insert.asp;下
面是显示所有留言的部分,就是利用循环显示所有记录而已。
'2. 要注意这里在表单中使用了客户端的JavaScript 验证,通过验证后才会继续提交表单,
否则就提示用户重新填写。
'3. 本页会调用样式文件guest.css设置有关文字 超链接等的样式。
'4. 本页会读取config.asp 中的配置,显示留言板的名称
'5. 在下面显示留言时,会调用function.asp 中的函数,对留言主题