第一步:在access中创建一个board.mdb数据库里面有admin和msgs二张表字段如图所示:
第二步:然后连接数据库页面:conn.asp
代码如下:
<%
dbpath=server.mappath("board.mdb")
'创建连接对象
set conn=server.createobject("adodb.connection")
conn.open "PROVIDER=Microsoft.jet.OLEDB.4.0;data source="&dbpath
%>
第三步:发表留言和显示留言页面:index.asp
代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--留言板添加代码!-->
<!--#include file="add.asp"-->
<!--简单分页代码!-->
<!--#include file="page.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<link type="text/css" href="style.css" rel="stylesheet" />
</head>
<body>
<div id="box">
<div id="logo"><img src="imgs/logo.png" border="0" alt="导航logo" /></div>
<div id="contant">
<div id="liuyan">
<h3><span>现在位置</span>客户留言</h3>
<p><span style="float:right; padding-right:16px;"><a href="adminlogin.asp">管理员登录</a></span>各位访客,本留言板用于意见交流!</p>
<%
for i=1 to rs.pagesize
if rs.eof then exit for
%>
<div class="neirong">
<div class="name"><%=rs("User")%></div>
<div class="id"> NO.<%=rs("ID")%></div>
<div class="time"> TIME:<%=rs("data")%></div>
<div class="wz">留言:<%=rs("content")%></div>
</div><!--留言内容部分代码!-->
<%
rs.movenext
next
%>
<div id="page">
共有<font color="#FF0000"><%=rs.recordcount%></font>条数据
<%if rs.pagecount > 0 then%>
当前<%=intpage%>/<%=rs.PageCount%>页
<%else%>
当前页0/0
<%end if%>
<a href="index.asp?page=1">首页</a>
<%if pre then%>
<a href="index.asp?page=<%=intpage -1%>">上页</a> <%end if%>
<%if last then%>
<a href="index.asp?page=<%=intpage +1%>">下页</a> <%end if%>
<a href="index.asp?page=<%=rs.PageCount%>">尾页</a> 转到第
<select name="sel_page" οnchange="javascript:location=this.options[this.selectedIndex].value;" style="border:1px solid #ccc;">
<%
for i = 1 to rs.PageCount
if i = intpage then%>
<option value="index.asp?page=<%=i%>" selected><%=i%></option>
<%else%>
<option value="index.asp?page=<%=i%>"><%=i%></option>
<%
end if
next
%>
</select>页
</div><!--留言内容分页部分代码!-->
<div id="fb">
<h4> >>>我来发表留言</h4>
<div id="pic"><img src="imgs/bi.png" /></div>
<div id="lynr">
<form action="add.asp?act=add" method="post">
<span>留言内容:</span><b