求网站sitemap的缺陷修改

<%
..............
   getfilelink=getfilelink&"  </url>"&vbcrlf
   response.write "成功生成地址："& server.htmlencode(session("server")&file) & "<br>"
      session("count")=session("count")+"1"

   Response.Flush
End Function
Function Folderpermission(pathName)
'请添加需要过滤的根目录内的网页,如:aaa.html等

'请添加需要提高权重的文件夹内的某个网页,如:index.html

  '需要过滤的目录(不列在SiteMap里面)
  PathExclusion=Array("\admin")
  Folderpermission =True
  for each PathExcluded in PathExclusion
   if instr(ucase(pathName),ucase(PathExcluded))>0 then
    Folderpermission = False
    exit for
.....
生成的sitemap.xml文件基本可以，我是想怎样才能把某些文件夹内的某个页面，比如：aaa/index.htm,888/index.htm提高权重，现在生成的文件夹内的页面都是0.9，我想把aaa/index.htm,888/index.htm的变成1。
还有就是根目录内的几个网页不想被检索，比如：aaa.htm,123.htm 应该怎么改？谢谢
原代码：