源码网,源码论坛,源码之家,商业源码,游戏源码下载,discuz插件,棋牌源码下载,精品源码论坛

 找回密码
 立即注册
查看: 519|回复: 24

[ASP编程] 小偷,采集程序常用函数

[复制链接]

7万

主题

861

回帖

32万

积分

论坛元老

Rank: 8Rank: 8

积分
329525
发表于 2006-9-6 00:00:00 | 显示全部楼层 |阅读模式
<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>
回复

使用道具 举报

4

主题

1万

回帖

60

积分

注册会员

Rank: 2

积分
60
发表于 2022-8-9 03:55:18 | 显示全部楼层
加快速度很快就撒谎
回复 支持 反对

使用道具 举报

16

主题

2万

回帖

376

积分

中级会员

Rank: 3Rank: 3

积分
376
发表于 2022-12-7 21:41:28 | 显示全部楼层
看到这帖子真是高兴!
回复 支持 反对

使用道具 举报

0

主题

1万

回帖

0

积分

中级会员

Rank: 3Rank: 3

积分
0
发表于 2023-2-5 14:27:58 | 显示全部楼层
撒房产税陈飞飞
回复 支持 反对

使用道具 举报

15

主题

2万

回帖

122

积分

注册会员

Rank: 2

积分
122
发表于 2023-7-8 22:18:13 | 显示全部楼层
8888888888888888
回复 支持 反对

使用道具 举报

0

主题

1万

回帖

0

积分

中级会员

Rank: 3Rank: 3

积分
0
发表于 2023-8-27 09:47:44 | 显示全部楼层
我要金豆金豆金豆
回复 支持 反对

使用道具 举报

0

主题

2万

回帖

0

积分

中级会员

Rank: 3Rank: 3

积分
0
发表于 2023-10-4 04:35:14 | 显示全部楼层
我找了挺久终于找到了
回复 支持 反对

使用道具 举报

0

主题

2万

回帖

0

积分

中级会员

Rank: 3Rank: 3

积分
0
发表于 2023-10-15 15:36:42 | 显示全部楼层
额UI废物iuhfujewfiewnnfen
回复 支持 反对

使用道具 举报

9

主题

2万

回帖

420

积分

中级会员

Rank: 3Rank: 3

积分
420
发表于 2024-3-2 06:27:51 | 显示全部楼层
额风风风微风微风违法
回复 支持 反对

使用道具 举报

13

主题

2万

回帖

85

积分

注册会员

Rank: 2

积分
85
发表于 2024-3-25 20:24:37 | 显示全部楼层
谢谢您的分享!
回复 支持 反对

使用道具 举报

高级模式
B Color Image Link Quote Code Smilies

本版积分规则

手机版|小黑屋|网站地图|源码论坛 ( 海外版 )

GMT+8, 2024-11-23 15:26 , Processed in 0.077692 second(s), 26 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表