上一页目录下
A. word自动生成目录,这后页码从第一页开始,并链接上目录。
在Word文档中,前三页是目录,从第4页开始设置页码,显示页码数为1、2、3……,并且目录右侧的页码也从1、2、3……显示,其设置方法:
1、将光标放在第4页的首部,单击页面布---->分隔符---->分节符---->下一节;
B. 比如图片网站,一堆图片目录,最下面有 第一页/下一页/上一页/最后一页 这个东西怎么做/DR能做出来
ASP的话网上的例子很多。
C. 我想做一个ppt目录,不知道怎样做带有“上一页”“首页”“下一页”的小图片做超链接的图标,可以下不
这个要自己设
插入文字框,输入:上一页,下一页,首页等。。。要几个就插几个
然后移动相应位置
设超级链接,注意要点击右键:设置动作设置,不是自定义动画。
在动作设置里,有:
单击鼠标时,超链接到:下一张幻灯片。。。上一张。。。第一张。。。最后一张。。。等等
设置好的文字框,可以复制到其它PPT上,就一次性设好了。。。
不用一张张的设。。。
D. 在word文档里 我自动生成目录后显示目录是第一页,下一页是第二页,页码依次排列,我想问一下如何让目录做
1、将光标移动到第一页开头位置,执行插入-引用-索引和目录,点开选项卡,选中目录子选项卡,勾选显示页码和页码右对齐选项,对制表符前导符进行选择,格式可以采用模板,显示级别根据自己的实际情况选择。
E. WORD里面,在章节标题前插入分页符,使章节转到下一页,但生成目录时章节的页码还是上一页的
插入“分隔符”——“分隔符类型:下一页”
F. 网页中怎么「上一页」、「下一页」、「回子目录页」与「回首页」的导览按钮
dreamweaver里面有自动生成的,
G. 网页中上一页,下一页,跳转到。。的代码是什么要怎样实现
<%
Const MaxPerPage=10
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request.QueryString("page")) then
currentPage=Cint(request.QueryString("page"))
else
currentPage=1
end if
set rs=server.CreateObject("adodb.recordset")
if catid="" then
rs.open "select top 20 prename,company,mark,pretype,intro,other,type,viewnum,grade,predate,id,name,introce,price1,price2,discount,proctdate,pic from proct order by adddate desc",conn,1,1
else
rs.open "select predate,prename,company,mark,pretype,intro,name,other,type,viewnum,grade,id,introce,price1,price2,discount,proctdate,pic from proct where categoryid="&catid&" order by adddate desc",conn,1,1
end if
if err.number<>0 then
response.write "数据库中暂时无数据"
end if
if rs.eof And rs.bof then
Response.Write "<p align='center' class='contents'><img src=images/sorry.gif border=0><br> 对不起,此分类暂时还没有内容!</p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"cat.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"cat.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"cat.asp"
end if
end if
end if
sub showContent
dim i
i=0
%>
……
本页10个要显示的内容
……
<%
i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing
%>
<%
End Sub
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If %>
<form method=Post action=<% = filename %>?catid=<% = catid %>>
<%
If CurrentPage<2 Then %><div align="center">
首页 上页
<% Else %><div align="center">
<a href=<% = filename %>?page=1&catid=<% = catid %>>首页</a>
<a href=<% = filename %>?page=<% = CurrentPage-1 %>&catid=<% = catid %>>上页</a>
<%
End If
If n-currentpage<1 Then %>
下页 尾页
<% Else %>
<a href=<% = filename %>?page=<% = (CurrentPage+1) %>&catid=<% = catid %>>下页</a>
<a href=<% = filename %>?page=<% = n %>&catid=<% = catid %>>尾页</a>
<% End If %>
第 <b>
<% = CurrentPage %>
</b>页 共 <b>
<% = n %>
</b>页 共 <b>
<% = totalnumber %>
</b>品 每页 <b>
<% = maxperpage %>
</b> 品 转到第:
<input type='text' name='page' size=2 maxlength=10 value=<% = currentpage %>>页
<input type='submit' class='contents' value='跳转' name='cndok'></form>
<%
End Function
%>
希望你能用上。这是asp,别的程序看着根据这改改吧