asp小偷采集常用函数

ASP新手入门

<%

‘==================================================

‘函数名:GetHttpPage

‘作 用:获取网页源码

‘参 数:HttpUrl ——网页地址

‘==================================================

Function GetHttpPage(HttpUrl)

If IsNull(HttpUrl)=True Or Len(HttpUrl)<18 Or HttpUrl=”$False$” Then

GetHttpPage=”$False$”

Exit Function

End If

Dim Http

Set Http=server.createobject(“MSXML2.XMLHTTP”)

Http.open “GET”,HttpUrl,False

Http.Send()

If Http.Readystate<>4 then

Set Http=Nothing

GetHttpPage=”$False$”

Exit function

End if

GetHTTPPage=bytesToBSTR(Http.responseBody,”GB2312″)

Set Http=Nothing

If Err.number<>0 then

Err.Clear

End If

End Function




‘==================================================

‘函数名:BytesToBstr

‘作 用:将获取的源码转换为中文

‘参 数:Body ——要转换的变量

‘参 数:Cset ——要转换的类型

‘==================================================

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




‘==================================================

‘函数名:PostHttpPage

‘作 用:登录

‘==================================================

Function PostHttpPage(RefererUrl,PostUrl,PostData)

Dim xmlHttp

Dim RetStr

Set xmlHttp = CreateObject(“Msxml2.XMLHTTP”)

xmlHttp.Open “POST”, PostUrl, False

XmlHTTP.setRequestHeader “Content-Length”,Len(PostData)

xmlHttp.setRequestHeader “Content-Type”, “application/x-www-form-urlencoded”

xmlHttp.setRequestHeader “Referer”, RefererUrl

xmlHttp.Send PostData

If Err.Number <> 0 Then

Set xmlHttp=Nothing

PostHttpPage = “$False$”

Exit Function

End If

PostHttpPage=bytesToBSTR(xmlHttp.responseBody,”GB2312″)

Set xmlHttp = nothing

End Function




‘==================================================

‘函数名:UrlEncoding

‘作 用:转换编码

‘==================================================

Function UrlEncoding(DataStr)

Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8

StrReturn = “”

For Si = 1 To Len(DataStr)

ThisChr = Mid(DataStr,Si,1)

If Abs(Asc(ThisChr)) < &HFF Then

StrReturn = StrReturn & ThisChr

Else

InnerCode = Asc(ThisChr)

If InnerCode < 0 Then

InnerCode = InnerCode + &H10000

End If

Hight8 = (InnerCode And &HFF00)\ &HFF

Low8 = InnerCode And &HFF

StrReturn = StrReturn & “%” & Hex(Hight8) & “%” & Hex(Low8)

End If

Next

UrlEncoding = StrReturn

End Function




‘==================================================

‘函数名:GetBody

‘作 用:截取字符串

‘参 数:ConStr ——将要截取的字符串

‘参 数:StartStr ——开始字符串

‘参 数:OverStr ——结束字符串

‘参 数:IncluL ——是否包含StartStr

‘参 数:IncluR ——是否包含OverStr

‘==================================================

Function GetBody(ConStr,StartStr,OverStr,IncluL,IncluR)

If ConStr=”$False$” or ConStr=”" or IsNull(ConStr)=True Or StartStr=”" or IsNull(StartStr)=True Or OverStr=”" or IsNull(OverStr)=True Then

GetBody=”$False$”

Exit Function

End If

Dim ConStrTemp

Dim Start,Over

ConStrTemp=Lcase(ConStr)

StartStr=Lcase(StartStr)

OverStr=Lcase(OverStr)

Start = InStrB(1, ConStrTemp, StartStr, vbBinaryCompare)

If Start<=0 then

GetBody=”$False$”

Exit Function

Else

If IncluL=False Then

Start=Start+LenB(StartStr)

End If

End If

Over=InStrB(Start,ConStrTemp,OverStr,vbBinaryCompare)

相关内容推荐

ASP表单输入到HTML

ASP能写.html或者任何其他的直接到web服务器的文档文本(你需要写文本输出到写权限的目录)。这是能够不需要上传PC的文件用户输入即时的发布信息。 下面的例子有四个输入区域(标

周的天数

想在asp显示当前一周有多少天吗?这个代码会把握住今天的值和利用到案例选择显示一周的天数。 % date_value = date() %%= date_value %br% dayofweek=weekday(date_value) %day number in week %= dayofweek %br%

ASP-条件语句

有时,当我们写代码时,我们要为作出不同的决定而执行不同的操作。我们可以使用条件语句中的代码来做到这一点。条件语句是一套用于执行基于不同条件的不同动作的命令。 为了支

编写第一个ASP程序

现在有很多关于ASP编程的教程。其中有些是对于你有帮助,有些完全没有用。甚至有些写得是误人子弟。无论如何,你读过一些关于ASP的内容,现在你已经准备好构建第一个应用程序。

asp获取IP地址的函数

FunctionGetIp() DimDulIp,ProIP DulIp=Request.ServerVariables("HTTP_X_FORWARDED_FOR") ProIP=Request.ServerVariables("REMOTE_ADDR") IfDulIp=""Then GetIp=ProIP Else GetIp=DulIp EndIf EndFunction

返回
顶部