小偷,采集程序常用函数

所属分类: 网络编程 / ASP编程 阅读数: 1132
收藏 0 赞 0 分享
<script language="javascript" runat="server">
//连接数据库
function connOpen(DataBaseConnectStr){
  var conn = Server.CreateObject("ADODB.Connection");
  conn.Open(DataBaseConnectStr);
  return conn;
}
//利用AdoDb.Stream对象来读取指定格式的文本文件
function readFromTextFile(FileUrl,CharSet){
  var str;
  var stm = Server.CreateObject("adodb.stream");
  stm.Type = 2;
  stm.Mode = 3;
  stm.Charset=CharSet;
  stm.open;
  stm.LoadFromFile(Server.MapPath(FileUrl));
  str = stm.ReadText
  stm.close;
  return str;
}
//利用AdoDb.Stream对象来写入指定格式的文本文件
function writeToTextFile(FileUrl,Str,CharSet){
  var stm = Server.CreateObject("adodb.stream");
  stm.Type = 2;
  stm.Mode = 3;
  stm.Charset = CharSet;
  stm.open;
  stm.WriteText(Str);
  stm.SaveToFile(Server.MapPath(FileUrl),2);
  stm.flush;
  stm.close;
}
//利用fso判断文件是否存在
function isFileExist(FileUrl){
 var FSO = Server.CreateObject("Scripting.FileSystemObject")
 if(FSO.FileExists(Server.MapPath(FileUrl))){
 return true;
 }else{
 return false;
 }
}
//利用fso写文件
function CateFile(files,fbody){
  var fs = Server.CreateObject("Scripting.FileSystemObject");
  var a = fs.CreateTextFile(Server.mappath(files));
  a.Write(fbody);
  a.close();
}
//获取目标页面源代码
function getHTTPPage(url){
  var Http= Server.CreateObject("Microsoft.XMLHTTP");
  Http.open("GET",url,false);
  Http.send();
  if (Http.readystate!==4){return false;}
  return(BytesToBstr(Http.responseBody,"GB2312"));
}
//编码
function BytesToBstr(body,Cset){
  var 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;
  return(objstream.ReadText);
  objstream.Close();
}
//获取完整连接地址
function GetCompleteUrl(sources_url,get_url){
  if(get_url.indexOf("http://")!=-1)return get_url;
  var completeUrl="";
  var sources_url_arr = sources_url.split("/");
  var get_url_arr = get_url.split("../");
  for(var i=0;i<sources_url_arr.length-get_url_arr.length;i++){
    completeUrl += sources_url_arr[i] + "/";
  }
  completeUrl += get_url_arr[get_url_arr.length-1];
  return completeUrl;
}
</script>
更多精彩内容其他人还在看

asp知识整理笔记4(问答模式)

这是关于asp知识整理的最后一份笔记,希望大家仔细阅读。
收藏 0 赞 0 分享

ASP基础知识VBScript基本元素讲解

这篇文章主要介绍了ASP基础知识VBScript基本元素的相关资料,需要的朋友可以参考下
收藏 0 赞 0 分享

ASP编码和解码函数详解

这篇文章主要介绍了ASP编码和解码函数的相关资料,需要的朋友可以参考下
收藏 0 赞 0 分享

ASP显示页面执行时间的方法

这篇文章主要介绍了ASP显示页面执行时间的方法,在本地测试一下输出页面需要多少时间,需要的朋友可以参考下
收藏 0 赞 0 分享

ASP基础入门第一篇(ASP技术简介)

本文将以 Active Server Pages 为中心,向你全面展示制作动态商业网站的步骤和技巧并通过大量的实例,让你在不断的理论和实践之中笑傲“网络”……
收藏 0 赞 0 分享

ASP基础入门第二篇(ASP基础知识)

这篇文章是ASP基础入门第二篇,第一篇展示了ASP动态网站设计的一些最基本的方法,相信通过实践各位对 ASP 已经有了最基本的了解,本文将进一步介绍ASP动态网站的一些基本技巧,需要的朋友可以参考下
收藏 0 赞 0 分享

ASP基础入门第三篇(ASP脚本基础)

通过前两篇的学习,相信各位已经对 ASP 的动态网站设计有了一个基本的概念和整体的印象。从本篇开始作者将从脚本语言的使用着手,由浅入深地带领大家探索 ASP 动态网站设计的真正奥秘。
收藏 0 赞 0 分享

ASP基础入门第四篇(脚本变量、函数、过程和条件语句)

大家在学习了脚本语言 VBScript 的变量、常量和过程的基本概念后,本期将继续向各位介绍 VBScript 的函数和语法。
收藏 0 赞 0 分享

ASP基础入门第五篇(ASP脚本循环语句)

在本文上两篇中,我们学习了脚本语言 VBScript 的变量、函数、过程和条件语句,本篇将继续给大家介绍 VBScipt 的循环语句,并对脚本语言在 ASP 中的应用加以总结。  
收藏 0 赞 0 分享

ASP基础入门第六篇(ASP内建对象Request)

从本篇开始作者从 ASP 内建对象着手,为大家详细剖析 ASP 的六个内建对象和各种组件的特性和方法,需要的朋友可以参考下
收藏 0 赞 0 分享
查看更多