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

📄 act.map.asp

📁 PDA,若你死昂师傅你说的附件是打开附件上课的附件四度空间就大方快速减肥
💻 ASP
字号:
🔍 
<!--#include file="../ACT.Function.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="../Images/<%=session("css")%>/css.css" rel="stylesheet" type="text/css">
<link href="../Images/css1/css.css" rel="stylesheet" type="text/css">
<title>Google Sitemap</title>
<%
dim xmlstr,lastmod
dim SqlStr,rs,rsclass,i,Classpath
dim sitemappath
if request("Action")="create" then
    Dim changefreq:changefreq=request("changefreq")
	Dim prioritynum:prioritynum=actcms.ChkNumeric(request("prioritynum"))
	If prioritynum=0 then prioritynum=15
	Dim big:big=request("Big")
	Dim SQL,K
	Set RS=Server.CreateObject("ADODB.RECORDSET")
	xmlstr="<?xml version=""1.0"" encoding=""gb2312""?>"&vbcrlf
	xmlstr=xmlstr&"<urlset xmlns=""http://www.google.com/schemas/sitemap/0.84"">"&vbcrlf
	SqlStr="select top " & prioritynum & "   ID,Classid,ChangesLink,FileName,GroupID_ACT,Score_ACT,Title,UpdateTime "

	SqlStr=SqlStr & " from Article_ACT where isAccept=0 and delif=0 and ChangesLink<>1  order by id desc"
	rs.Open SqlStr,conn,1,1
	for i=1 to rs.RecordCount
	  	xmlstr=xmlstr&"    <url>"&vbcrlf
		xmlstr=xmlstr&"        <loc>"&GetInfoUrl(1,Rs(1),Rs(0),Rs(2),Rs(3),Rs(4),Rs(5))&"</loc>"&vbcrlf
		xmlstr=xmlstr&"        <lastmod>" & GetDate(rs(7)) & "</lastmod>"&vbcrlf
		xmlstr=xmlstr&"        <changefreq>"&changefreq&"</changefreq>"&vbcrlf
		xmlstr=xmlstr&"        <priority>"&big&"</priority>"&vbcrlf
		xmlstr=xmlstr&"    </url>"&vbcrlf
		rs.movenext 
	next
	rs.close
	xmlstr=xmlstr&"</urlset>"
	dim tmFile,objFso,smw
	sitemappath=Server.Mappath(actcms.ActSys&"sitemap.xml")
	Set objFso = CreateObject("Scripting.FileSystemObject")
	if objFso.FileExists(sitemappath) then
		Set tmFile = objFso.GetFile(sitemappath)
		tmFile.Delete
	end if
	Set smw = objFso.CreateTextFile(sitemappath, True)
	smw.WriteLine(xmlstr)
	smw.Close
	set tmFile = nothing

	response.write("<script language='JavaScript' type='text/JavaScript'>")
	response.write("function yy() {")
	response.write("overstr.innerHTML='<div align=center>恭喜,sitemap.xml生成完毕！<br><br><a href="&actcms.ActSys&"sitemap.xml target=_blank>点击查看生成好的sitemap.xml文件</a></div>'; }")
	response.write("</script>")
	end if
	response.write("<script language='JavaScript' type='text/JavaScript'>")
	response.write("function ll() { ")
	response.write("overstr.innerHTML='<div align=center>正在生成，请耐心等待。。。<br></div>'; } ")
	response.write("</script>")
	set rs=nothing
	conn.Close:set conn=nothing
	'===================================================结束
	Function GetDate(DateStr)
	GetDate=Year(DateStr) & "-" & Right("0" & Month(DateStr), 2) & "-" & Right("0" & Day(DateStr), 2)
	End Function
	Public Function GetInfoUrl(ByVal ModeID,ByVal ClassID,ByVal ID,ByVal ChangesLink,ByVal FileName,ByVal GroupID_ACT,ByVal Score_ACT)
		IF Not Isnumeric(ModeID) Then GetInfoUrl="#":Exit Function
		If ChangesLink = 1 Then
			 GetInfoUrl = FileName
		ElseIf Score_ACT>0 Or actcms.ACT_C(ModeID,3)=0  Or GroupID_ACT<>""  Or actcms.ACT_L(ClassID,6)<>"" Then '动态
			 GetInfoUrl= actcms.ActCMSDM&"Article/TypeArticle.asp?ModeID="&ModeID&"&amp;ID=" &ID
		Else
			Dim Tmps,TmpUs 
			If Right(actcms.ACT_C(ModeID,10),1)<>"/" Then 
					 GetInfoUrl= actcms.ActCMSDM&actcms.ACT_C(ModeID,6)&FileName&actcms.ACT_C(ModeID,11)
			 Else
					GetInfoUrl= actcms.ActCMSDM&actcms.ACT_C(ModeID,6)&FileName&"/"
			End If 
		End If
	End Function 

%>
</head>
<body onLoad="yy()">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
  <tr>
    <td height="25" class="bg_tr"><div align="center"><strong>Google Sitemaps地图生成操作</strong></div></td>
  </tr>
</table>

<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
 <form id="form1" name="bqsitemapform" method="post" action="?action=create"> <tr>
    <td class="td_bg"><div  id="overstr"></div></td>
  </tr>
</table>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
  <tr >
    <td class="bg_tr">Google Sitemaps地图生成操作</td>
  </tr>
  <tr class="tdbg">
    <td height="17" align="center">
	<a href='http://www.google.com/webmasters/sitemaps/login' target='_blank'></a>生成符合GOOGLE规范的XML格式地图页面	</td>
  </tr>
  <tr class="tdbg">
    <td height="18">更新频率：
      <select name="changefreq" id="changefreq">
        <option value="always ">频繁的更新</option>
        <option value="hourly">每小时更新</option>
        <option value="daily" selected="selected">每日更新</option>
        <option value="weekly">每周更新</option>
        <option value="monthly">每月更新</option>
        <option value="yearly">每年更新</option>
        <option value="never">从不更新</option>
      </select></td>
  </tr>
  <tr class="tdbg">
    <td height="35">每个系统调用：
      <input name="prioritynum" type="text" id="prioritynum" value="15" size="6" />条信息内容为最高注意度
    </td>
  </tr>
  <tr class="tdbg">
    <td height="35">注 意 度：
      <input name="big" type="text" id="big" value="0.5" size="6" />0-1.0之间,推荐使用默认值
	  <br>
      <a href="http://www.google.com/webmasters/sitemaps/login" target="_blank"><font color=green>点击这里提交到 Www.Google.Com</font></a></tr>
</table>
<table width="98%" border="0" align="center" cellpadding="6" cellspacing="0">
  <tr>
    <td height="45" align="center"><input name="Submit1"  class="ACT_btn" onClick="ll();" type="submit" id="Submit1" value="开始生成sitemap" /></td>
  </tr>
</table>

<br />
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
  <tr >
    <td class="bg_tr"> 了解Google地图</td>
  </tr>
  <tr class="td_bg">
    <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 >生成位置：</p>
      <blockquote>
        <p>sitemap.xml将会自动生成到您网站的根目录下，这需要FSO组件的支持才能顺利完成，如果您的服务器不能支持FSO请进行相关设置。</p>
      </blockquote></td>
  </tr></form>
</table>

</body>
</html>

⌨️ 快捷键说明

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