📄 admin_createother.asp
字号:
<%@language=vbscript codepage=936 %>
<%
Option Explicit
Response.Buffer = False
Const PurviewLevel = 1
Const PurviewLevel_Channel = 0
Const PurviewLevel_Others = ""
Server.ScriptTimeOut = 99999999
%>
<!--#include file="../conn.asp"-->
<!--#include file="../inc/Function.asp"-->
<!--#include file="Admin_ChkPurview.asp"-->
<%
Dim strtmp, hf, fso, ObjInstalled_FSO, MaxPerPage, MaxPageCol, OutNum, XmlMaxPerPage, XmlOutNum, frequency, Priority, ArtPage, SoftPage, PhotoPage, ProductPage
Dim EnableRss, UOffset, Action2
Action2 = Trim(Request("Action2"))
Dim rsConfig
Set rsConfig = Conn.Execute("select EnableRss from PE_Config")
If rsConfig.bof And rsConfig.EOF Then
rsConfig.Close
Set rsConfig = Nothing
Response.Write "网站配置数据丢失！系统无法正常运行！"
Response.End
Else
EnableRss = rsConfig("EnableRss")
End If
rsConfig.Close
Set rsConfig = Nothing
If Right(SiteUrl, 1) <> "/" Then SiteUrl = SiteUrl & "/"
%>
<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'>XML生成操作</td></tr>
<tr><td class='tdbg'>
<table width='530' border='0' align='center' cellpadding='0' cellspacing='0'>
<form name='formxml' method='post' action='Admin_CreateOther.asp'>
<tr><td height='40'>
生成ＸＭＬ数据交换页，地址为<a href='<% =SiteUrl %>xml/xml.xml' target='_blank'><% =SiteUrl %>xml/xml.xml</a><br>
<input name='Channel' type='checkbox' id='Channel' value='True' checked>生成频道数据<br>
<input name='Guest' type='checkbox' id='Guest' value='True' checked>生成留言数据<br>
<input name='Author' type='checkbox' id='Author' value='True' checked>生成作者数据<br>
<input name='User' type='checkbox' id='User' value='True' checked>生成会员数据<br>
<input name='Site' type='checkbox' id='Site' value='True' checked>生成友情站点<br>
<input name='Announce' type='checkbox' id='Announce' value='True' checked>生成公告列表<br>
<input name='Action2' type='hidden' id='Action2' value='CreateXml'>
<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>
<tr><td class='title'>XML地图生成操作</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='CreateXmlMap'>
<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 "CreateXml"
Call PE_CreateXml
Response.Write "<br><br><a href='Admin_CreateOther.asp'><< 返回生成管理</a>"
Case "CreateMap"
ObjInstalled_FSO = IsObjInstalled(objName_FSO)
If ObjInstalled_FSO = True Then Set fso = Server.CreateObject(objName_FSO)
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
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>"
If CMS_Edition > 0 Then
Response.Write "<br><br><b>正在生成商品类Map页面.........."
Call OutProductMap
Response.Write "</b>"
End If
Response.Write "<br><br><a href='Admin_CreateOther.asp'><< 返回生成管理</a>"
Case "CreateXmlMap"
ObjInstalled_FSO = IsObjInstalled(objName_FSO)
If ObjInstalled_FSO = True Then Set fso = Server.CreateObject(objName_FSO)
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>"
If CMS_Edition > 0 Then
Response.Write "<br><br><b>正在生成GOOGLE规范XML地图商品页面.........."
Call OutXmlMap(5)
Response.Write "</b>"
End If
Response.Write "<br><br><b>正在生成GOOGLE规范XML地图索引页面.........."
Call OutXmlIndexMap
Response.Write "</b>"
Response.Write "<br><br><a href='Admin_CreateOther.asp'><< 返回生成管理</a>"
Case Else
Response.Write "<br><br><b>参数错误..........<a href='Admin_CreateOther.asp'><< 返回生成管理</a></b>"
End Select
Set hf = Nothing
End If
%>
</body>
</html>
<!-- Powered by: PowerEasy 2006 -->
<%
Sub GetRssIndex_file()
On Error Resume Next
Dim PE_Rss
Set PE_Rss = Server.CreateObject("PE_CMS6.ShowRss")
PE_Rss.iConnStr = ConnStr
PE_Rss.iSystemDatabaseType = SystemDatabaseType
If Err Then
Err.Clear
Response.Write "对不起，你的服务器没有安装动易组件（PE_CMS6.dll），所以不能使用动易系统。请和你的空间商联系以安装动易组件。"
Exit Sub
End If
Call PE_Rss.GetRssIndex_file
Set PE_Rss = Nothing
If Err Then
Response.Write "错 误 号：" & Err.Number & "<BR>"
Response.Write "错误描述：" & Err.Description & "<BR>"
Response.Write "错误来源：" & Err.Source & "<BR>"
Err.Clear
End If
End Sub
Sub PE_CreateXml()
On Error Resume Next
Dim PE_Xml
Set PE_Xml = Server.CreateObject("PE_CMS6.Xml")
PE_Xml.iConnStr = ConnStr
PE_Xml.iCMS_Edition = CMS_Edition
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -