ASP留言板代码

第一步:在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">&nbsp;NO.<%=rs("ID")%></div>
    <div class="time">&nbsp;TIME:<%=rs("data")%></div>
    <div class="wz">留言:<%=rs("content")%></div>
   </div><!--留言内容部分代码!-->
   <%
    rs.movenext
    next
   %>
   <div id="page">
   共有<font color="#FF0000"><%=rs.recordcount%></font>条数据&nbsp;
   <%if rs.pagecount > 0 then%>
    当前<%=intpage%>/<%=rs.PageCount%>页
   <%else%>
    当前页0/0
   <%end if%>
    <a href="index.asp?page=1">首页</a>&nbsp;
   <%if pre then%>
    <a href="index.asp?page=<%=intpage -1%>">上页</a>&nbsp; <%end if%>
   <%if last then%>
    <a href="index.asp?page=<%=intpage +1%>">下页</a>&nbsp; <%end if%>
    <a href="index.asp?page=<%=rs.PageCount%>">尾页</a>&nbsp;转到第
   <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>&nbsp;&gt;&gt;&gt;我来发表留言</h4>
    <div id="pic"><img src="imgs/bi.png" /></div>

    <div id="lynr">
     <form action="add.asp?act=add" method="post">
      <span>留言内容:</span><b

  • 2
    点赞
  • 37
    收藏
    觉得还不错? 一键收藏
  • 3
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 3
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值