« shtml精简教程 | (回到Blog入口) | 网站自动识别 V0.5 (不断完善中) »

正则小偷的部份核心函数


[code]<%
''Post方式提交数据并返网页内容
''参数:A_strURL - 网页地址
''   A_strData - 提交内容,格式:A1=a1&A2=a2&A3=a3....


[code]<%
'Post方式提交数据并返网页内容
'参数:A_strURL - 网页地址
'   A_strData - 提交内容,格式:A1=a1&A2=a2&A3=a3....
Function PostWebData(byval A_strUrl,byval A_strData)
Dim MM_objBytesStream
dim MM_objHttp

Set MM_objHttp = Server.CreateObject("Microsoft.XMLHTTP")
Set MM_objBytesStream = Server.CreateObject("ADODB.Stream")
MM_objHttp.Open "POST", A_strUrl, False, "", ""
MM_objHttp.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
MM_objHttp.Send (A_strData)
With MM_objBytesStream
.Type = 2
.Open
.WriteText MM_objHttp.Responsebody
.Position = 0
.Charset = "GB2312"
.Position = 2
GetWebData=.ReadText
.close
End With
Set MM_objBytesStream = Nothing
Set MM_objHttp = Nothing
End Function

'Get方式提交数据并返网页内容
'参数:A_strURL - 网页地址及参数格式:http://xxx.com/xxx.asp?A1=a1&A2=a2&A3=a3....
Function GetWebData(byval A_strUrl)
Dim MM_objBytesStream
dim MM_objHttp
Set MM_objHttp = Server.CreateObject("Microsoft.XMLHTTP")
Set MM_objBytesStream = Server.CreateObject("ADODB.Stream")
MM_objHttp.Open "Get", A_strUrl, False, "", ""
MM_objHttp.Send
With MM_objBytesStream
.Type = 2
.Open
.WriteText MM_objHttp.Responsebody
.Position = 0
.Charset = "GB2312"
.Position = 2
GetWebData=.ReadText
.close
End With
if err.number<>0 then
Response.write err.description
Response.End()
end if
Set MM_objBytesStream = Nothing
Set MM_objHttp = Nothing
End Function

'正则式内容截取函数
'参数:A_strString - 内容截取源。如:用GetWebData或PostWebData截取的内容。
'   A_strPattern - 正则表达式。
'   A_strBlip - 决定函数返回的内容。
'使用如:mymid(m_strStr,"软件大小:  (.*)
软件语言:","$1")
function mymid(byval A_strString,byval A_strPattern,byval A_strBlip)
dim MM_objRegexp
dim MM_strExecute

set MM_objRegexp=new regexp
with MM_objRegexp
.Pattern=A_strPattern
.IgnoreCase=True
.Global=false
set MM_strExecute=.Execute(A_strString)
if MM_strExecute.count<>0 then
mymid=.replace(MM_strExecute.item(0).value,A_strBlip)
end if
end with
mymid=trim(replace(mymid," "," "))
set MM_objRegexp=nothing
end function
%>[/code]

关于

此页面包含了发表于2005年5月 5日 12:11的 Blog 上的单篇日记。

此 Blog 的前一篇日记是 shtml精简教程

此 Blog 的后一篇日记是 网站自动识别 V0.5 (不断完善中)

更多信息可在 主索引 页和 归档 页看到。

Creative Commons License
此 Blog 中的日记遵循以下授权 Creative Commons(创作共用)授权.
Powered by
Movable Type 6.3.2