⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 index.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
字号:
🔍 
<!--#include FILE="../../Inc/Conn.asp"-->
<!--#include file="../../Inc/Cls.Common.asp"-->
<!--#include file="../Cook.asp"-->
<%
Call FlagA()
Select Case WRMPS.CheckStr(Request("Action"),0)
  Case "Save"
    Dim SiteMapConfig,MapStr,changefreq,prioritynum,big
	changefreq = WRMPS.CheckStr(Request("changefreq"),0)
	prioritynum = WRMPS.CheckStr(Request("prioritynum"),1)
	If prioritynum = "" Then prioritynum = 100
	big = WRMPS.CheckStr(Request("big"),8)
	'If Instr(big,".") = 0 Then big = "0"&big
	If big = "" Then big = 0.5
	
    SiteMapConfig = "changefreq="&changefreq & vbCrLf
    SiteMapConfig = SiteMapConfig & "prioritynum="&prioritynum & vbCrLf
    SiteMapConfig = SiteMapConfig & "big="&big

    UrlPath = WR_Setting(4)
    MapStr = "<?xml version=""1.0"" encoding=""UTF-8""?>" & vbCrLf
    MapStr = MapStr & "<urlset xmlns=""http://www.google.com/schemas/sitemap/0.84"">" & vbCrLf
    Call DBConnBegin()
    Set Rs = Server.CreateObject("ADODB.Recordset")
    SQL = "Select Top "&prioritynum&" WM_ID,WM_PostTime,WM_ChannelID,WM_ChannelDir,WM_ClassDir From WM_ClassAD Where WM_Key=1 Order By WM_ID Desc"
    Rs.Open SQL,Conn,1,1
    Do While Not Rs.Eof
        MapStr = MapStr & "  <url>" & vbCrLf
        MapStr = MapStr & "    <loc>"&WRMPS.GetShowUrl(1,1,0,Rs(0),Rs(1),Rs(3)&Rs(4),Rs(2))&"</loc>" & vbCrLf
        MapStr = MapStr & "    <lastmod>"&Year(Rs(1))&"-"&right("0"&Month(Rs(1)),2)&"-"&right("0"  &  Day(Rs(1)),2)&"</lastmod>" & vbCrLf
        MapStr = MapStr & "    <changefreq>"&changefreq&"</changefreq>" & vbCrLf
        MapStr = MapStr & "    <priority>"&big&"</priority>" & vbCrLf
        MapStr = MapStr & "  </url>" & vbCrLf
    Rs.MoveNext
    Loop
    Rs.Close
    SQL = "Select Top "&prioritynum&" WM_ID,WM_CheckTime From WM_Company Where WM_Key=1 Order By WM_ID Desc"
    Rs.Open SQL,Conn,1,1
    Do While Not Rs.Eof
        MapStr = MapStr & "  <url>" & vbCrLf
        MapStr = MapStr & "    <loc>"&WRMPS.GetCompanyUrl(Rs(0))&"</loc>" & vbCrLf
        MapStr = MapStr & "    <lastmod>"&Year(Rs(1))&"-"&right("0"&Month(Rs(1)),2)&"-"&right("0"  &  Day(Rs(1)),2)&"</lastmod>" & vbCrLf
        MapStr = MapStr & "    <changefreq>"&changefreq&"</changefreq>" & vbCrLf
        MapStr = MapStr & "    <priority>"&big&"</priority>" & vbCrLf
        MapStr = MapStr & "  </url>" & vbCrLf
    Rs.MoveNext
    Loop
    Rs.Close
    SQL = "Select Top "&prioritynum&" WM_ID,WM_AddTime,WM_ChannelID,WM_ChannelDir,WM_ClassDir From WM_Article Where WM_IsDeleted=0 and WM_Passed=1 Order By WM_ID Desc"
    Rs.Open SQL,Conn,1,1
    Do While Not Rs.Eof
        MapStr = MapStr & "  <url>" & vbCrLf
        MapStr = MapStr & "    <loc>"&WRMPS.GetShowUrl(1,1,0,Rs(0),Rs(1),Rs(3)&Rs(4),Rs(2))&"</loc>" & vbCrLf
        MapStr = MapStr & "    <lastmod>"&Year(Rs(1))&"-"&right("0"&Month(Rs(1)),2)&"-"&right("0"  &  Day(Rs(1)),2)&"</lastmod>" & vbCrLf
        MapStr = MapStr & "    <changefreq>"&changefreq&"</changefreq>" & vbCrLf
        MapStr = MapStr & "    <priority>"&big&"</priority>" & vbCrLf
        MapStr = MapStr & "  </url>" & vbCrLf
    Rs.MoveNext
    Loop
    Rs.Close
    Set Rs = Nothing
    Call DBConnEnd()
    MapStr = MapStr & "</urlset>"
    Call WRMPS.FsoBegin()
    Call WRMPS.CreateFile("config.txt",SiteMapConfig)
    Call WRMPS.CreateFile("../../sitemap.xml",MapStr)
	Call WRMPS.FsoEnd()
    Call WRMPS.ErrView("·恭喜，sitemap.xml生成完毕！<br>·<a href=../../sitemap.xml target=_blank>点击查看生成好的sitemap.xml文件</a><meta http-equiv=refresh content='1;URL=index.asp'>",1)
    Call ClassEnd()
	
  Case Else
    Call WRMPS.FsoBegin()
	  If WRMPS.FsoIsTrue("File","config.txt") Then
	    MapStr = WRMPS.GetHtml("config.txt")
	  Else
	    MapStr = "changefreq=daily"&vbCrLf&"prioritynum=100"&vbCrLf&"big=0.9"
	  End If
	Call WRMPS.FsoEnd()
	MapStr = Split(MapStr,vbCrLf)
	
	Call PlusTop()
%>
<style>
.border{border: 1px solid #449AE8;background:#ffffff;}
.sort{background:#E0EEFD;
	padding-left: 5px;
	padding-right: 5px;
	border-top: 1px solid threedhighlight;
	border-left: 1px solid threedhighlight;
	border-right: 1px solid threedshadow;
	border-bottom: 1px solid threedshadow;}
.Title{background:#009AE8;color: #ffffff;font-weight: normal;}
.tdbg{background:#EEF8FE;}
BODY,TEXTAREA,input,select{
	SCROLLBAR-FACE-COLOR: #3A6592; 
	SCROLLBAR-HIGHLIGHT-COLOR: #3A6592; 
	SCROLLBAR-SHADOW-COLOR: #3A6592; 
	SCROLLBAR-DARKSHADOW-COLOR: #3A6592; 
	SCROLLBAR-3DLIGHT-COLOR: #3A6592; 
	SCROLLBAR-ARROW-COLOR: #FFFFFF;
	SCROLLBAR-TRACK-COLOR: #4DB5E4;
	color:#135294}
BODY,td,div,table{FONT-SIZE: 9pt;line-height:150%;word-break:break-all;margin:0}
A  	{COLOR: #135294; TEXT-DECORATION: None}
A:link	{COLOR: #135294; TEXT-DECORATION: None}
A:visited{COLOR: #135294; TEXT-DECORATION: None}
A:hover	{COLOR: red; TEXT-DECORATION: None}
A:active	{TEXT-DECORATION: none}
</style>

<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="25" class="Sort">
 <div align="center"><strong>XML地图生成操作</strong></div></td>
</tr>
</table>

<form id="form1" name="bqsitemapform" method="post" action="Index.asp?Action=Save">
<table width="600" border="0" align="center" cellpadding="6" cellspacing="0">
  <tr>
    <td><div id="overstr"></div></td>
  </tr>
</table>
<table width="600" border="0" align="center" cellpadding="6" cellspacing="0" class="border">
  <tr class="Title">
    <td>★XML地图生成操作</td>
  </tr>
  <tr class="tdbg">
    <td height="17" align="center">
	<a href='http://www.google.com/webmasters/sitemaps/login' target='_blank'><img border=0 src="GoogleSiteMaplogo.gif" /></a>生成符合GOOGLE规范的XML格式地图页面</td>
  </tr>
  <tr class="tdbg">
    <td height="18">更新频率：<select name="changefreq" id="changefreq">
        <option value="always"<%=WRMPS.GetCheckVer("always",Split(MapStr(0),"=")(1),0)%>>频繁的更新</option>
        <option value="hourly"<%=WRMPS.GetCheckVer("hourly",Split(MapStr(0),"=")(1),0)%>>每小时更新</option>
        <option value="daily"<%=WRMPS.GetCheckVer("daily",Split(MapStr(0),"=")(1),0)%>>每日更新</option>
        <option value="weekly"<%=WRMPS.GetCheckVer("weekly",Split(MapStr(0),"=")(1),0)%>>每周更新</option>
        <option value="monthly"<%=WRMPS.GetCheckVer("monthly",Split(MapStr(0),"=")(1),0)%>>每月更新</option>
        <option value="yearly"<%=WRMPS.GetCheckVer("yearly",Split(MapStr(0),"=")(1),0)%>>每年更新</option>
        <option value="never"<%=WRMPS.GetCheckVer("never",Split(MapStr(0),"=")(1),0)%>>从不更新</option>
      </select></td>
  </tr>
  <tr class="tdbg">
    <td height="35">调用条数：<input name="prioritynum" type="text" value="<%=Split(MapStr(1),"=")(1)%>" size="6" /> 文章、信息、店铺各调用此条数
	 </td>
  </tr>
  <tr class="tdbg">
    <td height="35">优 先 权：<input name="big" type="text" id="big" value="<%=Split(MapStr(2),"=")(1)%>" size="6" /> 0-1.0之间,推荐使用默认值
  </tr>
</table>
<table width="600" border="0" align="center" cellpadding="6" cellspacing="0">
  <tr>
    <td height="45" align="center"><input name="Submit1"  class="button" type="submit" id="Submit1" value="开始生成sitemap" /></td>
  </tr>
</table>

<br />
<table width="600" border="0" align="center" cellpadding="6" cellspacing="1" class="border">
  <tr class="title">
    <td> ★了解Google地图</td>
  </tr>
  <tr class="tdbg">
    <td>更新频率：
      <blockquote>
        <p><font size="-1">页面可能发生更改的频率。此值为搜索引擎提供一般性信息，可能与搜索引擎抓取页面的频率不完全相关。有效值为：</font></p>
        <ul>
          <li><font size="-1">always   </font></li>
          <li><font size="-1">hourly   </font></li>
          <li><font size="-1">daily   </font></li>
          <li><font size="-1">weekly   </font></li>
          <li><font size="-1">monthly   </font></li>
          <li><font size="-1">yearly </font></li>
          <li><font size="-1">never </font></li>
        </ul>
        <p><font size="-1">值“always”应当用于描述每次访问时都会改变的文档。而值“never”应当用于描述已存档网址。</font></p>
        <p><font size="-1">请注意此标记的值被视为<strong>提示</strong>而不是命令。尽管搜索引擎抓取工具在做决定时考虑此信息，但是它们对标记为“hourly”页面的抓取频率可能低于每小时一次，而对标记为“yearly”页面的抓取频率可能高于每年一次。抓取工具也可能定期抓取标记为“never”的页面，以便它们能够处理对这些页面的意外更改。</font></p>
    </blockquote>      
      <hr size="1" noshade="noshade" />
      <p>注意度：</p>
    <blockquote>
      <p><font size="-1">此网址的优先级与您网站上其他网址的优先级相关。有效值范围从 0.0 到   1.0。此值不会影响您的网页与其他网站上网页的比较结果，只是告诉搜索引擎您认为您的那个网页最重要，从而它们对您页面的抓取可以按照您最喜欢的方式进行排序。</font></p>
      <p><font size="-1">一个网页的默认优先级为 0.5。</font></p>
      <p><font size="-1">请注意，您为页面指定的优先级<em>不影响</em>您的网址在搜索引擎的结果页的排名。搜索引擎在同一网站的不同网址之间进行选择时使用此信息，因此，您可以使用此标记来增加相对重要的网址在搜索索引中显示的可能性。</font></p>
      <p><font size="-1">而且，请注意为您网站中的所有网址都指定高优先级对您没什么好处。由于优先级是相互关联的，只用于在您自己网站的网页之间进行选择；您网页的优先级不会与其他网站的页面优先级进行比较。</font></p>
	  </blockquote>
	  <hr size="1" noshade="noshade" />
      <p class="STYLE1">生成位置：</p>
      <blockquote>
        <p>sitemap.xml将会自动生成到您网站的根目录下，这需要FSO组件的支持才能顺利完成，如果您的服务器不能支持FSO请进行相关设置。</p>
      </blockquote>      <p>&nbsp;</p></td>
  </tr>
</table>
</form>
<br>
<%
    Call PlusBottom()
End Select
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -