ASP – 第 5 页 – 筚路蓝缕

ASP2006年12月3日2020年3月24日

在ASP中切换NT系统用户权限

在ASP中切换NT系统用户权限。使用下面的代码实现： <% Response.Buffer = TRUE […]

ASP2006年12月3日2011年10月19日

防范ASP木马

　　随着ASP 技术的发展，网络上基于ASP技术开发的网站越来越多，对ASP技术的支持可以说已经是window […]

ASP2006年12月3日2011年10月20日

防止ASP下载的终极方法

　　自从搞ASP+ACCESS没少为避免数据库下载而伤过神，网上的奇淫技巧更是数不胜数，本文就是同大家共同探讨 […]

ASP2006年12月3日2011年10月19日

预防SQL注入漏洞函数

仅仅代表我的观点.不怕见笑.有问题请大家指教!我想如果你是牛人,那这个已经不是值得你看的内容,只是觉得对与很多 […]

ASP2006年12月3日

ASP漏洞全接触-高级篇

　　看完入门篇和进阶篇后，稍加练习，破解一般的网站是没问题了。但如果碰到表名列名猜不到，或程序作者过滤了一些特 […]

ASP2006年12月3日

ASP漏洞全接触-入门篇

　　随着B/S模式应用开发的发展，使用这种模式编写应用程序的程序员也越来越多。但是由于这个行业的入门门槛不高， […]

ASP2006年12月3日

ASP漏洞全接触-进阶篇

　　在入门篇，我们学会了SQL注入的判断方法，但真正要拿到网站的保密内容，是远远不够的。接下来，我们就继续学习 […]

ASP2006年10月26日

错误类型：Server.MapPath(), ASP 0173 (0x80004005)

错误类型： Server.MapPath(), ASP 0173 (0x80004005) 在 MapPath […]

ASP2006年10月25日2011年10月3日

ASP生成静态Html文件技术杂谈

网页生成静态Html文件有许多好处,比如生成html网页有利于被搜索引擎收录,不仅被收录的快还收录的全.前台脱 […]

ASP2006年10月17日2011年10月3日

用XMLHTTP Post/Get HTML页面时的中文乱码问题之完全Script解决方案

以前我曾经贴过一篇用XMLHTTP Post Form 的帖子，那里的代码中我Post E文的Value毫无问 […]

ASP2006年10月17日2011年10月3日

采集原理—采集技术篇—XMLHTTP

最近一段时间，采集很热门，从新闻小偷，到音乐小偷，到新闻采集，Flash采集，都有他的踪影，现在还有很多的人对 […]

ASP2006年10月17日2011年10月3日

献给学习XMLHTTP的朋友

今天看了chinahuman 的《用asp自动解析网页中的图片地址，并将其保存到本地服务器》，于是优化了这个程 […]

ASP2006年10月17日2011年10月3日

用XMLHTTP很好的一个例子

进入www.ting88.com的网站,把歌手专辑页面的URL复制到文本框中再提交就可以得到歌曲的下载路径,如 […]

ASP2006年10月17日2011年10月3日

XMLHTTP抓取远程数据的后期处理

&lt;% 
hehe = Hello("http://mmsg.qq.com/cgi-bin/gddylist?Type=13&amp;Sort=1&amp;Page=3", "&lt;html&gt;", "&lt;/html&gt;", ".*(&lt;td width=""35%"" bgcolor=""#[dABCDE]{6}""&gt;(.*)&lt;/td&gt;)[.
]*", "&lt;font style=""font-size:9pt;"" color=blue&gt;$2&lt;/font&gt;&lt;br&gt;") 
response.Write hehe 

Function Hello(strUrl, strStart, strEnd, patrn, replStr) 
Str = GetBody(strUrl) 
Str = MyMid(Str, strStart, strEnd) 
Str = ReplaceTest(patrn, replStr, Str) 
Hello = Str 
End Function 

Function MyMid(Str, strstart, strend) 
If strstart = "" Then 
i = 0 
Else 
i = InStr(Str, strstart) 
End If 
If strend = "" Then 
j = Len(Str) 
Else 
j = InStr(i, Str, strend) 
End If 
MyMid = Mid(Str, i, j - i + 1) 
End Function 

Function ReplaceTest(patrn, replStr, str1) 
Dim regEx, match, matches 
Set regEx = New RegExp 
regEx.Pattern = patrn 
regEx.IgnoreCase = True 
regEx.Global = True 
Set matches = regEx.Execute(str1) 
For Each match in matches 
ReplaceTest = ReplaceTest?Ex.Replace(Match.Value, replStr) 
Next 
End Function 

Function GetBody(Url) 
Set objXML = createObject("Microsoft.XMLHTTP") 
With objXML 
.Open "Get", Url, False, "", "" 
.SEnd 
GetBody = .ResponseBody 
End With 
GetBody = BytesToBstr(GetBody, "GB2312") 
Set objXML = Nothing 
End Function 

Function BytesToBstr(strBody, CodeBase) 
Set objStream = Server.createObject("Adodb.Stream") 
With objStream 
.Type = 1 
.Mode = 3 
.Open 
.Write strBody 
.Position = 0 
.Type = 2 
.Charset = CodeBase 
BytesToBstr = .ReadText 
.Close 
End With 
Set objStream = Nothing 
End Function 
%&gt;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

<%

hehe = Hello("http://mmsg.qq.com/cgi-bin/gddylist?Type=13&Sort=1&Page=3", "<html>", "</html>", ".*(<td width=""35%"" bgcolor=""#[dABCDE]{6}"">(.*)</td>)[.

]*", "<font style=""font-size:9pt;"" color=blue>$2</font><br>")

response.Write hehe

Function Hello(strUrl, strStart, strEnd, patrn, replStr)

Str = GetBody(strUrl)

Str = MyMid(Str, strStart, strEnd)

Str = ReplaceTest(patrn, replStr, Str)

Hello = Str

End Function

Function MyMid(Str, strstart, strend)

If strstart = "" Then

i = 0

Else

i = InStr(Str, strstart)

End If

If strend = "" Then

j = Len(Str)

Else

j = InStr(i, Str, strend)

End If

MyMid = Mid(Str, i, j - i + 1)

End Function

Function ReplaceTest(patrn, replStr, str1)

Dim regEx, match, matches

Set regEx = New RegExp

regEx.Pattern = patrn

regEx.IgnoreCase = True

regEx.Global = True

Set matches = regEx.Execute(str1)

For Each match in matches

ReplaceTest = ReplaceTest?Ex.Replace(Match.Value, replStr)

Next

End Function

Function GetBody(Url)

Set objXML = createObject("Microsoft.XMLHTTP")

With objXML

.Open "Get", Url, False, "", ""

.SEnd

GetBody = .ResponseBody

End With

GetBody = BytesToBstr(GetBody, "GB2312")

Set objXML = Nothing

End Function

Function BytesToBstr(strBody, CodeBase)

Set objStream = Server.createObject("Adodb.Stream")

With objStream

.Type = 1

.Mode = 3

.Open

.Write strBody

.Position = 0

.Type = 2

.Charset = CodeBase

BytesToBstr = .ReadText

.Close

End With

Set objStream = Nothing

End Function

%>

[crayon-68f6fa39830468 […]

ASP2006年10月17日2011年10月20日

XMLHTTP批量抓取远程资料

可以在此基础上结合正则表达式做成更好的效果，希望大家能分享一下Xmlhttp的session共享技术 [cra […]

ASP2006年10月17日

防采集而不防搜索引擎策略

从前面的我讲的采集原理大家可以看出，绝大多数采集程序都是靠分析规则来进行采集的，如分析分页文件名规则、分析页面 […]

ASP2006年10月17日

防采集策略

目前防采集的方法有很多种，先介绍一下常见防采集策略方法和它的弊端及采集对策：一、判断一个IP在一定时间内对本 […]

ASP2006年10月17日2011年10月3日

说采集就大家一起来聊采集吧

采集原理：采集程序的主要步骤如下：一、获取被采集的页面的内容二、从获取代码中提取所有用的数据一、获取被 […]

ASP2006年10月17日

论坛E-mail验正的正则表达式升级

今天拿到了传说中有1G大的Gmai,确实很好用速度极快，没有了传统的收件夹，取了代之的是labels ,用户自 […]

ASP2006年9月26日2011年10月20日

ASP下载系统防盗链三种方法

第一方法两个文件，第一个文件（例子中的index.asp）负责产生随机的下载链接，并将密匙写入COOKIE； […]

ASP2006年9月26日2011年10月20日

ASPJpeg 组件/JMail组件下载/说明

在Asp程序中用Jmail发邮件的比较多，主要是因为多数虚拟主机支持他，其它的支持的较少。下面是一个Jmail […]

ASP2006年5月23日2011年10月4日

怎么实现数据记录的分页显示

怎么实现数据记录的分页显示 (1) 通过Recordset的GetRows方法，可以实现数据记录的分页显示。下 […]

ASP2006年5月23日2011年10月3日

ASP中正则表达式的应用

一、正则表达式概述二、正则表达式在VBScript中的应用三、正则表达式在VavaScript中的应用四 […]

ASP2006年5月23日

ASP下格式化时间和日期的函数

我们有时候遇到的日期格式可能是2006-1-12 ,系统自动将月份中的0去掉了，但是有时候我们需要完整的日期格 […]

ASP2006年5月23日2011年10月4日

ASP日期函数

<%=year(now)%>年<%=month(now)%>月<%=day(no […]

返回顶部