baiduStr = "http://"&setting.siteUrl&sitePath&setting.languagePath&""&setting.siteTitle&"1800" for j=1 to rsObj.pagesize vDes=rsObj("ContentTag") : if isNul(vDes) then vDes="" vName=rsObj("Title") : if isNul(vName) then vName="" Dim link link="http://"&setting.siteUrl&TemplateObj.getContentLink(rsObj("SortID"),rsObj("ContentID"),rsObj("SortFolder"),rsObj("a.GroupID"),rsObj("ContentFolder"),rsObj("ContentFileName"),rsObj("AddTime"),rsobj("PageFileName"),rsObj("b.GroupID")) baiduStr = baiduStr & " "&link&""&server.htmlencode(filterStr(left(vDes, 300),"html"))&"" If left(rsObj("ImagePath"), 7) = "http://" Then baiduStr = baiduStr & ""&rsObj("ImagePath")&""&vbcrlf Else baiduStr = baiduStr & "http://"&setting.siteUrl&sitePath&rsObj("ImagePath")&""&vbcrlf End If dt=rsObj("AddTime") baiduStr = baiduStr & ""&rsObj("Title")&","&rsObj("Author")&""&setting.siteTitle&""&setting.siteTitle&" "&formatDate(dt,1)&"" rsObj.movenext if rsObj.eof then exit for next baiduStr = baiduStr + "" tempUrl = sitePath&setting.languagePath&"baidu"&xmlUrl&"_"&i&".xml" createTextFile baiduStr,tempUrl,"utf-8"
然后将整块儿代码全部替换为下面的代码:
baiduStr = "" for j=1 to rsObj.pagesize vDes=rsObj("ContentTag") : if isNul(vDes) then vDes="" vName=rsObj("Title") : if isNul(vName) then vName="" Dim link link="http://"&setting.siteUrl&TemplateObj.getContentLink(rsObj("SortID"),rsObj("ContentID"),rsObj("SortFolder"),rsObj("a.GroupID"),rsObj("ContentFolder"),rsObj("ContentFileName"),rsObj("AddTime"),rsobj("PageFileName"),rsObj("b.GroupID")) baiduStr = baiduStr & ""&link&"" dt=rsObj("AddTime") baiduStr = baiduStr & ""&formatDate(dt,1)&"" rsObj.movenext if rsObj.eof then exit for next baiduStr = baiduStr + "" tempUrl = sitePath&setting.languagePath&"baidu"&xmlUrl&"_"&i&".xml" createTextFile baiduStr,tempUrl,"utf-8"