猪圈

[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]