📄 admin_createother.asp
字号:
<!--#include file="Admin_Common.asp"-->
<!--#include file="../Include/PowerEasy.Common.Content.asp"-->
<!--#include file="../Include/PowerEasy.Common.Rss.asp"-->
<!--#include file="../Include/PowerEasy.FSO.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Const NeedCheckComeUrl = True '是否需要检查外部访问
Const PurviewLevel = 1 '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 1 '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "" '其他权限
Dim strtmp, MaxPageCol, OutNum, XmlMaxPerPage, XmlOutNum, frequency, Priority, ArtPage, SoftPage, PhotoPage, ProductPage
Dim UOffset, Action2
Dim SubNode, BlogID, SiteLogoUrl, PriClassID, ClassField(5)
Dim strNoSee, strDefAuthor
Action2 = Trim(Request("Action2"))
If Right(SiteUrl, 1) <> "/" Then SiteUrl = SiteUrl & "/"
SiteLogoUrl = SiteUrl & LogoUrl
%>
<html><head><title>生成网站综合数据</title>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<link href='Admin_Style.css' rel='stylesheet' type='text/css'>
</head>
<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>
<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>
<tr class='topbg'>
<td height='22' colspan='2' align='center'><strong>生成网站综合数据</strong></td>
</tr>
<tr class='tdbg'>
<td width='70' height='30'><strong>生成说明：</strong></td>
<td>生成操作比较消耗系统资源及费时，每次生成时，请尽量减少要生成的文件量。</td>
</tr>
</table>
<br>
<%
If Action2 = "" Then
%>
<table width='100%' border='0' align='center' cellpadding='3' cellspacing='1' class='border'>
<tr><td class='title'>RSS生成操作</td></tr>
<tr><td class='tdbg'>
<table width='530' border='0' align='center' cellpadding='0' cellspacing='0'>
<form name='formrss' method='post' action='Admin_CreateOther.asp'>
<tr><td height='40'>
生成网站首页的ＲＳＳ页面，当您禁用ＲＳＳ或网站首页为动态ＡＳＰ格式时，本功能无效。<br>
<input name='Action2' type='hidden' id='Action2' value='CreateRss'>
<input name='submit' type='submit' id='submit' value='开始生成>>'>
</td></tr>
</form>
</table>
</td></tr>
<tr><td class='title'>Google地图生成操作</td></tr>
<tr><td align='center' class='tdbg'>
<table width='530' border='0' cellspacing='0' cellpadding='0'><a href='http://www.google.com/webmasters/sitemaps/login' target='_blank'><img src="images/GoogleSiteMaplogo.gif" border=0></a>生成符合GOOGLE规范的XML格式地图页面
<form name='formxmlmap' method='post' action='Admin_CreateOther.asp'>
<tr><td>
总输出数量<input name='XmlOutNum' id='XmlOutNum' value='500' size=10 maxlength='5'> <font color=#888888>地图总输出数量</font><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>每天更新</OPTION> <OPTION value=weekly>每周更新</OPTION> <OPTION value=monthly selected>每月更新</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='Action2' type='hidden' id='Action2' value='CreateGoogleMap'>
<input name='submit' type='submit' id='submit' value='开始生成>>'>
</td></tr>
</form>
</table>
</td></tr>
<tr><td class='title'>BaiDu地图生成操作</td></tr>
<tr><td align='center' class='tdbg'>
<table width='530' border='0' cellspacing='0' cellpadding='0'><a href='http://news.baidu.com/newsop.html' target='_blank'><img src="images/BaiduSiteMaplogo.gif" border=0></a>生成符合百度规范的XML格式地图页面
<form name='formxmlmap' method='post' action='Admin_CreateOther.asp'>
<tr><td>
总输出数量<input name='XmlOutNum' id='XmlOutNum' value='450' size=10 maxlength='5'> <font color=#888888>地图总输出数量</font><br>
每页连接数<input name='XmlMaxPerPage' id='XmlMaxPerPage' value='90' size=10 maxlength='4'> <font color=#888888>每页连接数,百度规范要求不得大于100</font><br>
更新频率<input name='frequency' id='frequency' value='1440' size=10 maxlength='6'> <font color=#888888>更新周期，以分钟为单位。搜索引擎将遵照此周期访问该页面，使页面上的新闻更及时地出现在百度新闻中</font><br>
<input name='Action2' type='hidden' id='Action2' value='CreateBaiDuMap'>
<input name='submit' type='submit' id='submit' value='开始生成>>'>
</td></tr>
</form>
</table>
</td></tr>
<tr><td class='title'>其它类HTML格式地图生成操作</td></tr>
<tr><td align='center' class='tdbg'>
<table width='530' border='0' cellspacing='0' cellpadding='0'>
<form name='formap' method='post' action='Admin_CreateOther.asp'>
<tr><td>
生成HTML格式的全站地图页面。<br>
总输出数量<input name='OutNum' id='OutNum' value='500' size=8 maxlength='5'> <font color=#888888>ＨＴＭＬ地图总输出数量</font><br>
每页连接数<input name='MaxPerPage' id='MaxPerPage' value='100' size=8 maxlength='3'> <font color=#888888>每页输出数量，不能大于１００</font><br>
分页换行数<input name='MaxPageCol' id='MaxPageCol' value='27' size=8 maxlength='2'> <font color=#888888>地图分页连接每行显示数</font><br>
<input name='Action2' type='hidden' id='Action2' value='CreateMap'>
<input name='submit' type='submit' id='submit' value='开始生成>>'>
</td></tr>
</form>
</table>
</td></tr>
</table>
<%
Else
Select Case Action2
Case "CreateRss"
If EnableRss = True Then
Call GetRssIndex_file
Response.Write "<br><br><a href='Admin_CreateOther.asp'><< 返回生成管理</a>"
Else
Response.Write "<br><br><b>您已经禁用了RSS功能,页面未生成..........<a href='Admin_CreateOther.asp'><< 返回生成管理</a></b>"
End If
Case "CreateMap"
OutNum = Trim(Request("OutNum"))
If OutNum = "" Or Not IsNumeric(OutNum) Then
OutNum = 500
Else
OutNum = Int(OutNum)
End If
MaxPerPage = Int(Trim(Request("MaxPerPage")))
If MaxPerPage = "" Or Not IsNumeric(MaxPerPage) Then
MaxPerPage = 100
Else
MaxPerPage = Int(MaxPerPage)
End If
MaxPageCol = Int(Trim(Request("MaxPageCol")))
If MaxPageCol = "" Or Not IsNumeric(MaxPageCol) Then
MaxPageCol = 27
Else
MaxPageCol = Int(MaxPageCol)
End If
Call CreateMultiFolder(InstallDir & "SiteMap")
Response.Write "<br><br><b>正在生成文章类Map页面.........."
Call OutArticleMap
Response.Write "</b>"
Response.Write "<br><br><b>正在生成软件类Map页面.........."
Call OutSoftMap
Response.Write "</b>"
Response.Write "<br><br><b>正在生成图片类Map页面.........."
Call OutPhotoMap
Response.Write "</b>"
Response.Write "<br><br><b>正在生成商品类Map页面.........."
Call OutProductMap
Response.Write "</b>"
Response.Write "<br><br><a href='Admin_CreateOther.asp'><< 返回生成管理</a>"
Case "CreateGoogleMap"
XmlOutNum = Trim(Request("XmlOutNum"))
If XmlOutNum = "" Or Not IsNumeric(XmlOutNum) Then
XmlOutNum = 500
Else
XmlOutNum = Int(XmlOutNum)
End If
XmlMaxPerPage = Trim(Request("XmlMaxPerPage"))
If XmlMaxPerPage = "" Or Not IsNumeric(XmlMaxPerPage) Then
XmlMaxPerPage = 27
Else
XmlMaxPerPage = Int(XmlMaxPerPage)
End If
UOffset = Trim(Request("UOffset"))
If UOffset = "" Or Not IsNumeric(UOffset) Then
UOffset = 8
Else
UOffset = Int(UOffset)
End If
frequency = Trim(Request("frequency"))
If frequency = "" Then frequency = "Monthly"
Priority = Trim(Request("Priority"))
If Priority = "" Then Priority = "0.5"
Response.Write "<br><br><b>正在生成GOOGLE规范XML地图文章页面.........."
Call OutXmlMap(1)
Response.Write "</b>"
Response.Write "<br><br><b>正在生成GOOGLE规范XML地图软件页面.........."
Call OutXmlMap(2)
Response.Write "</b>"
Response.Write "<br><br><b>正在生成GOOGLE规范XML地图图片页面.........."
Call OutXmlMap(3)
Response.Write "</b>"
Response.Write "<br><br><b>正在生成GOOGLE规范XML地图商品页面.........."
Call OutXmlMap(5)
Response.Write "</b>"
Response.Write "<br><br><b>正在生成GOOGLE规范XML地图索引页面.........."
Call OutXmlIndexMap
Response.Write "</b>"
Response.Write "<br><br><a href='Admin_CreateOther.asp'><< 返回生成管理</a>"
Case "CreateBaiDuMap"
XmlOutNum = Trim(Request("XmlOutNum"))
If XmlOutNum = "" Or Not IsNumeric(XmlOutNum) Then
XmlOutNum = 100
Else
XmlOutNum = Int(XmlOutNum)
End If
XmlMaxPerPage = Trim(Request("XmlMaxPerPage"))
If XmlMaxPerPage = "" Or Not IsNumeric(XmlMaxPerPage) Then
XmlMaxPerPage = 27
Else
XmlMaxPerPage = Int(XmlMaxPerPage)
End If
frequency = Trim(Request("frequency"))
If frequency = "" Or Not IsNumeric(frequency) Then
frequency = 1440
Else
frequency = Int(frequency)
End If
Response.Write "<br><br><b>正在生成百度规范XML地图文章页面.........."
Call OutBaiDuMap(1)
Response.Write "</b>"
Response.Write "<br><br><b>正在生成百度规范XML地图软件页面.........."
Call OutBaiDuMap(2)
Response.Write "</b>"
Response.Write "<br><br><b>正在生成百度规范XML地图图片页面.........."
Call OutBaiDuMap(3)
Response.Write "</b>"
Response.Write "<br><br><b>正在生成百度规范XML地图商品页面.........."
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -