重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
修改帝国默认的列表分页样式和伪静态页面留言版的分页样式。本来想在默认的模板标签上修改,看了看代码,b和a标签前后都多了 空格,如果在现在的基础上改,简单改改也行,不过实在是受不了那么多空格符,而且如果用display:block的话,会出现一个阶梯状的样式,所以修改分页的样式势在必行。
成都创新互联公司基于10余年网站建设行业经验,一直致力于为中小型企业提供信息化解决方案,成都创新互联公司做到开放、开源,让企业所有核心数据掌握到企业手里,打破行业乱象,让企业被网络公司掌控的局面不再发生;美工设计部,产品/程序研发部,营销策划部,售后客服部。一切服务为企业量身定制,专注为您!
1)列表分页位置:e/class/t_functions.php 删掉空格字符
2)伪静态留言版分页位置:e/class/connect.php (同样删掉空格字符,这个文件找了很久,以为缓存没更新,结果伪静态放在另外一个页面)
留言版的分页默认是12页,实在是有点儿多,更改 e/data/template/gbooktemp.txt 参数,把12修改成8就行了
3)修改语言包文件e/data/language/gb/pub/fun.php 把上一页、下一页、首页、尾页替换成符号
修改前:
修改后:
CSS代码:
.page{ padding:20px 0 0 0; text-align:center; width:100%;overflow: hidden;}
.page a b {color: #999;}
.pageb,.page a {margin: 0 2px;height: 26px;line-height:
26px;border-radius: 50%;width: 26px;text-align: center;display:
block;float: left;}
.pageb,.page a:hover{background: #333;color: #FFF;}
.page a {color: #F33;border: #999 1px solid;}
在page.asp?page=%=request("page")%后加上
例如:page.asp?page=%=request("page")%class==%=request("class")%
你好:
首先,按照你的需求,可能需要在点击详情页的时候,将列表搜索使用的form的action改成详情页地址,然后提交,就自动包含了分页的所有信息了。
其次,又是根据你的需求,我觉得你真正想解决的是详情也返回列表时候可以保留之前列表的状态吧, 如果是因为这个需求,那我建议你把列表分页查询改成get方法,这样直接返回上一页就可以了。
建立access的数据库news,还有表news,表的字段(id,title),id唯一,输入数据保存,用下面代码可查询,可分页
-----------------------下面保存为search.asp--------------------------
html
head
meta http-equiv="Content-Type" content="text/html; charset=gb2312"
title文件/title
/head
body bgcolor="#ffffff"
!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
script
function btn_ck_bh_Click()
{
var cx = document.form1.cxsj.value;
form1.action ="search.asp?cx="+cx;
}
/script
table border="1" cellspacing="0" bgcolor="#F0F8FF" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF" width="88%" style="word-break:break-all"
tr
td width="778" align="center" colspan="7"
form method="POST" name="form1" action=search.asp
p输入搜索内容:input type="text" name="cxsj" size="20"input type="submit" value="提交" name="B1" LANGUAGE="javascript" onclick="btn_ck_bh_Click()"
input type="reset" value="重写" name="B2"/p
/form
/td
/tr
/table
table border="1" cellspacing="0" bgcolor="#F0F8FF" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF" width="88%" style="word-break:break-all"
tr
td width="8%" align="center"strongfont color="#0080C0"ID 号/font/strong/td
td width="58%" align="center"strongfont color="#0080C0"标 题/font/strong/td
td width="8%" align="center"strongfont color="#0080C0"修 改/font/strong/td
td width="8%" align="center"strongfont color="#0080C0"删 除/font/strong/td
/tr
%
'数据库查询
'获得搜索内容
cx = request("cx")
dim pageCount
'把page转换成整数
page = cint(request("page"))
set conn=server.createobject("adodb.connection")'
set rs=server.createobject("adodb.recordset")
conn.open "DBQ=" server.mappath("./news.mdb") ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
' 获取产品的名字记录集(从 news表中)
if cx "" then
sql = "select * from news where title like '%"cx "%' order by id desc"
else
sql ="select * from news order by id desc"
end if
rs.open sql,conn,3,3
'如果没有数据记录
if rs.bof then
errmsg=errmsg+"br"+"li"+keyword+"没有记录,请返回!!"
response.write errmsg
response.end
end if
' 设置记录集在每页的总行数,也就是 PageSize属性
RS.PageSize=40
'把rs.pageCount转换成整数和page才能作比较
pageCount = cint(rs.pageCount)
' 设置当前的页号( AbsolutePage属性)
if page = 0 then
page =1
end if
RS.AbsolutePage = page
x=1
' 显示当前页中的所有记录( PageSize中设置的行数)
WHILE NOT RS.EOF AND NumRowsRS.PageSize
%
tr onmouseover="this.bgColor='#99ccff'" onmouseout="this.bgColor=''"
td width="8%"p align="center"%=rs("id")%/td
td width="58%"a href="view.asp?id=%=rs("id")%" target="_blank"%=rs("title")%/a/td
td width="8%" align="center"a href="edit.asp?id="%=rs("id")%修 改/a/td
td width="8%" align="center"a href="delet.asp?id="%=rs("id")%删 除/a/td
/tr
%RS.MoveNext
NumRows=NumRows+1
WEND%
tr onmouseover="this.bgColor='#99ccff'" onmouseout="this.bgColor=''"
td width="105%" align="center" colspan="6" /td /tr
tr
td width="105%" align="center" colspan="6"
p align="center"FONT color=#333333共%=PageCount%页 第%=page%页★
%if page=1 then%首页%end if%
%if page1 then%
A HREF="search.asp?page=1cx=%=cx%" 首页/A
%end if%★
%if page1 then%A HREF="search.asp?page=%=page-1%cx=%=cx%"%end if%上一页/a
%
dim pagewhere
dim p
p = 1
'把pagewhere转换成整数
'pagewhere = cint(request("pagewhere"))
pagewhere = pageCount
if pagewhere0 then
for p=1 to pagewhere
if p page then%
A HREF="search.asp?page=%=p%cx=%=cx%"%=p%/a
%end if
if p =page then%
%=p%
% end if
next
end if%
%if page PageCount then%
A HREF="search.asp?page=%=page+1%cx=%=cx%"
%end if %下一页/A★
%if page=PageCount then%尾页
%end if%
%if pagePageCount then%
A HREF="search.asp?page=%=PageCount%cx=%=cx%" 尾页/A
%end if%
/p/FONT/td /tr tr
td width="105%" align="center" colspan="6"搜索内容:%=cx%/td
/tr
/table/center/div
/body/html
%
rs.close
Set rs=nothing
conn.close
set conn=nothing
%