这样的网站地图是如何制作的(页 1) - 新人交流及投稿栏 - 站长知道(解答积分) - 落伍者站长论坛 im286, 为中国站长服务!

wurongzhi 发表于 2008-5-11 20:21

这样的网站地图是如何制作的

网站地图类似这样 [url]http://www.qzone.cc/SiteMap/Article1.htm[/url]

是怎么做出来的

5nx 发表于 2008-5-11 20:33

这种是动易cms之类的都可以做出来的，也可以试下SiteMap工具生成

weixiao1987 发表于 2008-5-11 21:21

SiteMap工具生成或 js 调用也可以的

wurongzhi 发表于 2008-5-11 22:52

[quote]原帖由 [i]5nx[/i] 于 2008-5-11 20:33 发表 [url=http://im286.com/redirect.php?goto=findpost&pid=26091831&ptid=2574122][img]http://im286.com/images/common/back.gif[/img][/url]
这种是动易cms之类的都可以做出来的，也可以试下SiteMap工具生成 [/quote]

我的是DEDE 系统有什么好的介绍

5nx 发表于 2008-5-11 23:42

[url]http://www.onlinedown.net/soft/59983.htm[/url] 试下这个，作者也是落伍的

wurongzhi 发表于 2008-5-12 11:54

[quote]原帖由 [i]5nx[/i] 于 2008-5-11 23:42 发表 [url=http://im286.com/redirect.php?goto=findpost&pid=26097514&ptid=2574122][img]http://im286.com/images/common/back.gif[/img][/url]
[url]http://www.onlinedown.net/soft/59983.htm[/url] 试下这个，作者也是落伍的 [/quote]

似乎不能分页有能分页的吗自动

缘亦-如此 发表于 2008-5-12 12:28

Sitemap***制作

wurongzhi 发表于 2008-5-12 14:38

..................

sunmuking 发表于 2008-5-13 10:48

回复楼主 wurongzhi 的帖子

这个页面其实就是一个分页列表，没有了logo，banner，bottom等多余的内容。
还有看了一下，他是自动生成静态页面的。
我这里有一个分页的程序，给你借鉴一下：
<%
sqlitems = ""
if ParentId<>"" then sqlitems = sqlitems + " and ParentId="&ParentId&""
if ClassId<>"" then sqlitems = sqlitems + " and ClassId="&ClassId&""
if k<>"" then sqlitems = sqlitems + " and title like '%"&k&"%'"

king_sql="select id,parentid,classid,title,content,imagepath,editor,addtime,pinglunshu,viewnumber,checked,syshow,show1,show2,show3 from "& News_Dbase &" where checked=1 "&sqlitems&" order by id desc"

Set king_rs= Server.CreateObject("ADODB.Recordset")
  const MaxPerPage=40
   dim totalPut
   dim CurrentPage
   dim TotalPages
   dim i,j

   if not isempty(request("page")) then
      currentPage=request("page")
   else
      currentPage=1
   end if

king_rs.open king_sql,conn,1,1
if king_rs.eof and king_rs.bof then
response.write "<tr align=center><td bgcolor=white height=25> 暂无信息！ </td></tr>"
else
totalPut=king_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,"list.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
king_rs.move  (currentPage-1)*MaxPerPage
dim bookmark
bookmark=king_rs.bookmark
showContent
showpage totalput,MaxPerPage,"list.asp"
         else
            currentPage=1
showContent
showpage totalput,MaxPerPage,"list.asp"
end if
end if
king_rs.close
end if
set king_rs=nothing

sub showContent

dim i
i=0
%>
  <tr>
<td width="40" height="30" align="center"><span class="STYLE1">评论</span></td>
<td width="50" align="center"><span class="STYLE1">阅读</span></td>
<td width="260" height="30" align="center"><span class="STYLE1">标题</span></td>
<td width="80" align="center"><span class="STYLE1">编辑</span></td>
<td width="100" align="center"><span class="STYLE1">发布时间</span></td>
</tr>
  <% do while not king_rs.eof
  ParentId =king_rs("ParentId")
  classId=king_rs("classId")
  id=king_rs("id")
  title=trim(king_rs("title"))
  content=king_rs("content")
  imagepath=trim(king_rs("imagepath"))
  addtime=king_rs("addtime")
  pinglunshu=king_rs("pinglunshu")
  viewnumber=king_rs("viewnumber")
  editor=king_rs("editor")

  filepath = getTitleFullPath(parentid,classid,id,title)

  if i mod 2 = 0 then
    bgcolor = "bgcolor='#fffdcb'"
  else
    bgcolor = "bgcolor='#ffffff'"
  end if
%>
  <tr <%=bgcolor%>>
<td height="25" align="center"><%=pinglunshu%> </td>
<td align="center"><%=viewnumber%></td>
<td title="<% response.write "标题："&title %>">
   <%
if ClassId="" then
   response.write getClassName(ClassId)
end if
   %>
   <%imagepath = lcase(imagepath)
   if imagepath="http://" then
imagepath=""
end if
   if imagepath<>"" then response.write "<font color=red>(图)</font>" %>
   <a href="<%=filepath%>" target="_blank" title="<%=title%>">
   <% =title %>
   </a></td>
<td align="center"><%=editor%></td>
<td align="center"><% response.write formatdatetime(addtime,2) %></td>
</tr>
  <%
i=i+1
if i>=MaxPerPage then exit do
king_rs.movenext
loop
%>
</table>
<%
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
response.write "<table align=center width=100% height=18 style=""font:9pt"" bordercolorlight=#51a6e5 bordercolordark=#51a6e5 bgcolor=#eeeeee cellspacing=1 cellpadding=1 border=0><form method=Get action="&filename&">"
response.write "<tr bgcolor=#ffffff><td><p align=right>"
    if CurrentPage<2 then
response.write "<font color='#000000'></font> "
    else
response.write "<a href="&filename&"?page=1&ParentId="&ParentId&"&ClassId="&ClassId&"&k="&k&">首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&ParentId="&ParentId&"&ClassId="&ClassId&"&k="&k&">上一页</a> "
    end if
    if n-currentpage<1 then
response.write "<font color='#000000'></font>"
    else
response.write "<a href="&filename&"?page="&(CurrentPage+1)
response.write "&ParentId="&ParentId&"&ClassId="&ClassId&"&k="&k&">下一页</a> <a href="&filename&"?page="&n&"&ParentId="&ParentId&"&ClassId="&ClassId&"&k="&k&">末页</a>"
    end if
response.write "<font color='#000000'> 共"&totalput&"条/ "&n&"页</b></font>"
   response.write "<font color='#000000'>转到：</font><input type='text' name='page' size=4 maxlength=10 style=""background-color: rgb(255,255,255);border:1px double rgb(88,88,88);"" value="&currentpage&">页"
   response.write "<input name='ParentId' type=hidden value='"&ParentId&"'>"
response.write "<input name='classid' type=hidden value='"&ClassId&"'>"
response.write "<input name='k' type=hidden value='"&k&"'>"
response.write "<input name='bb' type=submit value='Go'></td></tr></form></table>"

end function
%>

wurongzhi 发表于 2008-5-13 18:05

回复 9楼 sunmuking 的帖子

不太懂

页: [1]

落伍者站长论坛's Archiver