UC知道我这个ASP如何做一个分页
来源：百度知道 编辑：UC知道 时间：2024/05/24 22:55:27
<!--#include file="conn.asp"-->
<%
dim Rs
set Rs=server.createobject("adodb.recordset")
query="select*from guestbook order by id DESC"
Rs.Open query,Conn,3,3
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留言列表</title>
<style type="text/css">
<!--
body {
background-image: url();
}
-->
</style></head>
<body>
<p><a href="gbpost.asp">返回留言</a></p>
<table width="100%" border="1" cellpadding="0" cellspacing="0">
<%
dim Rs
set Rs=server.createobject("adodb.recordset")
query="select*from guestbook order by id DESC"
Rs.Open query,Conn,3,3
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留言列表</title>
<style type="text/css">
<!--
body {
background-image: url();
}
-->
</style></head>
<body>
<p><a href="gbpost.asp">返回留言</a></p>
<table width="100%" border="1" cellpadding="0" cellspacing="0">
我写了个可以分页的留言页面，你参考一下
<html>
<head>
<title>留言</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style6 {
font-size: 12;
color: #8B7574;
}
.style8 {font-size: 12px; color: #856E6D; }
.style9 {
font-size: 14px;
font-weight: bold;
}
-->
</style>
</head>
<%@ language="vbscript"%>
<%
Function Deal(exp1)
dim exp2
exp2=Replace(exp1,"<","<")
exp2=Replace(exp2,">",">")
exp2=Replace(exp2,"'","''")
exp2=Replace(exp2,Chr(13),"<br>")
Deal=exp2
End Function%>
<!--#include file=&q