📄 admin_sitemap.asp
字号:
<!--#include file="../Conn.asp" -->
<!--#include file="../Inc/Admin_checkuser.asp"-->
<%
Call Admin_Check("其他管理","本功能需要 “其他管理” 权限的支持！")
Dim action,XmlMaxPerPage,Priority,XmlOutNum,UOffset,frequency
Dim Index_I,Index_N
Dim iCount,iPageSize,maxpage,page,x,j,FY_Name,FY_ZZ,FY_ID
Action=FY_CLng(trim(request("Action")))
XmlMaxPerPage=FY_CLng(trim(request("XmlMaxPerPage")))
Priority=trim(request("Priority"))
XmlOutNum=FY_CLng(trim(request("XmlOutNum")))
frequency=ReplaceBadChar(trim(request("frequency")))
UOffset=ReplaceBadChar(trim(request("UOffset")))
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理中心</title>
<LINK href="../images/admin/Admin.css" type=text/css rel=stylesheet>
</head>
<body>
<%If Action=2 And XmlOutNum<>0 And XmlMaxPerPage<>0 Then
Response.Write "<table border=0 align=center cellpadding=3 width=""100%"" cellspacing=1 class=KenQiao_Net_bk style=""border-collapse: collapse"">" & vbNewLine
Response.Write "<tr class=KenQiao_Net_ss>" & vbNewLine
Response.Write " <th width='100%' align=center>HTML地图生成处理</th>" & vbNewLine
Response.Write "</tr>" & vbNewLine
set rs=server.createobject("adodb.recordset")
sql="select Top "&XmlOutNum&" 编号,类别,更新时间,书名,作者 from 小说 order by 更新时间,编号 desc"
rs.open sql,conn,1,1
If rs.eof and rs.bof then
Response.Write "<tr class=KenQiao_Net_ds> <td height=24 colspan=5 align=center class='TableRow1'>暂时没有小说，不能进行生成操作</td></tr>"
else
rs.PageSize =XmlMaxPerPage '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=ReplaceBadChar(request("page"))
If Not IsNumeric(page) or page="" then
page=1
Else
page=cint(page)
End If
If page<1 then
page=1
ElseIf page>maxpage then
page=maxpage
End If
rs.AbsolutePage=Page
If page=maxpage then
x=iCount-(maxpage-1)*iPageSize
Else
x=iPageSize
End If
Index_N="<html>" & vbNewLine
Index_N=Index_N&"<head>" & vbNewLine
Index_N=Index_N&"<title>"&FY_Config(0)&"-SiteMap</title>" & vbNewLine
Index_N=Index_N&"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbNewLine
Index_N=Index_N&"<link href='../../images/SiteMap_Css.css' rel='stylesheet' type='text/css'>" & vbNewLine
Index_N=Index_N&"</head>" & vbNewLine
Index_N=Index_N&"<body>" & vbNewLine
Index_N=Index_N&"<table width='760' align='center'><tr><td>" & vbNewLine
Index_N=Index_N&"<a href='"&FY_Config(3)&InstallDir&"'>"&FY_Config(0)&"</a> >> 全站小说索引 >> 第"&Page&"页:<br>" & vbNewLine
for j=1 to rs.pagesize
Response.Write "<tr class=KenQiao_Net_ds>" & vbNewLine
Response.Write " <td class='TableRow1'>《<span style=""color: red;"">"&rs("书名")&"</span>》 编入此页索引" & vbNewLine
Response.Write "</tr>" & vbNewLine
Index_N=Index_N&"<li><a href='"&FY_Config(3)&""&FY_Novel_Url(rs("编号"),rs("类别"))&"' title='小说："&rs("书名")&"'>"&rs("书名")&"</a> - ["&rs("作者")&"]</li>" & vbNewLine
rs.movenext
If rs.eof then exit for
next
Index_N=Index_N&"<br><br>分页: "
for j=1 to maxpage
If J=Page Then
Index_N=Index_N&"["&j&"] "
Else
If j=1 Then
Index_N=Index_N&" <a href='Index.htm'>"&j&"</a> "
Else
Index_N=Index_N&" <a href='"&j&".htm'>"&j&"</a> "
End if
End if
next
Index_N=Index_N&"</td></tr></table></body></html>"
If Page=1 Then
createhtml InstallDir&"sitemap/Html/Index.Htm",Index_N
Else
createhtml InstallDir&"sitemap/Html/"&Page&".Htm",Index_N
End if
Index_N=""
Response.Write "<tr class=KenQiao_Net_ds>" & vbNewLine
Response.Write " <td class='TableRow1' align=center>" & vbNewLine
If Page=1 Then
Response.Write " "&FY_Config(3)&""&InstallDir&"sitemap/Html/Index.Htm 生成完毕</td>" & vbNewLine
Else
Response.Write " "&FY_Config(3)&""&InstallDir&"sitemap/Html/"&Page&".Htm 生成完毕</td>" & vbNewLine
End if
Response.Write "</tr>" & vbNewLine
If maxpage<=page Then
Response.Write "<tr class=KenQiao_Net_ds> <td height=24 colspan=5 align=center class='TableRow2'><B><span style=""color: red;"">HTML地图全部转换地图生成完毕，请离开此页</b></span></td></tr><meta http-equiv=""refresh"" content=""4;url=?Action=0"">"
Else
Response.Write "<tr class=KenQiao_Net_ds> <td height=24 colspan=5 align=center class='TableRow2'>目前HTML地图生成了 <B><span style=""color: red;"">"&page&"</span></B> 页信息，剩余 <B><span style=""color: red;"">"&maxpage-page&"</span></B> 等待转换生成！<br><B><span style=""color: red;"">4</span></B> 秒之后信息自动转页，您无需进行任何操作.......</td></tr><meta http-equiv=""refresh"" content=""4;url=?Action="&Action&"&XmlOutNum="&XmlOutNum&"&Priority="&Priority&"&frequency="&frequency&"&UOffset="&UOffset&"&XmlMaxPerPage="&XmlMaxPerPage&"&page="&page+1&""">"
End if
End if
Rs.Close:Set Rs = Nothing
Response.Write "</table>"
ElseIf Action=1 And XmlOutNum<>0 And XmlMaxPerPage<>0 Then
Response.Write "<table border=0 align=center cellpadding=3 width=""100%"" cellspacing=1 class=KenQiao_Net_bk style=""border-collapse: collapse"">" & vbNewLine
Response.Write "<tr class=KenQiao_Net_ss>" & vbNewLine
Response.Write " <th width='100%' align=center>Google地图生成处理</th>" & vbNewLine
Response.Write "</tr>" & vbNewLine
set rs=server.createobject("adodb.recordset")
sql="select Top "&XmlOutNum&" 编号,类别,更新时间,书名 from 小说 order by 更新时间,编号 desc"
rs.open sql,conn,1,1
If rs.eof and rs.bof then
Response.Write "<tr class=KenQiao_Net_ds> <td height=24 colspan=5 align=center class='TableRow1'>暂时没有小说，不能进行生成操作</td></tr>"
else
rs.PageSize =XmlMaxPerPage '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=ReplaceBadChar(request("page"))
If Not IsNumeric(page) or page="" then
page=1
Else
page=cint(page)
End If
If page<1 then
page=1
ElseIf page>maxpage then
page=maxpage
End If
rs.AbsolutePage=Page
If page=maxpage then
x=iCount-(maxpage-1)*iPageSize
Else
x=iPageSize
End If
Index_N="<?xml version=""1.0"" encoding=""UTF-8""?>" & vbNewLine
Index_N=Index_N&"<urlset xmlns=""http://www.google.com/schemas/sitemap/0.84"">" & vbNewLine
for j=1 to rs.pagesize
Response.Write "<tr class=KenQiao_Net_ds>" & vbNewLine
Response.Write " <td class='TableRow1'>《<span style=""color: red;"">"&rs("书名")&"</span>》 编入此页索引" & vbNewLine
Response.Write "</tr>" & vbNewLine
Index_N=Index_N&"<url>" & vbNewLine
Index_N=Index_N&"<loc>"&FY_Config(3)&""&FY_Novel_Url(rs("编号"),rs("类别"))&"</loc>" & vbNewLine
Index_N=Index_N&"<lastmod>"&iso8601date(rs("更新时间"), UOffset)&"</lastmod>" & vbNewLine
Index_N=Index_N&"<changefreq>"&frequency&"</changefreq>" & vbNewLine
Index_N=Index_N&"<priority>"&Priority&"</priority>" & vbNewLine
Index_N=Index_N&"</url>" & vbNewLine
rs.movenext
If rs.eof then exit for
next
Index_N=Index_N&"</urlset>"
createhtml InstallDir&"sitemap/Novel_"&Page&".xml",Index_N
Index_N=""
Response.Write "<tr class=KenQiao_Net_ds>" & vbNewLine
Response.Write " <td class='TableRow1' align=center>"&FY_Config(3)&""&InstallDir&"sitemap/Novel_"&Page&".xml 生成完毕</td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
If maxpage<=page Then
Index_N="<?xml version=""1.0"" encoding=""UTF-8""?>" & vbNewLine
Index_N=Index_N&"<sitemapindex xmlns=""http://www.google.com/schemas/sitemap/0.84"">" & vbNewLine
For Index_I=1 To maxpage
Index_N=Index_N&"<sitemap>" & vbNewLine
Index_N=Index_N&"<loc>"&FY_Config(3)&""&InstallDir&"sitemap/Novel_"&Index_I&".xml</loc>" & vbNewLine
Index_N=Index_N&"<lastmod>"&iso8601date(Now(), UOffset)&"</lastmod>" & vbNewLine
Index_N=Index_N&"</sitemap>" & vbNewLine
Next
Index_N=Index_N&"</sitemapindex>"
createhtml InstallDir&"sitemap/Index.xml",Index_N
Index_N=""
Response.Write "<tr class=KenQiao_Net_ds> <td height=24 colspan=5 align=center class='TableRow2'>引导页面生成页面（<a href='"&InstallDir&"sitemap/index.xml' target='_blank'>"&InstallDir&"sitemap/index.xml</a>）<font color=red>生成成功!</font>， [<a href='http://www.google.com/webmasters/sitemaps/ping?sitemap="&FY_Config(3)&""&InstallDir&"sitemap/index.xml' target='_blank'>点击这里提交到Google</a>]</b><br><br></td></tr>"
Response.Write "<tr> <td height=24 colspan=5 align=center class='TableRow2'><B><span style=""color: red;"">Google地图全部转换地图生成完毕，请离开此页</td></tr><meta http-equiv=""refresh"" content=""4;url=?Action=0"">"
Else
Response.Write "<tr class=KenQiao_Net_ds> <td height=24 colspan=5 align=center class='TableRow2'>目前Google地图生成了 <B><span style=""color: red;"">"&page&"</span></B> 页信息，剩余 <B><span style=""color: red;"">"&maxpage-page&"</span></B> 等待转换生成！<br><B><span style=""color: red;"">4</span></B> 秒之后信息自动转页，您无需进行任何操作.......</td></tr><meta http-equiv=""refresh"" content=""4;url=?Action="&Action&"&XmlOutNum="&XmlOutNum&"&Priority="&Priority&"&frequency="&frequency&"&UOffset="&UOffset&"&XmlMaxPerPage="&XmlMaxPerPage&"&page="&page+1&""">"
End if
End if
Rs.Close:Set Rs = Nothing
Response.Write "</table>"
Else
Response.Write "<table border=0 align=center cellpadding=3 width=""100%"" cellspacing=1 class=KenQiao_Net_bk style=""border-collapse: collapse"">" & vbNewLine
Response.Write " <tr class=KenQiao_Net_ss>" & vbNewLine
Response.Write " <th><strong>Google地图生成操作</strong></th></tr>" & vbNewLine
Response.Write " <tr class=KenQiao_Net_ds height=25>" & vbNewLine
Response.Write " <td class='TableRow1'><B>说明：</B><br> " & vbNewLine
Response.Write "①、生成符合GOOGLE规范的XML格式地图页面。<br>" & vbNewLine
Response.Write "②、利于GOOGLE收录、更新站点信息，可以一定程度上增加GOOGLE来源。" & vbNewLine
Response.Write " </td>" & vbNewLine
Response.Write " </tr>" & vbNewLine
Response.Write "<tr class=KenQiao_Net_ds>" & vbNewLine
Response.Write " <td class='TableRow1' align=center>"%>
<table width='100%' border='0' cellspacing='0' cellpadding='0'><a href='http://www.google.com/webmasters/sitemaps/login' target='_blank'><img src="http://www.google.cn/intl/zh-CN/images/logo_cn.gif" border=0></a>
<form name='formxmlmap' method='post' action='Admin_Sitemap.asp?Action=1'>
<tr><td>
总输出数量<input name='XmlOutNum' id='XmlOutNum' value='<%=FY_Config(10)%>' size=10 maxlength='5'> <font color=#888888>地图总输出小说数量</font> [<B><span style="color: red;">建议按实际情况填写，否则可能引发不收录信息的问题</span></B>]<br>
每页连接数<input name='XmlMaxPerPage' id='XmlMaxPerPage' value='100' size=10 maxlength='4'> <font color=#888888>每页连接数,GOOGLE规范要求不得大于５０００</font><br>
时区偏移<input name='UOffset' id='UOffset' value='08' size=10 maxlength='2'> <font color=#888888>默认中国大陆为８</font><br>
更新频率<SELECT name=frequency> <OPTION value=always>随时更新</OPTION> <OPTION value=hourly>每 小 时</OPTION> <OPTION value=daily selected>每天更新</OPTION> <OPTION value=weekly>每周更新</OPTION> <OPTION value=monthly>每月更新</OPTION> <OPTION value=yearly>每年更新</OPTION> <OPTION value=never>从不更新</OPTION></SELECT> <font color=#888888>根据站点内容更新情况自行选择</font><br>
权 重<input name='Priority' id='Priority' value='0.5' size=10 maxlength='3'> <font color=#888888>0-1.0之间,推荐使用默认值</font><br>
<input name='submit' type='submit' id='submit' value='开始生成>>'>
</td></tr>
</form>
</table>
<%Response.Write "</td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write "</table>"
Response.Write "<table border=0 align=center cellpadding=3 width=""100%"" cellspacing=1 class=KenQiao_Net_bk style=""border-collapse: collapse"">" & vbNewLine
Response.Write " <tr class=KenQiao_Net_ss>" & vbNewLine
Response.Write " <th><strong>HTML地图生成操作</strong></th></tr>" & vbNewLine
Response.Write " <tr class=KenQiao_Net_ds height=25>" & vbNewLine
Response.Write " <td class='TableRow1'><B>说明：</B><br> " & vbNewLine
Response.Write "①、由于百度不收录非新闻类的XML，所以提供此索引程序供蜘蛛来爬。<br>" & vbNewLine
Response.Write "②、此地图适应全部搜索引擎的获取，但必须要在自己的站点上添加一个连接才有较好的效果。" & vbNewLine
Response.Write " </td>" & vbNewLine
Response.Write " </tr>" & vbNewLine
Response.Write "<tr class=KenQiao_Net_ds>" & vbNewLine
Response.Write " <td class='TableRow1' align=center>"%>
<table width='100%' border='0' cellspacing='0' cellpadding='0'><a href='http://www.baidu.com' target='_blank'><img src="http://www.baidu.com/img/baidu_logo.gif" border=0></a>
<form name='formxmlmap' method='post' action='Admin_Sitemap.asp?Action=2'>
<tr><td>
总输出数量<input name='XmlOutNum' id='XmlOutNum' value='<%=FY_Config(10)%>' size=10 maxlength='5'> <font color=#888888>地图总输出小说数量</font> [<B><span style="color: red;">建议按实际情况填写，否则可能引发不收录信息的问题</span></B>]<br>
每页连接数<input name='XmlMaxPerPage' id='XmlMaxPerPage' value='100' size=10 maxlength='4'> <font color=#888888>每页连接数,GOOGLE规范要求不得大于５０００</font><br>
<input name='submit' type='submit' id='submit' value='开始生成>>'>
</td></tr>
</form>
</table>
<%Response.Write "</td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write "</table>"
End if
'**************************************************
'函数名：iso8601date
'作 用：时间格式转换
'**************************************************
Function iso8601date(dLocal, utcOffset)
Dim d, d1
d = DateAdd("H", -1 * utcOffset, dLocal)
If Len(utcOffset) < 2 Then
d1 = "0" & utcOffset
Else
d1 = utcOffset
End If
iso8601date = Year(d) & "-" & Right("0" & Month(d), 2) & "-" & Right("0" & Day(d), 2) & "T"
iso8601date = iso8601date & (Right("0" & Hour(d), 2) & ":" & Right("0" & Minute(d), 2) & ":" & Right("0" & Second(d), 2))
If utcOffset < 0 Then
iso8601date = iso8601date & ("-" & d1 & ":00")
Else
iso8601date = iso8601date & ("+" & d1 & ":00")
End If
End Function
call admin_footer()
%></body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -