刚才发现一个能生成google sitemap的东东，觉得蛮好，就分享给大家吧！

点击这里下载：sitemap.rar

介绍一下这个怎么用吧：

首先说说：什么是sitemap？Sitemap有什么作用？

Sitemap是指引蜘蛛抓取的一个规则页面，一般首先会被抓取，当Spider群来到这个站点，首先会分析该站点的地图有没有更新，地图可以说是网站与蜘蛛之间的第一个通道，其制作的合理与否直接影响到整个站点内容页面的抓取。

对于SEO来说，目前网站地图主要分两类，html形式的地图和XML形式的地图。

昨天领到google adsense代码以后，就出现了问题，发现博客发表文章的时候直接插入代码不能显示，怎么办呢，最初的想法是在另外的站里做一个js代码，然后用script调用，试了，没有问题，可以显示，但是问题是，每个文章都要加，很麻烦，有没有什么办法直接就能显示呢，当然可以啦：修改模板>>修改副模板>>源码>>在“show_logtext$” 后面加入< div>google adsense 代码</ div>就可以啦，然后测试每篇文章后面都能正常显示广告！

<% MyRandn(n) '生成随机数字，n为数字的个数
 dim thechr
 thechr = ""
 for i=1 to n
  dim zNum,zNum2
  Randomize
  zNum = cint(9*Rnd)
  zNum = zNum + 48
  thechr = thechr & chr(zNum)
 next
 MyRandn = thechr
end
%>
<%a=MyRandn(1)%>'数字为1，生成一位随机数字，为2，生成两位的随机数字
<%if a mod 2 =0 then%>
广告代码1
<%else%>
广告代码2
<%end if%>

刚才帮一位朋友做跳转的时候做的，为了获取完整的url地址，还是花了那么点时间
不过现在看来，原来是那么简单，没有网上那么多复杂的东东，相信一定能够用了！
<%
   u1=Request.ServerVariables("SERVER_NAME")'获取地址前面部分如www.chinazc.net/
   u2=Request.ServerVariables("URL")'获取 .com/net/等后面的地址
if Trim(Request.QueryString)<>"" then'如果有变量参数，就获取，没有就跳过
    u3="?"&Trim(Request.QueryString)
end if
%>
<%url="http://"&u1&u2&u3%>
<%=url%>

当你想把a.asp?id=n这样的多个动态页面转换成静态页面，下面的方法就可以帮你实现！

<!--#include virtual="conn.asp"-->/建立数据库连接
<%
pagestart=cint(request.querystring("a"))
pageend=cint(request.querystring("b"))
ssql="select * from database where id>="&pagestart&" and id<="&pageend&""
rst.open ssql,conn,1

GetPage(url)
dim Retrieval
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False ', "", ""
.Send
GetPage = BytesToBstr(.ResponseBody)
End With
Set Retrieval = Nothing
End