ASP记录

最新推荐文章于 2025-01-12 12:43:24 发布

原创最新推荐文章于 2025-01-12 12:43:24 发布 · 776 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#asp #microsoft #数据库 #session #sql #access

ASP学习专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一个基于ASP的留言系统实现方法，包括数据库连接、记录分页展示及管理员功能实现等关键技术点。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

连接数据库代码

<%
sfdb=server.mappath("surfer.mdb")
%>

<% set conn = server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq=" & sfdb
Set rs = Server.CreateObject("ADODB.Recordset")

sql="select * from gbook Order By time desc"

rs.pagesize=10

rs.open sql,conn,1,1
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''1，1是读取和查询时用，1，3是修改，写入和删除不用rs.open

page=cint(Request.QueryString("page")) '控制分页
if page<1 then
page=1
elseif page>rs.pagecount then
page=rs.pagecount
end if
rs.AbsolutePage=page
%>

<%
if rs.bof then response.Write("目前没有留言 ")
for i=1 to rs.pagesize
if rs.eof then exit for
%>

<%=rs("user_message") %>'显示数据库内容

<%
rs.movenext
next
%>for循环开始工作了

<% if page>1 then %>
 <a href="index.asp?page=<%=page-1%>">上一页</a>
 <% else %>
 页头
 <% end if %>
 
 <% if page < rs.pagecount then %>
 <a href="index.asp?page=<%=page+1%>">下一页</a>
 <% else %>
 页尾
 <% end if %>
 <% if page < rs.pagecount then %><a href="index.asp?page=<%=rs.pagecount%>">最后一页<% end if %>
 </a>页数: <%= page %>/<%= rs.pagecount %> 页   共<%= rs.recordcount %>条留言
 <% for i=1 to rs.pagecount %>
 <a href=index.asp?page=<%=i%>>[<%= i %>]</a>
<% next %>

'分页结束

<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

控制管理员的原理

用session("isadmin")=yes"这个组件来判断，，用if语句就行了