附上两种函数代码：

Public Function SaveHtmlPageFile(FileName,HtmlStr)

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile(FileName, 2, True)

f.Write

HtmlStrf.Close

set f=nothing

set fso=nothing

End Function

--------------------------------------------------------------------

Sub SaveHtmlPageFile(FileName,HtmlStr)

set stm = server.CreateObject("adodb.stream")

stm.Type = 2

stm.mode = 3

stm.openstm.WriteText HtmlStr

stm.SaveToFile FileName,2

stm.flush

stm.Close

set stm=nothing

End Sub

1. AC560 Win7 32位
(如已在Win7下安装过AC560，无信号，则先完全卸载“无线宽带”程序)
将AC560猫插入USB口,
“计算机”(xp中叫“我的电脑”)下会自动产生一个可移动光盘，
将该光盘中的所有文件(15MB)复制到硬盘某个文件夹(如“D:\AC560”)下，
双击该可移动光盘，自动安装无线宽带程序（如不自动安装，就进入光盘，双击“autorun.exe”），

进入“设备管理器”，发现有几个“Data Interface”设备的驱动未装好，
手工指定目录(上面提到的某个文件夹，如“D:\AC560”)，逐个安装驱动，
另外一个USB设备(AC560内置的TF读卡器)驱动也用同样方法安装驱动，
装好后的截图，
双击桌面“无线宽带”……
2. AC560 Win7 64位
直接下载中国电信最新的驱动
http://messenger.vnet.cn/esurfing/CT_ZTE_DOA_General_V1.1.8.zip
直接安装，选择下一步，完全安装，重新启动就可以了！

12月经历了人生第一次活剐，没有任何麻醉，被刀片，剪刀生生地划来剪去，唯一的感觉就是疼！

那种疼，是你抓紧了床框还有使不完的力气，是你咬紧了衣服还需大吼一声，是你紧紧的用尽所有力气颤抖地无法抵抗...

那种疼，不是瞬间的，是长时间的煎熬..没有任何躲避的念头，除了疼，我只能疼。

当双氧水浇到身体，那一瞬间沸腾的疼之后，一切变成麻木。

回首2011，我第一个就是“疼”，它那么近又那么远，经历过就好！

下面说说网站内部链接的经验。
    1要.建立网站地图
  网站地图这个概念是谷歌提出来的，网站地图上应该包括一些让蜘蛛爬去的重要页面的入口，当然这些如果越细越好。
    2.链接文字
  最好选择较为形象、全面的关键词作为链接的文字，使得网站的结构能够清晰的一目了然。
    3.尽量使用文字导航
  网站的导航系统最好使用文字连接。有的seo朋友喜欢用js或者flash的效果来做导航，效果确实很绚，可惜蜘蛛无法感受你这份精彩。如果为了美观不得不使用图片或者js，至少在网站底部或者网站地图中应该有所有栏目的文字链接。
    4.网页的深度保持3~4层
  对一个中小型网站来说，要确保从首页出发，四个词点击之内就要达到任何一个页面，当然如果在三次点击之内就更好。配合网站地图的使用做到这一点应该不成问题。
    5.网页的互相连接
  以前说网站的树形结构，不过要注意的是这种树形结构并不是说各个栏目下的文章之间没有链接，恰恰相反，应该在不同栏目的网页中链接向其他栏目的相关网页。
只有这样，才能使得网站内部形成一个庞大的结构网，让蜘蛛成为网上的常客！

为了让更多朋友使用上这样的系统，而不在因为您没有使用dedecms或者杰优企业网站系统，下面我把最核心的ASP代码贴出来，供大家参考！

<%On Error Resume Next

Server.ScriptTimeOut=9999999

Function getHTTPPage(Path)

t = GetBody(Path)

getHTTPPage=BytesToBstr(t,"GB2312")

End function

Function Newstring(wstr,strng)

Newstring=Instr(lcase(wstr),lcase(strng))

if Newstring<=0 then Newstring=Len(wstr)

End Function

Function BytesToBstr(body,Cset)

dim objstream

set objstream = Server.CreateObject("adodb.stream")

objstream.Type = 1

objstream.Mode =3

objstream.Open

objstream.Write body

objstream.Position = 0

objstream.Type = 2

objstream.Charset = Cset

BytesToBstr = objstream.ReadText

objstream.Close

set objstream = nothing

End Function

Function GetBody(url)

on error resume next

Set Retrieval = CreateObject("Microsoft.XMLHTTP")

With Retrieval

.Open "Get", url, False, "", ""

.Send

GetBody = .ResponseBody

End With

Set Retrieval = Nothing

End Function

Dim wstr,str,url,start,over,dtime

a="没有"

b="与<span style="

url="http://www.baidu.com/baidu?word=http://www.szjieyou.com"

wstr=getHTTPPage(url)

start=Newstring(wstr,a)

over=Newstring(wstr,b)

body=mid(wstr,start,over-start)

if body<>"没有找到" then

response.write "有收录"

else

response.write "没有收录"

end if

%>

最近，百度一直很骚动，在百度seo横行天下的时候，如果你不懂，如何去提高你的排名呢？下面分析一个新的案例：

做百度百科，百度经验，百度知道，百度文档等百度系产品推广

重点我来讲下百度seo之百度百科

百度百科针对企业类收录还是很不错，也就是说你用公司名字，最后添加公司网址还是很不多，这也算一个比较好的外链资源（外部采集百度系产品垃圾站太多）

我今天要讲的是除了为了外链，还可以优化自己关键词的排名

具体操作起来很简单，不要以公司名称为词条，刻意增加隐形关键词，这样可以起到不错的效果，还有就是词条的第一句话最好也要包含你的目标关键词，这样试试效果吧！

下图1即为某关键词百度第一页排名状况，注意百度蜘蛛抓取的description

下图2是人工修改过的(已去除目标关键词)，排名效果照样不错

这里我只是提一个思路，具体的持续性效果还有待观察，希望能举一反三有点启发！

对不起，为了系统安全，不允许直接输入地址访问本系统的后台管理页面。

对不起，为了系统安全，不允许从外部链接地址访问本系统的后台管理页面。

后台目录已经更改，请将后台目录更改为"&AdminDir&"再访问！

除了长期使用下来的操作习惯，这样做产品分类的确有很独特的优点：1.树形结构，一目了然；2.附上产品数量，直接看出哪些是热点，无需再去通过其他途径寻找..

面对这样的分类方式，对我来说是一个不大不小的挑战，为什么呢？挑战一：网站系统从开始到现在一直为单级目录，没有接触过多产品多目录的网站；2.除了程序，这需要一个合适的数据库结构；3.参数循环有点绕头；4.貌似还涉及一点点数组的概念..

还好搞定了..废话不多说了，直接贴上源代码（ASP版），代码写的不简介，这里只记录完成了这一功能，具体的效率优化后续再做努力！

 <div class="winstyle2"> 

<%set rs2=server.createobject("adodb.recordset")

sql2="select * from productdb" 

rs2.open sql2,conn,1,1%>

<h2><img src="<%=weburl%>images/motuo/customGroupTitle.gif" border="0"> Products [<%=rs2.recordcount%>]</h2>

<%rs2.close

set rs2=nothing%>

<ul>

<%set rs=server.createobject("adodb.recordset")

sql="select top 20 typeid,typename from productype where sortid=0 order by typeid asc"

rs.open sql,conn,1,1

if rs.eof and rs.bof then

Response.Write"<br>No productsort!"

end if

do while not rs.eof

sqlid=""

set rs2=server.CreateObject("adodb.recordset")

sql2="select typeid,sortid from productype where sortid="&rs("typeid")

rs2.open sql2,conn,1,1

if rs2.eof and rs2.bof then

sqlid=rs("typeid")

else

do while not rs2.eof

sqlid=rs2("typeid")&","&sqlid

rs2.movenext

loop

end if

rs2.close

set rs2=nothing%>

<li class="oncate" >

<img src='<%=weburl%>images/motuo/open.png' alt='<%=rs("typename")%>' border='0'/> <a href='<%=weburl%><%=StrReplace(rs("typename"))%>.html' title='Chinese <%=rs("typename")%>' target="_self"> <%=rs("typename")%></a> 

<%set rs3=server.CreateObject("adodb.recordset")

sql3="select * from productdb where typeid in("&sqlid&")"

rs3.open sql3,conn,1,1%>

[<%=rs3.recordcount%>]</li>

<%rs3.close

set rs3=nothing

set rs1=server.CreateObject("adodb.recordset")

 sql1="select top 20 typeid,typename,sortid from productype where sortid="&rs("typeid")

 rs1.open sql1,conn,1,1

 if rs1.eof and rs1.bof then

 else

 do while not rs1.eof

set rs4=server.createobject("adodb.recordset")

sql4="select * from productdb where typeid="&rs1("typeid")

rs4.open sql4,conn,1,1%>

<li class="parcate" ><img src='<%=weburl%>images/motuo/icon_arrow.gif' alt='<%=rs("typename")%>' border='0'/> <a href='<%=weburl%><%=StrReplace(rs1("typename"))%>.html' title='Chinese <%=rs1("title")%>' target="_self"> <%=rs1("typename")%></a> [<%=rs4.recordcount%>]</li>

<%rs4.close

 set rs4=nothing

 rs1.movenext 

 loop 

 end if

 rs1.close

 set rs1=nothing

rs.movenext

loop

rs.close

set rs=nothing%>

</ul> 

</div>