Set fso = CreateObject("Scripting.FileSystemObject")
File=Server.MapPath("要生成文件路径和文件名.htm")
Set txt=fso.OpenTextFile(File,8,True)
data1="文件内容"用WriteLine方法生成文件
txt.WriteLine data1
data2="文件内容"'用Write方法生成文件
txt.Write data2
txt.Close
txt.fso
'-----------------翟振恺(小琦)
2、

ADODB.Stream生成文件方法：

CODE:[Copy to clipboard]'-----------------翟振恺(小琦)
Dim objAdoStream
set objAdoStream = Server.createObject("ADODB.Stream")
objAdoStream.Type = 1
objAdoStream.Open()
objAdoStream.Write("文件内容")
objAdoStream.SaveToFile 要生成文件路径和文件名.htm,2
objAdoStream.Close()
'-----------------翟振恺(小琦)
再说一下我对HTML防采集却不防搜索引擎蜘蛛的一些经验：

我开发过几个采集程序，也研究过很多采集程序代码，所以对采集程序的原理还算是稍微有些了解。
先说一下采集原理：

采集程序的主要步骤如下：

一、获取被采集的页面的内容
二、从获取代码中提取所有用的数据

一、获取被采集的页面的内容

我目前所掌握的ASP常用获取被采集的页面的内容方法：

1、用serverXMLHTTP组件获取数据

CODE:[Copy to clipboard]Function GetBody(weburl)
'-----------------翟振恺(小琦)
  '创建对象
  Dim ObjXMLHTTP
  Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
  '请求文件,以异步形式
  ObjXMLHTTP.Open "GET",weburl,False
  ObjXMLHTTP.send
  While ObjXMLHTTP.readyState <> 4
    ObjXMLHTTP.waitForResponse 1000
  Wend
  '得到结果
  GetBody=ObjXMLHTTP.responseBody
  '释放对象
  Set ObjXMLHTTP=Nothing
'-----------------翟振恺(小琦)
End Function
调用方法：
GetBody(文件的URLf地址)
2、或XMLHTTP组件获取数据

CODE:[Copy to clipboard]Function GetBody(weburl)
'-----------------翟振恺(小琦)
  '创建对象
  Set Retrieval = CreateObject("Microsoft.XMLHTTP")
  With Retrieval
  .Open "Get", weburl, False, "", ""
  .Send
  GetBody = .ResponseBody
  End With
  '释放对象
  Set Retrieval = Nothing
'-----------------翟振恺(小琦)
End Function

上一页 [1] [2] [3] [4] [5] 下一页

上一篇:网页在线播放器代码大全

下一篇:IIS安装配置全攻略