<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<?xml-stylesheet type="text/xsl" href="css/rss.xslt"?>
<rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:trackback="http://madskills.com/public/xml/rss/module/trackback/" xmlns:wfw="http://wellformedweb.org/CommentAPI/" xmlns:slash="http://purl.org/rss/1.0/modules/slash/"><channel><title>赵威SEO</title><link>http://www.sfd5.com/</link><description>北京网站优化,北京网络营销,北京SEO</description><generator>RainbowSoft Studio Z-Blog 1.8 Arwen Build 90619</generator><language>zh-CN</language><copyright>Copyright 2009 Your WebSite. Some Rights Reserved.</copyright><pubDate>Tue, 02 Mar 2010 23:11:31 +0800</pubDate><item><title>赵威很忙</title><author>a@b.com (admin)</author><link>http://www.sfd5.com/post/50.html</link><pubDate>Tue, 02 Mar 2010 23:09:16 +0800</pubDate><guid>http://www.sfd5.com/post/50.html</guid><description><![CDATA[<p>博主最近真的很忙</p><p>感觉今年是非常关键的一年。</p><p>好像要到一个转折点了。</p><p>正在为一次巨大革命而积极努力着</p><p>等到有一天。</p><p>成功离我越来越近的时候</p><p>想起现在的过程</p><p>应该是值得久久回味的</p><p>加油。</p>]]></description><category>搜索引擎优化</category><comments>http://www.sfd5.com/post/50.html#comment</comments><wfw:comment>http://www.sfd5.com/</wfw:comment><wfw:commentRss>http://www.sfd5.com/feed.asp?cmt=50</wfw:commentRss><trackback:ping>http://www.sfd5.com/cmd.asp?act=tb&amp;id=50&amp;key=bea8640b</trackback:ping></item><item><title>莫装逼，装逼早晚遭雷劈</title><author>a@b.com (admin)</author><link>http://www.sfd5.com/post/49.html</link><pubDate>Fri, 29 Jan 2010 18:56:36 +0800</pubDate><guid>http://www.sfd5.com/post/49.html</guid><description><![CDATA[<p>发现社会上真的很多人非常喜欢装逼。</p><p>人生短短几十年，何必啊， 这么跟自己过不起。</p><p>总以为自己永远是对的，总以为自己有多么的厉害，别人的意见一点都听信不进去。</p><p>总结一点，就是装逼。</p><p>真的是。有什么可装的啊。</p><p>每个游戏都有规则，也有潜规则。</p><p>违反者自认要受到相应的报应。</p><p>最好的报应就是遭雷劈了。</p><p>雷公电母是最公平的，头顶三尺有神灵啊。</p><p>装逼者，自重吧。</p>]]></description><category>生活随笔</category><comments>http://www.sfd5.com/post/49.html#comment</comments><wfw:comment>http://www.sfd5.com/</wfw:comment><wfw:commentRss>http://www.sfd5.com/feed.asp?cmt=49</wfw:commentRss><trackback:ping>http://www.sfd5.com/cmd.asp?act=tb&amp;id=49&amp;key=8e5e780d</trackback:ping></item><item><title>ASP生成静态网页的方法搜集整理</title><author>a@b.com (admin)</author><link>http://www.sfd5.com/post/48.html</link><pubDate>Fri, 22 Jan 2010 14:06:44 +0800</pubDate><guid>http://www.sfd5.com/post/48.html</guid><description><![CDATA[<p>因为我们知道搜索引擎比较喜欢静态页面，网页静态化也可以提高页面的打开速度，提高用户体验，减轻服务器压力等等。</p><p>所以我们在网站制作，网站优化的时候更多的是生成静态的信息页面和站点地图导航。</p><p>以下搜集整理了几种ASP生成静态的方法，供大家举一反三。</p><p>提醒，生成网页的时候可以适当在URL保护关键词。</p><p>1.使用FSO生成</p><div class="codeText"><div class="codeHead">ASP/Visual Basic代码</div><ol class="dp-vb">    <li class="alt"><span><span>&lt;%&nbsp; &nbsp;&nbsp;</span></span></li>    <li><span class="comment">'使用FSO生成&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li class="alt"><span class="keyword">Set</span><span>&nbsp;fs&nbsp;=&nbsp;CreateObject(</span><span class="string">&quot;Scripting.FileSystemObject&quot;</span><span>)&nbsp; &nbsp;&nbsp;</span></li>    <li><span>NewFile=Server.MapPath(</span><span class="string">&quot;ud03/fso.htm&quot;</span><span>)&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span class="comment">'新建一文件fso.htm,若该文件已存在，则覆盖它&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li><span class="keyword">Set</span><span>&nbsp;a&nbsp;=&nbsp;fs.CreateTextFile(NewFile,&nbsp;</span><span class="keyword">True</span><span>)&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>Response.Write</span><span class="string">&quot;新文件已建立！&quot;</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li><span>a.close&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>File=Server.MapPath(</span><span class="string">&quot;ud03/fso.htm&quot;</span><span>)&nbsp; &nbsp;&nbsp;</span></li>    <li><span class="keyword">Set</span><span>&nbsp;txt=fs.OpenTextFile(File,8,</span><span class="keyword">True</span><span>)&nbsp;</span><span class="comment">'打开成可以在结尾写入数据的文件&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li class="alt"><span>data1=</span><span class="string">&quot;这句话是使用WriteLine方法写入的。！&lt;Br&gt;&quot;</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li><span>txt.WriteLine&nbsp;data1&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>data2=</span><span class="string">&quot;这句话是使用Write方法写入的。&lt;Br&gt;&quot;</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li><span>txt.Write&nbsp;data2&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>txt.Close&nbsp; &nbsp;&nbsp;</span></li>    <li><span>%&gt;&nbsp;&nbsp;</span></li></ol></div><p>2.使用XMLHTTP生成</p><div class="codeText"><div class="codeHead">ASP/Visual Basic代码</div><ol class="dp-vb">    <li class="alt"><span><span>&lt;%&nbsp; &nbsp;&nbsp;</span></span></li>    <li><span class="comment">'使用XMLHTTP生成&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li class="alt"><span class="keyword">Set</span><span>&nbsp;xml&nbsp;=&nbsp;Server.CreateObject(</span><span class="string">&quot;Microsoft.XMLHTTP&quot;</span><span>)&nbsp; &nbsp;&nbsp;</span></li>    <li><span class="comment">'把下面的地址替换成你的首页的文件地址,一定要用http://开头的绝对路径,不能写相对路径&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li class="alt"><span>xml.Open&nbsp;</span><span class="string">&quot;GET&quot;</span><span>,&nbsp;</span><span class="string">&quot;http://www.kinoko.name/ud03/&quot;</span><span>,&nbsp;</span><span class="keyword">False</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li><span>xml.Send&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>BodyText=xml.ResponseBody&nbsp; &nbsp;&nbsp;</span></li>    <li><span>BodyText=BytesToBstr(BodyText,</span><span class="string">&quot;gb2312&quot;</span><span>)&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span class="keyword">Set</span><span>&nbsp;xml&nbsp;=&nbsp;</span><span class="keyword">Nothing</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li><span class="keyword">Dim</span><span>&nbsp;fso,&nbsp;MyFile&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span class="keyword">Set</span><span>&nbsp;fso&nbsp;=&nbsp;CreateObject(</span><span class="string">&quot;Scripting.FileSystemObject&quot;</span><span>)&nbsp; &nbsp;&nbsp;</span></li>    <li><span class="keyword">Set</span><span>&nbsp;MyFile=&nbsp;fso.CreateTextFile(server.MapPath(</span><span class="string">&quot;ud03.htm&quot;</span><span>),&nbsp;</span><span class="keyword">True</span><span>)&nbsp;</span><span class="comment">'生成的html的文件名&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li class="alt"><span>MyFile.WriteLine(BodyText)&nbsp; &nbsp;&nbsp;</span></li>    <li><span>MyFile.Close &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;</span></li>    <li><span class="comment">'使用Adodb.Stream处理二进制数据&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li class="alt"><span class="keyword">Function</span><span>&nbsp;BytesToBstr(strBody,CodeBase)&nbsp; &nbsp;&nbsp;</span></li>    <li><span>&nbsp;&nbsp;&nbsp;&nbsp;dim&nbsp;objStream&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;set&nbsp;objStream&nbsp;=&nbsp;Server.CreateObject(</span><span class="string">&quot;Adodb.Stream&quot;</span><span>)&nbsp; &nbsp;&nbsp;</span></li>    <li><span>&nbsp;&nbsp;&nbsp;&nbsp;objStream.Type&nbsp;=&nbsp;1&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;objStream.Mode&nbsp;=3&nbsp; &nbsp;&nbsp;</span></li>    <li><span>&nbsp;&nbsp;&nbsp;&nbsp;objStream.Open&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;objStream.Write&nbsp;strBody&nbsp; &nbsp;&nbsp;</span></li>    <li><span>&nbsp;&nbsp;&nbsp;&nbsp;objStream.Position&nbsp;=&nbsp;0&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;objStream.Type&nbsp;=&nbsp;2&nbsp; &nbsp;&nbsp;</span></li>    <li><span>&nbsp;&nbsp;&nbsp;&nbsp;objStream.Charset&nbsp;=&nbsp;CodeBase&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;BytesToBstr&nbsp;=&nbsp;objStream.ReadText&nbsp; &nbsp;&nbsp;</span></li>    <li><span>&nbsp;&nbsp;&nbsp;&nbsp;objStream.Close&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;set&nbsp;objStream&nbsp;=&nbsp;nothing&nbsp; &nbsp;&nbsp;</span></li>    <li><span class="keyword">End</span><span>&nbsp;</span><span class="keyword">Function</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>%&gt;&nbsp;&nbsp;&nbsp;</span></li></ol></div><p>3.使用XMLHTTP批量生成</p><div class="codeText"><div class="codeHead">ASP/Visual Basic代码</div><ol class="dp-vb">    <li class="alt"><span><span>&lt;%&nbsp; &nbsp;&nbsp;</span></span></li>    <li><span class="comment">'使用XMLHTTP批量生成&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li class="alt"><span>dim&nbsp;strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp&nbsp; &nbsp;&nbsp;</span></li>    <li><span>Html_Temp=</span><span class="string">&quot;&lt;UL&gt;&quot;</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span class="keyword">For</span><span>&nbsp;i=1&nbsp;</span><span class="keyword">To</span><span>&nbsp;30&nbsp;</span><span class="comment">'需要生成的id：1到30&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li><span>Html_Temp&nbsp;=&nbsp;Html_Temp</span><span class="string">&quot;&lt;LI&gt;&quot;</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>Item_Classid&nbsp;=&nbsp;i&nbsp; &nbsp;&nbsp;</span></li>    <li><span>FileName&nbsp;=&nbsp;</span><span class="string">&quot;Archives_&quot;</span><span>&amp;Item_Classid</span><span class="string">&quot;.htm&quot;</span><span>&nbsp;</span><span class="comment">'生成的html文件名&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li class="alt"><span>FilePath&nbsp;=&nbsp;Server.MapPath(</span><span class="string">&quot;/&quot;</span><span>)</span><span class="string">&quot;\&quot;&amp;FileName&nbsp; </span>&nbsp;</li>    <li><span><span class="string">Html_Temp&nbsp;=&nbsp;Html_Temp&amp;FilePath&amp;&quot;</span><span>&lt;/LI&gt;</span><span class="string">&quot;&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">Do_Url&nbsp;=&nbsp;&quot;</span><span>http://www.kinoko.name/ud03/index.php</span><span class="string">&quot;&nbsp;'WEB路径&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">Do_Url&nbsp;=&nbsp;Do_Url&amp;&quot;</span><span>?p=</span><span class="string">&quot;&amp;Item_Classid&nbsp;'WEB路径之后的ID&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">strUrl&nbsp;=&nbsp;Do_Url&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">dim&nbsp;objXmlHttp&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">set&nbsp;objXmlHttp&nbsp;=&nbsp;Server.CreateObject(&quot;</span><span>Microsoft.XMLHTTP</span><span class="string">&quot;)&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">objXmlHttp.open&nbsp;&quot;</span><span>GET</span><span class="string">&quot;,strUrl,false&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">objXmlHttp.send()&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">Dim&nbsp;binFileData&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">binFileData&nbsp;=&nbsp;objXmlHttp.responseBody&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">Dim&nbsp;objAdoStream&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">set&nbsp;objAdoStream&nbsp;=&nbsp;Server.CreateObject(&quot;</span><span>ADODB.Stream</span><span class="string">&quot;)&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">objAdoStream.Type&nbsp;=&nbsp;1&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">objAdoStream.Open()&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">objAdoStream.Write(binFileData)&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">objAdoStream.SaveToFile&nbsp;FilePath,2&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">objAdoStream.Close()&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">Next&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">Html_Temp&nbsp;=&nbsp;Html_Temp&amp;&quot;</span><span>&lt;UL&gt;</span><span class="string">&quot;&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">%&gt;&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">&lt;%&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">Response.Write&nbsp;(&nbsp;&quot;</span><span>成功生成文件：</span><span class="string">&quot;&nbsp;)&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">Response.Write&nbsp;(&nbsp;&quot;</span><span>&lt;BR&gt;&quot;&nbsp;)&nbsp; &nbsp;&nbsp;</span></span></li>    <li class="alt"><span>Response.Write&nbsp;Html_Temp&nbsp; &nbsp;&nbsp;</span></li>    <li><span>%&gt; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;</span></li></ol></div><p>4.自动按模板生成网站首页</p><div class="codeText"><div class="codeHead">ASP/Visual Basic代码</div><ol class="dp-vb">    <li class="alt"><span><span>&lt;%&nbsp; &nbsp;&nbsp;</span></span></li>    <li><span>Response.Expires&nbsp;=&nbsp;0&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>Response.expiresabsolute&nbsp;=&nbsp;Now()&nbsp;-&nbsp;1&nbsp; &nbsp;&nbsp;</span></li>    <li><span>Response.addHeader&nbsp;</span><span class="string">&quot;pragma&quot;</span><span>,&nbsp;</span><span class="string">&quot;no-cache&quot;</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>Response.addHeader&nbsp;</span><span class="string">&quot;cache-control&quot;</span><span>,&nbsp;</span><span class="string">&quot;private&quot;</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li><span>Response.CacheControl&nbsp;=&nbsp;</span><span class="string">&quot;no-cache&quot;</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>Response.Buffer&nbsp;=&nbsp;</span><span class="keyword">True</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li><span>Response.Clear&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>Server.ScriptTimeOut=999999999&nbsp; &nbsp;&nbsp;</span></li>    <li><span>on&nbsp;error&nbsp;resume&nbsp;next&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span class="comment">'***************************************************************&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li><span class="comment">'*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;定义&nbsp;从模板从读取首页&nbsp;函数&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li class="alt"><span class="comment">'*&nbsp;说明:模板文件名为:index_Template.asp&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li><span class="comment">'***************************************************************&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li class="alt"><span class="keyword">Function</span><span>&nbsp;GetPage(url)&nbsp; &nbsp;&nbsp;</span></li>    <li><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="keyword">Set</span><span>&nbsp;Retrieval&nbsp;=&nbsp;CreateObject(</span><span class="string">&quot;Microsoft.XMLHTTP&quot;</span><span>)&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="keyword">With</span><span>&nbsp;Retrieval&nbsp; &nbsp;&nbsp;</span></li>    <li><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Open&nbsp;</span><span class="string">&quot;Get&quot;</span><span>,&nbsp;url,&nbsp;</span><span class="keyword">False</span><span>,&nbsp;</span><span class="string">&quot;&quot;</span><span>,&nbsp;</span><span class="string">&quot;&quot;</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Send&nbsp; &nbsp;&nbsp;</span></li>    <li><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;GetPage&nbsp;=&nbsp;BytesToBstr(.ResponseBody)&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="keyword">End</span><span>&nbsp;</span><span class="keyword">With</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="keyword">Set</span><span>&nbsp;Retrieval&nbsp;=&nbsp;</span><span class="keyword">Nothing</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span class="keyword">End</span><span>&nbsp;</span><span class="keyword">Function</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li><span class="keyword">Function</span><span>&nbsp;BytesToBstr(body)&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dim&nbsp;objstream&nbsp; &nbsp;&nbsp;</span></li>    <li><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;set&nbsp;objstream&nbsp;=&nbsp;Server.CreateObject(</span><span class="string">&quot;adodb.stream&quot;</span><span>)&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;objstream.Type&nbsp;=&nbsp;1&nbsp; &nbsp;&nbsp;</span></li>    <li><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;objstream.Mode&nbsp;=3&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;objstream.Open&nbsp; &nbsp;&nbsp;</span></li>    <li><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;objstream.Write&nbsp;body&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;objstream.Position&nbsp;=&nbsp;0&nbsp; &nbsp;&nbsp;</span></li>    <li><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;objstream.Type&nbsp;=&nbsp;2&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;objstream.Charset&nbsp;=&nbsp;</span><span class="string">&quot;GB2312&quot;</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;BytesToBstr&nbsp;=&nbsp;objstream.ReadText&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;objstream.Close&nbsp; &nbsp;&nbsp;</span></li>    <li><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;set&nbsp;objstream&nbsp;=&nbsp;nothing&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span class="keyword">End</span><span>&nbsp;</span><span class="keyword">Function</span><span>&nbsp;&nbsp;</span></li>    <li><span>&nbsp;&nbsp;</span></li>    <li class="alt"><span class="comment">'***************************************************************&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li><span class="comment">'*&nbsp;生页首页,文件名为:default.htm&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li class="alt"><span class="comment">'***************************************************************&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li><span>dim&nbsp;Tstr&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>Tstr&nbsp;=&nbsp;GetPage(</span><span class="string">&quot;http://www.adhome.net/index_Template.asp&quot;</span><span>)&nbsp; &nbsp;&nbsp;</span></li>    <li><span class="keyword">Set</span><span>&nbsp;fso&nbsp;=&nbsp;Server.CreateObject(</span><span class="string">&quot;Scripting.FileSystemObject&quot;</span><span>)&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span class="keyword">Set</span><span>&nbsp;fout&nbsp;=&nbsp;fso.CreateTextFile(Server.MapPath(</span><span class="string">&quot;.&quot;</span><span>)</span><span class="string">&quot;/default.htm&quot;</span><span>)&nbsp; &nbsp;&nbsp;</span></li>    <li><span>fout.Write&nbsp;Tstr&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>fout.close&nbsp; &nbsp;&nbsp;</span></li>    <li><span>&nbsp;&nbsp;&nbsp;&nbsp;Response.write</span><span class="string">&quot;&lt;script&gt;alert(&quot;</span><span class="string">&quot;生成首页成功！\n\n文件名为：default.htm&quot;</span><span class="string">&quot;);location.href=&quot;</span><span>http://www.adhome.net</span><span class="string">&quot;;&lt;/script&gt;&quot;</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;Response.end&nbsp; &nbsp;&nbsp;</span></li>    <li><span>%&gt; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;</span></li>    <li><span>5.将asp页面转换成htm页面 &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;</span></li>    <li><span>&lt;%&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span class="keyword">Function</span><span>&nbsp;GetPage(url)&nbsp; &nbsp;&nbsp;</span></li>    <li><span class="comment">'获得文件内容&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li class="alt"><span>dim&nbsp;Retrieval&nbsp; &nbsp;&nbsp;</span></li>    <li><span class="keyword">Set</span><span>&nbsp;Retrieval&nbsp;=&nbsp;CreateObject(</span><span class="string">&quot;Microsoft.XMLHTTP&quot;</span><span>)&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span class="keyword">With</span><span>&nbsp;Retrieval&nbsp; &nbsp;&nbsp;</span></li>    <li><span>&nbsp;&nbsp;&nbsp;&nbsp;.Open&nbsp;</span><span class="string">&quot;Get&quot;</span><span>,&nbsp;url,&nbsp;</span><span class="keyword">False</span><span>&nbsp;</span><span class="comment">',&nbsp;&quot;&quot;,&nbsp;&quot;&quot;&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;.Send&nbsp; &nbsp;&nbsp;</span></li>    <li><span>&nbsp;&nbsp;&nbsp;&nbsp;GetPage&nbsp;=&nbsp;BytesToBstr(.ResponseBody)&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span class="keyword">End</span><span>&nbsp;</span><span class="keyword">With</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li><span class="keyword">Set</span><span>&nbsp;Retrieval&nbsp;=&nbsp;</span><span class="keyword">Nothing</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span class="keyword">End</span><span>&nbsp;</span><span class="keyword">Function</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li><span class="keyword">Function</span><span>&nbsp;BytesToBstr(body)&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>dim&nbsp;objstream&nbsp; &nbsp;&nbsp;</span></li>    <li><span>set&nbsp;objstream&nbsp;=&nbsp;Server.CreateObject(</span><span class="string">&quot;adodb.stream&quot;</span><span>)&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>objstream.Type&nbsp;=&nbsp;1&nbsp; &nbsp;&nbsp;</span></li>    <li><span>objstream.Mode&nbsp;=3&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>objstream.Open&nbsp; &nbsp;&nbsp;</span></li>    <li><span>objstream.Write&nbsp;body&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>objstream.Position&nbsp;=&nbsp;0&nbsp; &nbsp;&nbsp;</span></li>    <li><span>objstream.Type&nbsp;=&nbsp;2&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>objstream.Charset&nbsp;=&nbsp;</span><span class="string">&quot;GB2312&quot;</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li><span>BytesToBstr&nbsp;=&nbsp;objstream.ReadText&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>objstream.Close&nbsp; &nbsp;&nbsp;</span></li>    <li><span>set&nbsp;objstream&nbsp;=&nbsp;nothing&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span class="keyword">End</span><span>&nbsp;</span><span class="keyword">Function</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li><span>on&nbsp;error&nbsp;resume&nbsp;next&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>Url=</span><span class="string">&quot;http://www.sina.com.cn&quot;</span><span class="comment">'要读取的页面地址&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li><span>response.write&nbsp;</span><span class="string">&quot;开始更新首页...&quot;</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>wstr&nbsp;=&nbsp;GetPage(Url)&nbsp; &nbsp;&nbsp;</span></li>    <li><span class="comment">'response.write(wstr)&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li class="alt"><span class="keyword">Set</span><span>&nbsp;fs=Server.CreateObject(</span><span class="string">&quot;Scripting.FileSystemObject&quot;</span><span>)&nbsp; &nbsp;&nbsp;</span></li>    <li><span class="comment">'if&nbsp;not&nbsp;MyFile.FolderExists(server.MapPath(&quot;/html/&quot;))&nbsp;then&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li class="alt"><span class="comment">'MyFile.CreateFolder(server.MapPath(&quot;/html/&quot;))'&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li><span class="comment">'end&nbsp;if&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li class="alt"><span class="comment">'要存放的页面地址&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li><span>dizhi=server.MapPath(</span><span class="string">&quot;index.htm&quot;</span><span>)&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span class="keyword">If</span><span>&nbsp;(fs.FileExists(dizhi))&nbsp;</span><span class="keyword">Then</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li><span>fs.DeleteFile(dizhi)&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span class="keyword">End</span><span>&nbsp;</span><span class="keyword">If</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li><span class="keyword">Set</span><span>&nbsp;CrFi=fs.CreateTextFile(dizhi)&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>Crfi.Writeline(wstr)&nbsp; &nbsp;&nbsp;</span></li>    <li><span>set&nbsp;CrFi=nothing&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>set&nbsp;fs=nothing&nbsp; &nbsp;&nbsp;</span></li>    <li><span>response.write&nbsp;</span><span class="string">&quot;...&lt;font&nbsp;color=red&gt;更新完成！&lt;/font&gt;&quot;</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>%&gt;&nbsp;&nbsp;</span></li></ol></div><p>代码算是最简单的，直接保存成一个asp文件即可，只要把URL（要转化的asp地址）和dizhi（要保存的html地址）设置好就可以了，一般这两个文件在同一个目录，才能保证图片或者css、js起作用。</p><p><br />6.下面是利用XMLHTTP将动态网页生成静态网页的一段简单代码。</p><p>如一个正常的index.asp页面，并且用ASP代码调出数据库中的内容，另建一个makehtml.asp的页面，加入一个textarea域，假设为name=&quot;body&quot;，将index.asp在textarea里调出来，如： <br />&lt;textarea name=&quot;body&quot;&gt;&lt;!--#include file=&quot;index.asp&quot;--&gt;&lt;/textarea&gt;</p><p>将这个textarea包含在表单中，在接收表单页用创建FSO对象，如下生成index.html文件！</p><div class="codeText"><div class="codeHead">ASP/Visual Basic代码</div><ol class="dp-vb">    <li class="alt"><span><span>&lt;%&nbsp; &nbsp;&nbsp;</span></span></li>    <li><span>filename=</span><span class="string">&quot;../index.html&quot;</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>if&nbsp;request(</span><span class="string">&quot;body&quot;</span><span>)&lt;&gt;</span><span class="string">&quot;&quot;</span><span>&nbsp;then&nbsp; &nbsp;&nbsp;</span></li>    <li><span>set&nbsp;fso&nbsp;=&nbsp;Server.CreateObject(</span><span class="string">&quot;Scripting.FileSystemObject&quot;</span><span>)&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>set&nbsp;fout&nbsp;=&nbsp;fso.CreateTextFile(server.mappath(</span><span class="string">&quot;&quot;</span><span>&amp;filename</span><span class="string">&quot;&quot;</span><span>))&nbsp; &nbsp;&nbsp;</span></li>    <li><span>fout.write&nbsp;request.form(</span><span class="string">&quot;body&quot;</span><span>)&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>fout.close&nbsp; &nbsp;&nbsp;</span></li>    <li><span>set&nbsp;fout=nothing&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>set&nbsp;fso=nothing&nbsp; &nbsp;&nbsp;</span></li>    <li><span>end&nbsp;if&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>%&gt;&nbsp;&nbsp;</span></li></ol></div><p>这样index.html文件就生成了，连模板都用不着，只要将正常情况下使用的ASP文件读取到textarea里就可以了，目前尚未发现问题！当然前提是服务器要支持FSO。</p><p>开启FSO权限 在 开始－&ldquo;运行&rdquo;中执行regsvr32.exe scrrun.dll即可。如想关闭FSO权限，在上述命令中加/u参数。注册表中的键值位置：HKEY＿CLASS＿BOOT\F.S.O .FSO中有个方法是CreateFolder，但是这个方法只能在其上一级文件夹存在的情况下创建新的文件夹,所以我就写了一个自动创建多级文件夹的函数,在生成静态页面等方面使用非常方便。函数：</p><div class="codeText"><div class="codeHead">ASP/Visual Basic代码</div><ol class="dp-vb">    <li class="alt"><span><span class="comment">'--------------------------------&nbsp; </span><span>&nbsp;&nbsp;</span></span></li>    <li><span class="comment">'自动创建指定的多级文件夹&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li class="alt"><span class="comment">'strPath为绝对路径&nbsp; </span><span>&nbsp;&nbsp;</span></li>    <li><span class="keyword">Function</span><span>&nbsp;AutoCreateFolder(strPath)&nbsp;&rsquo;&nbsp;</span><span class="keyword">As</span><span>&nbsp;</span><span class="keyword">Boolean</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="keyword">On</span><span>&nbsp;</span><span class="keyword">Error</span><span>&nbsp;</span><span class="keyword">Resume</span><span>&nbsp;</span><span class="keyword">Next</span><span>&nbsp; &nbsp;&nbsp;</span></li>    <li><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="keyword">Dim</span><span>&nbsp;astrPath,&nbsp;ulngPath,&nbsp;i,&nbsp;strTmpPath&nbsp; &nbsp;&nbsp;</span></li>    <li class="alt"><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="keyword">Dim</span><span>&nbsp;objFSO&nbsp; &nbsp;&nbsp;</span></li>    <li><span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span><span class="keyword">If</span><span>&nbsp;InStr(strPath,&nbsp;</span><span class="string">&quot;\&quot;)&nbsp;&lt;=0&nbsp;Or&nbsp;InStr(strPath,&nbsp;&quot;</span><span>:</span><span class="string">&quot;)&nbsp;&lt;=&nbsp;0&nbsp;Then&nbsp; </span>&nbsp;</li>    <li class="alt"><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;AutoCreateFolder&nbsp;=&nbsp;False&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Exit&nbsp;Function&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;If&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set&nbsp;objFSO&nbsp;=&nbsp;Server.CreateObject(&quot;</span><span>Scripting.FileSystemObject</span><span class="string">&quot;)&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;objFSO.FolderExists(strPath)&nbsp;Then&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;AutoCreateFolder&nbsp;=&nbsp;True&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Exit&nbsp;Function&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;If&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;astrPath&nbsp;=&nbsp;Split(strPath,&nbsp;&quot;</span><span>\</span><span class="string">&quot;)&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ulngPath&nbsp;=&nbsp;UBound(astrPath)&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strTmpPath&nbsp;=&nbsp;&quot;</span><span class="string">&quot;&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For&nbsp;i&nbsp;=&nbsp;0&nbsp;To&nbsp;ulngPath&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strTmpPath&nbsp;=&nbsp;strTmpPath&nbsp;&amp;&nbsp;astrPath(i)&nbsp;&amp;&nbsp;&quot;</span><span>\</span><span class="string">&quot;&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;Not&nbsp;objFSO.FolderExists(strTmpPath)&nbsp;Then&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&rsquo;&nbsp;创建&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;objFSO.CreateFolder(strTmpPath)&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;If&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Next&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set&nbsp;objFSO&nbsp;=&nbsp;Nothing&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;Err&nbsp;=&nbsp;0&nbsp;Then&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;AutoCreateFolder&nbsp;=&nbsp;True&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;AutoCreateFolder&nbsp;=&nbsp;False&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;If&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">End&nbsp;Function&nbsp;调用方法： </span>&nbsp;</span></li>    <li><span>&nbsp;</span></li>    <li class="alt"><span><span class="string">MyPath&nbsp;=&nbsp;&quot;</span><span>C:\a\b\c\</span><span class="string">&quot;&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">If&nbsp;AutoCreateFolder(MyPath)&nbsp;Then&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Response.Write&nbsp;&quot;</span><span>创建文件夹成功</span><span class="string">&quot;&nbsp; </span>&nbsp;</span></li>    <li><span><span class="string">Else&nbsp; </span>&nbsp;</span></li>    <li class="alt"><span><span class="string">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Response.Write&nbsp;&quot;</span><span>创建文件夹失败&quot;&nbsp; &nbsp;&nbsp;</span></span></li>    <li><span class="keyword">End</span><span>&nbsp;</span><span class="keyword">If</span><span>&nbsp;&nbsp;</span></li></ol></div><p>&nbsp;</p>]]></description><category>案例分析</category><comments>http://www.sfd5.com/post/48.html#comment</comments><wfw:comment>http://www.sfd5.com/</wfw:comment><wfw:commentRss>http://www.sfd5.com/feed.asp?cmt=48</wfw:commentRss><trackback:ping>http://www.sfd5.com/cmd.asp?act=tb&amp;id=48&amp;key=76ecf65d</trackback:ping></item><item><title>站内导航地图对搜索引擎收录数量的影响</title><author>a@b.com (admin)</author><link>http://www.sfd5.com/post/47.html</link><pubDate>Thu, 21 Jan 2010 11:07:53 +0800</pubDate><guid>http://www.sfd5.com/post/47.html</guid><description><![CDATA[<p>内部链接的作用是SEO非常重要的一个排名参数，合理实用内部链接可以集中网站权重，优化长尾关键词等。</p><p>那前提条件是搜索引擎先要抓取到你的这些内部页面，你所做的内部链接才有效果。</p><p>如果百度只是收录了一个首页，你的内部链接及时在强大。恐怖作用也不大。</p><p>提高内部收录一个非常有效的办法就是内部页面静态化加合理强大的站点地图。</p><p>而且网站深度不要超过3级。</p><p>所谓网站地图包括两种，一种是HTML地图。一种是XML地图。</p><p>HTML地图可以给用户看，也可以给搜索引擎看。</p><p>而XML地图是纯粹为搜索引擎抓取做的一个地图，为蜘蛛引路的。</p><p>目前google。yahoo 都支持XML地图的提交。</p><p>百度目前还不支持，只能在首页加上XML的链接。等待蜘蛛自行爬去。</p><p>或者在ROOBT.txt中加上XML地图的索引。</p><p>合理的地图不是SE抓取数量的全部因素， 还有其他的代码优化，内容质量，外部链接数量，网站权重。等等原因</p><p>&nbsp;</p><p>&nbsp;</p>]]></description><category>搜索引擎优化</category><comments>http://www.sfd5.com/post/47.html#comment</comments><wfw:comment>http://www.sfd5.com/</wfw:comment><wfw:commentRss>http://www.sfd5.com/feed.asp?cmt=47</wfw:commentRss><trackback:ping>http://www.sfd5.com/cmd.asp?act=tb&amp;id=47&amp;key=437d9f39</trackback:ping></item><item><title>这些句子真的太经典了，选2句做你的个性签名吧 </title><author>a@b.com (admin)</author><link>http://www.sfd5.com/post/46.html</link><pubDate>Tue, 19 Jan 2010 17:41:25 +0800</pubDate><guid>http://www.sfd5.com/post/46.html</guid><description><![CDATA[<p>1、别惹我，否则我会让你死得很有节奏感。</p><p>2、.不是每句对不起，都能换来没关系。</p><p>3.我最近真的很忙，甚至一天都很难保证有16小时的睡眠</p><p>4.石头剪子布,谁输谁脱裤~</p><p>&nbsp;</p><p>5.装傻这事，如果干的好，叫大智若愚。木讷这事，如果干的好，叫深沉。<br />6.我们在路上走着,看到小孩子就过去踢一脚,以证明自己不是恋童癖&hellip;</p><p>&nbsp;</p><p>7.忍无可忍，就重新再忍！</p><p>8.我发誓再也不发誓!</p><p>&nbsp;</p><p>9.你可以像猪一样的生活，但你永远都不能像猪那样快乐!</p><p>10.父亲问我人生有什么追求?我回答金钱和美女，父亲凶狠的打了我的脸;我回答事业与爱情，父亲赞赏的摸了我的头。</p><p>&nbsp;</p><p>11.女施主,贫僧修为浅薄,尚不能隔衣疗伤&hellip;得罪了&hellip;</p><p>12.会有猪头替我爱你。</p><p>13.易拉罐拉环爱着易拉罐，可易拉罐心里装着可乐。</p><p>14.本人因生活极度贫困，长期代写小学寒、暑假作业，替小学生欺负其他同学，并承接以下业务：苦力搬运,钳焊,水电,瓦工,砸墙打地洞,通厕所下水道,VF,C++,.NET,Java,asp,汇编,flash,论文代写,四六级替考,办证,洗钱,捉奸,要债黑枪,黑车,暗杀,隆胸,无痛人流．</p><p>&nbsp;</p><p>15.老娘一向视帅哥与金钱如粪土，而他们也一直是这样看我的</p><p>16.睡眠是一门艺术&mdash;&mdash;谁也无法阻挡我追求艺术的脚步!</p><p>&nbsp;</p><p>17.见到我以后你会突然发现&mdash;&mdash;原来帅也可以这样具体呀！</p><p>18.没有医保和寿险的，天黑后不要见义勇为&hellip;&hellip;</p><p>19.女人再丑也是个妞啊，是妞就有被泡的权利！！你凭啥不泡我？？？</p><p>20.要在江湖混，最好是光棍。</p><p>21.哪一天我不在了，中国就好象失去了灵魂。这种看法不好。</p><p>22.如果不出现意外，相信你和我聊不到三句半，一定会被我的人格魅力所征服，脑海里顿时产生给我写情书的冲动。我劝你还是省省吧，我的108个电子邮箱都被美女们的情书撑爆了，已经没有你的空间了。</p><p>23.炮轰的脑袋还梳个雷劈的逢。</p><p>24.本人年方23，人见人爱，花见花开，车见车爆胎！！！每次行走街上，不是帅哥回头，就是美女跳楼！</p><p>25.今天出门想给兔子买点便宜的青菜，一圈转下来，最便宜的白菜2元一斤，看样子我的兔子命不久亦，我养不起了。</p><p>26.什么世道啊这是，人活得狗，狗活得象人。</p><p>27.现在在社会上的女色狼越来越少了,如果让我碰到了,我一定不会放过她</p><p>28.为了避免家庭暴力，于是我决定不结婚</p><p>29.我做过很多愚蠢的事情，但是我毫不在乎，我的朋友把它叫做自信。</p><p>30.我和你不一样，因为我是人</p><p>31.小时候的梦想并不是要当什么科学家，幻想自己是地主家的少爷，家有良田千顷，终日不学无术，没事领着一群狗奴才上街去调戏一下良家少女&hellip;&hellip;</p><p>32.青春就像卫生纸，看着挺多得，用着用着就不够</p><p>&nbsp;</p><p>33.只要有电，我qq就在线。</p><p>34.一宿未眠 思想飘忽 脾气升级 有事轻奏 无事绕行 不从者 灭之</p><p>35.在哪里跌倒 就在哪里躺下</p><p>36.友情提示：由于此用户的签名太过于个性而被系统自动屏蔽!</p><p>37.做为一只禽兽，我深感压力很大。。。</p><p>38.据说QQ上显示在线状态的80%都是在挂机，显示离开或隐身的80%都在线。</p><p>39.嘘&hellip;&hellip;千万别告诉他们我做了好事，这会影响我的形象的&hellip;&hellip;</p><p>40.本人立志统一全人类，请大家投我一票。</p><p>41.作为一名烟客，必须具备三个条件：烟，打火机以及抽烟时露出的那种无耻神韵~</p><p>42.桌上的灰怎么不见了？上面还记着电话号码呢&hellip;&hellip;</p><p>43.天灵灵，地灵灵，再来一个冰淇凌。</p><p>44.现在找对象一定要看仔细一些，因为现在不男不女的人太多了！</p><p>45.喜欢的人不出现，出现的人不喜欢。</p><p>46.人丑还想视频的，请自重！！！</p><p>47.我：玉树临风，气宇轩昂，剑眉星目，虎背熊腰，风华绝代，不羁倜傥，还有一身古铜的肤色，健壮的体魄强而有力的臂膀，外刚内柔的性格，野性中带温顺，忧郁中带放荡，简直就是男性的典范，女性的恩物啊～</p><p>48.很多时候，我喜欢了别人，她却不知道；更多时候，我伤害了别人，我却不知道。</p><p>49.能够说出的委屈，便不算委屈；能够抢走的爱人，便不算爱人。</p><p>&nbsp;</p><p>50.男人偷腥时的智商仅次于爱因斯坦了~</p><p>&nbsp;</p><p>51.爱情就像便便，水一冲就再也回不来了~爱情就像便便，来了之后挡也挡不住~爱情就像便便，每次都一样又不太一样~爱情就像便便，有时努力了很久却只是个屁！</p><p>52.只要锄头舞的好，那有墙角挖不倒？</p><p>53.你那毒拉丝的淫笑&mdash;&mdash;我用百度都搜不到。</p><p>&nbsp;</p><p>54.爸问我为什么背着他学抽烟？我说：&ldquo;台湾不回归，心情很郁闷！</p><p>55.在喂猪的时候总会想起你。</p><p>&nbsp;</p><p>56.鲜花往往不属于赏花的人，而属于牛粪。</p><p>57.很高兴,又凑够1块5,终于又能上网了！</p><p>58.人渣中的战斗机，败类中的VIP。</p><p>&nbsp;</p><p>59.我曾经是个天使，真的！在降临人间时，上帝慈祥地对我说：&ldquo;去吧，孩子，你是个为补考而生的男人。</p><p>&nbsp;</p><p>60.亲人之间，谈到钱就伤感情；情人之间，谈到感情就伤钱。</p><p>61.我不是你想象中的那样完美那样坚强，金钱和美女就足以把我征服！</p><p>62.不要相信什么一见钟情，因为你不能一眼看出对方挣多少钱</p><p>63.禽兽尚且有半点怜悯之心，而我一点也没有，所以我不是禽兽 .</p><p>64.我，论智商，10个脑筋急转弯马上能答对8个；论学识，10岁时，我已经读了8年的书；论文才，10分钟内，我可以口述一篇美文，照录下来，最多改8个字，就可以拿去发表；论记忆力，10个电话号码只报一遍我就能记住8个；论耐力，上午10点钟的尿，我可以坚持到第二天晚上8点才撒&hellip;&hellip;</p><p>65.还有真爱存在吗？当然有，电视剧里多的是</p><p>66.不要考验人，人是经不起考验的</p><p>67.你什么时候请我吃饭? 一会 我就出去给你买袋干脆面</p><p>68.台湾一日不收复，老子一日不过四级</p><p>69.男人可以风流但不能下流，女人可以风流但不能人流！</p><p>70.每个成功男人的背后，都有一个女人；每个不成功男人的背后，都有两个女人。</p><p>&nbsp;</p><p>推荐一个我一直在用的导航网 <a href="http://www.top678.com/">http://www.top678.com/</a>&nbsp; ，速度快，漂亮，瑞星安全认证，也设置成你的浏览器主页吧 <br />&nbsp;</p>]]></description><category>生活随笔</category><comments>http://www.sfd5.com/post/46.html#comment</comments><wfw:comment>http://www.sfd5.com/</wfw:comment><wfw:commentRss>http://www.sfd5.com/feed.asp?cmt=46</wfw:commentRss><trackback:ping>http://www.sfd5.com/cmd.asp?act=tb&amp;id=46&amp;key=6f71ad3a</trackback:ping></item><item><title>拥有一个短点的靓QQ号是多么辛苦的一件事情啊</title><author>a@b.com (admin)</author><link>http://www.sfd5.com/post/45.html</link><pubDate>Tue, 19 Jan 2010 17:40:34 +0800</pubDate><guid>http://www.sfd5.com/post/45.html</guid><description><![CDATA[<p>拥有一个稍微短点的读起来顺口的QQ号是多么辛苦啊。 ，我给大家计算一下:</p><p>&nbsp;</p><p>&nbsp;&nbsp;&nbsp;&nbsp; 平均一天会有两次以上收到木马网站链接，三次收到陌生人发来的病毒文件请你接收。</p><p><br />&nbsp;&nbsp;&nbsp; 平均两天会有一个人加你QQ，说是中奖或是它是系统，请你回复密码。</p><p>&nbsp;&nbsp;&nbsp; 平均三天会有一个人加你QQ，说你的号不错，卖不卖。</p><p>&nbsp;&nbsp;&nbsp; 平均四天会有一个陌生人加你，然后说一些莫名其吵的话，然后说借用你QQ号一下。就一会儿!</p><p>&nbsp;&nbsp;&nbsp; 平均五天会有一个女孩加你，说好听的。。。最后都是想借玩一个QQ号!</p><p>&nbsp;&nbsp;&nbsp; 和一个新交的网友聊天的时候，前几天，约有一半的时候，在聊你的号是怎么样申请的!</p><p>&nbsp;&nbsp;&nbsp; 好友或是网友加你的QQ号后，会希望你给他一个6位QQ号或是7位的也可以。并且在你说没有时，对方会不开心。(可是我是真的没有!)</p><p>&nbsp;&nbsp;&nbsp; 十个网友中会有一位认为你和QQ公司有关系。</p><p>&nbsp;&nbsp;&nbsp; 十个网友中会有两位认为你是黑客，会盗号。</p><p>&nbsp;&nbsp;&nbsp; 十个网友中会有三位认为你你手中有大量的靓号。</p><p>&nbsp;&nbsp;&nbsp; 十个网友中会其它四位会含糊说自己的号不好。</p><p>&nbsp;&nbsp;&nbsp; 当你告诉别人你的QQ号码时，别人会吃惊，但同时也会问你还有没有好QQ号。</p><p>&nbsp;&nbsp;&nbsp; 当你告诉别人你的QQ号码时，别人会等待你说下几位数字。</p><p>&nbsp;</p><p>&nbsp;&nbsp;&nbsp; 拥有一个位数短的QQ可以做什么?</p><p>&nbsp;&nbsp;&nbsp; 玩游戏的时候，可以取得一些朋友的信任，会给你一些装备。</p><p>&nbsp;&nbsp;&nbsp; 在网上做交易的时候，因为你有5位QQ号，会做退步，会先给你装备或是钱。</p><p>&nbsp;&nbsp;&nbsp; 在网上泡美眉的时候，就算她本来打算不理你，但可能会因为你的号不错。会通过你。</p><p>&nbsp;&nbsp;&nbsp; 平均加你的十个女生中，十八岁以下的占多半，她们就是看你号不错!</p><p>&nbsp;&nbsp;&nbsp; 以上的都无所谓，因为很多人关注你的QQ号码，所以你被盗的机会是别人的十倍以上!</p><p>&nbsp;</p><p>推荐一个网址导航站：&nbsp; <a href="http://www.top678.com/">http://www.top678.com/</a>&nbsp;&nbsp;&nbsp;&nbsp; 如果觉得不错，就设置为你的浏览器主页<br />&nbsp;</p>]]></description><category>生活随笔</category><comments>http://www.sfd5.com/post/45.html#comment</comments><wfw:comment>http://www.sfd5.com/</wfw:comment><wfw:commentRss>http://www.sfd5.com/feed.asp?cmt=45</wfw:commentRss><trackback:ping>http://www.sfd5.com/cmd.asp?act=tb&amp;id=45&amp;key=2daa2787</trackback:ping></item><item><title>网站的品牌影响力在一定程度上决定了网站排名</title><author>a@b.com (admin)</author><link>http://www.sfd5.com/post/44.html</link><pubDate>Thu, 14 Jan 2010 10:29:59 +0800</pubDate><guid>http://www.sfd5.com/post/44.html</guid><description><![CDATA[<p>我们现在来评价一个网站，或者说SE来评价一个网站，或者说SE对网站进行关键词打分排名。</p><p>看到的不仅仅只是网站的基本参数,例如：域名年龄，快照日期，外链数量，PR值，收录数量，网站代码，用户体验等等。</p><p>以后更多的是看这个网站对外界的影响力，或者说叫做网站的品牌价值。</p><p>总结了一下几点：</p><p>1.&nbsp; 网站信息的更新速度。</p><p>现在这种信息时代，速度变得越来越重要。</p><p>2.技术与经验的分享提供者</p><p>行业中的经验，技术分享是不是在你的网站得到了充分的体现。分享一直是互联网一个大的主题。</p><p>3. 信息发源地</p><p>你网站的信息，有多少网站进行了转载。</p><p>4. 先进的技术产品领导者</p><p>最新产品发布，最新技术发布，也会提高网站的影响力</p><p>5. 行业大会组织者，协办者，报道者</p><p>圈里的会议是否有你的参加，一定程度上也反映了网站的影响力</p><p>6. 百度新闻源里报道的次数</p><p>新闻源里的体积次数越多，说明受众关注度就越大。影响力越大</p><p>7. 权威网站报道次数，人 民， 新 华，CCTV 等。</p><p>这些网站的正面报道，相信SE会很看重。</p><p>8. 是否有行业其他权威站，门户站，GOV站的导入链接。</p><p>链接不在多少，具体看是哪个网站给你加的。</p><p>如果只是简单需要排名和流量的网站，以上阐述全是废话，更适用于打造权威行业站点，做互联网品牌的网站。</p><p>文章来自：&nbsp; <a target="_blank" href="http://www.sfd5.com/">赵威SEO</a>&nbsp;&nbsp;&nbsp;&nbsp; <a href="http://www.sfd5.com/">http://www.sfd5.com/</a></p>]]></description><category>百度SEO</category><comments>http://www.sfd5.com/post/44.html#comment</comments><wfw:comment>http://www.sfd5.com/</wfw:comment><wfw:commentRss>http://www.sfd5.com/feed.asp?cmt=44</wfw:commentRss><trackback:ping>http://www.sfd5.com/cmd.asp?act=tb&amp;id=44&amp;key=08eccd33</trackback:ping></item><item><title>百度被黑的30大猜想</title><author>a@b.com (admin)</author><link>http://www.sfd5.com/post/43.html</link><pubDate>Wed, 13 Jan 2010 16:48:07 +0800</pubDate><guid>http://www.sfd5.com/post/43.html</guid><description><![CDATA[<p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 1、百度寂寞的告诉中国网友，哥只是个传说。<br />　　2、GOOGLE喊百度回家吃饭<br />　　3、与中国网民玩躲猫猫。<br />　　4、被一根鞋带给吊死了<br />　　5、用纸币开手铐逃离地球了。<br />　　6、后宫优雅所为，娘娘（其实他是公公）今天不开心。<br />　　7、偷菜去了。<br />　　8、与贾君鹏忙着一起打《魔兽》。<br />　　9、被中国的陆基拦载导弹给误击了。<br />　　10、发现经济学家在使用自己，很不开心自尽了。<br />　　11、李彦宏便秘。<br />　　12、被XX软件过滤到了后台关键字。<br />　　13、服务器杯具。<br />　　14、没有理由，百度不高兴。<br />　　15、你的人品有问题。<br />　　16、不是百度打不开，是你眼神不好使。<br />　　17、被和蟹吃了。<br />　　18、被杨教授抓去精神病院了。<br />　　19、伊朗人选购了搜索结果排名第一位的火箭筒，到手之后发现是中国货。伊朗人民气不过，遂黑了百度。<br />　　20、仨大母猪干的。<br />　　21、熊猫烧香作者出狱后的小试牛刀。<br />　　22、被宝马撞出&ldquo;70码&rdquo;，死了。<br />　　23、到神秘的&rdquo;相关部门&ldquo;按手印去了。<br />　　24、传说是啥伊朗网络部队搞毕业考试把，把百度黑了给毕业证+推荐工作<br />　　25、互联网中心给停止百度域名解析了。<br />　　26、小沈阳说：这是为什么呢？<br />　　27、阴险的美国人劫持了百度的域名，然后让其指向自己申请的服务器。<br />　　28、只是为了证明:不要迷恋百度，百度只是个传说。<br />　　29、信访时被抓。<br />　　30、百度高出不胜寒<br />&nbsp;</p>]]></description><category>百度SEO</category><comments>http://www.sfd5.com/post/43.html#comment</comments><wfw:comment>http://www.sfd5.com/</wfw:comment><wfw:commentRss>http://www.sfd5.com/feed.asp?cmt=43</wfw:commentRss><trackback:ping>http://www.sfd5.com/cmd.asp?act=tb&amp;id=43&amp;key=2e70d7d1</trackback:ping></item><item><title>SEO新的旅程</title><author>a@b.com (admin)</author><link>http://www.sfd5.com/post/1.html</link><pubDate>Thu, 05 Nov 2009 10:43:57 +0800</pubDate><guid>http://www.sfd5.com/post/1.html</guid><description><![CDATA[<p>SEO新的旅程</p>]]></description><category>搜索引擎优化</category><comments>http://www.sfd5.com/post/1.html#comment</comments><wfw:comment>http://www.sfd5.com/</wfw:comment><wfw:commentRss>http://www.sfd5.com/feed.asp?cmt=1</wfw:commentRss><trackback:ping>http://www.sfd5.com/cmd.asp?act=tb&amp;id=1&amp;key=e97cf478</trackback:ping></item></channel></rss>
