2个回答
展开全部
给你一个我写的吧,这个功能不是很全,你可以到http://dabaoku.com 和http://ik8.com 和http://3326.com去下载的,很多的,还有个网站:http://post.baidu.com/f?kz=94225146
<% option explicit%>
<!--#Include file="odbc_connection.asp"-->
<!--#Include file="function.asp"-->
<html>
<head>
<title>哈哈论坛欢迎您</title>
<style type="text/css">
<!--
.STYLE1 {
color: #0000FF;
font-size: 36px;
}
body {
background-color: #00CCFF;
}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
#Layer1 {
position:absolute;
left:746px;
top:134px;
width:174px;
height:49px;
z-index:1;
}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body>
<div id="Layer1">
<table width="80%">
<tr>
<td> <form name="form1" action="announce.asp"> <input type="submit" name="Submit" value="发表新文章"></form></td>
<td><form name="form2" action="index.asp"><input type="submit" name="Submit2" value="回首页"></form></td>
</tr>
</table>
</label>
</div>
<h2 align="center"><a href="index.asp"><img src="image/haha.jpg" width="48" height="47" border="0"></a><span class="STYLE1">哈哈论坛欢迎您</span></h2>
<p align="center"> ————想说就说</p>
<p align="center"> </p>
<center>
<table width="85%" border="1" align="center" cellspacing="2" bordercolor="#8800FF">
<tr bgcolor="#CCFFFF" align="center">
<td width="7%">笑哈哈</td>
<td width="43%">主题</td>
<td width="8%">回复</td>
<td width="8%">点击</td>
<td width="8%">发言人</td>
<td width="26%">发言时间</td>
</tr>
<%
Dim sql,rs
'因为要分页显示查询结果，所以用下面方法创建一个recordset对象
sql="Select * From bbs Where layer=1 Order By submit_date desc"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,db,1 '请注意创建recordset对象的方法
If Not rs.Bof And Not rs.Eof Then
'以下主要为了分页显示
Dim page_size '声明每页多少条记录变量
Dim page_no '声明当前是第几页变量
Dim page_total '声明总页数变量
page_size=10 '每页显示10条记录
If Request("page_no")="" Then '如果第一次打开，则page_no为1，否则，
page_no=1 '由传回的参数决定
Else
page_no=cint(Request("page_no"))
End If
Session("page_no")=page_no '将page_no存入session,以备其它页返回时用
rs.PageSize=page_size '设置每页多少条记录
page_total=rs.PageCount '返回总页数
rs.AbsolutePage=page_no '设置当前显示第几页
'下面一段显示当前页的所有记录
Dim I,J
I=0 '该变量用来输出序号
J=page_size '该变量用来控制显示当前页记录
Do While Not rs.Eof And J>0 '循环直到当前页结束或文件结尾
I=I+1
J=J-1
%>
<tr bgcolor="#FFFFCC" align="center">
<td bgcolor="#00CC99"><img src="image/306_big.gif" width="80" height="80">
<td bgcolor="#00CC99"><a href="count_hits.asp?bbs_id=<%=rs("bbs_ID")%>">
<%=rs("title")%></a></td>
<td bgcolor="#00CC99"><%=rs("child")%></td>
<td bgcolor="#00CC99"><%=rs("hits")%></td>
<td bgcolor="#00CC99"><%=rs("user_name")%></td>
<td bgcolor="#00CC99"><%=rs("submit_date")%></td>
</tr>
<%
rs.MoveNext
Loop
End If
%>
</table>
<p> </p>
<p>
<%
'调用子程序，写出有关各页的链接信息
Call select_page(page_no,page_total)
%>
</p>
</center>
</body>
</html>
<% option explicit%>
<!--#Include file="odbc_connection.asp"-->
<!--#Include file="function.asp"-->
<html>
<head>
<title>哈哈论坛欢迎您</title>
<style type="text/css">
<!--
.STYLE1 {
color: #0000FF;
font-size: 36px;
}
body {
background-color: #00CCFF;
}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
#Layer1 {
position:absolute;
left:746px;
top:134px;
width:174px;
height:49px;
z-index:1;
}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body>
<div id="Layer1">
<table width="80%">
<tr>
<td> <form name="form1" action="announce.asp"> <input type="submit" name="Submit" value="发表新文章"></form></td>
<td><form name="form2" action="index.asp"><input type="submit" name="Submit2" value="回首页"></form></td>
</tr>
</table>
</label>
</div>
<h2 align="center"><a href="index.asp"><img src="image/haha.jpg" width="48" height="47" border="0"></a><span class="STYLE1">哈哈论坛欢迎您</span></h2>
<p align="center"> ————想说就说</p>
<p align="center"> </p>
<center>
<table width="85%" border="1" align="center" cellspacing="2" bordercolor="#8800FF">
<tr bgcolor="#CCFFFF" align="center">
<td width="7%">笑哈哈</td>
<td width="43%">主题</td>
<td width="8%">回复</td>
<td width="8%">点击</td>
<td width="8%">发言人</td>
<td width="26%">发言时间</td>
</tr>
<%
Dim sql,rs
'因为要分页显示查询结果，所以用下面方法创建一个recordset对象
sql="Select * From bbs Where layer=1 Order By submit_date desc"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,db,1 '请注意创建recordset对象的方法
If Not rs.Bof And Not rs.Eof Then
'以下主要为了分页显示
Dim page_size '声明每页多少条记录变量
Dim page_no '声明当前是第几页变量
Dim page_total '声明总页数变量
page_size=10 '每页显示10条记录
If Request("page_no")="" Then '如果第一次打开，则page_no为1，否则，
page_no=1 '由传回的参数决定
Else
page_no=cint(Request("page_no"))
End If
Session("page_no")=page_no '将page_no存入session,以备其它页返回时用
rs.PageSize=page_size '设置每页多少条记录
page_total=rs.PageCount '返回总页数
rs.AbsolutePage=page_no '设置当前显示第几页
'下面一段显示当前页的所有记录
Dim I,J
I=0 '该变量用来输出序号
J=page_size '该变量用来控制显示当前页记录
Do While Not rs.Eof And J>0 '循环直到当前页结束或文件结尾
I=I+1
J=J-1
%>
<tr bgcolor="#FFFFCC" align="center">
<td bgcolor="#00CC99"><img src="image/306_big.gif" width="80" height="80">
<td bgcolor="#00CC99"><a href="count_hits.asp?bbs_id=<%=rs("bbs_ID")%>">
<%=rs("title")%></a></td>
<td bgcolor="#00CC99"><%=rs("child")%></td>
<td bgcolor="#00CC99"><%=rs("hits")%></td>
<td bgcolor="#00CC99"><%=rs("user_name")%></td>
<td bgcolor="#00CC99"><%=rs("submit_date")%></td>
</tr>
<%
rs.MoveNext
Loop
End If
%>
</table>
<p> </p>
<p>
<%
'调用子程序，写出有关各页的链接信息
Call select_page(page_no,page_total)
%>
</p>
</center>
</body>
</html>
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
这是一个很常见的程序，你随便找本ASP+ACCESS的书上都有登陆和留言的例子。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
