深圳网站建设技术博客

<%
Dim Url,Content,awbno
Url = "http://www.fkdex.com/"
awbno = Request.Form("awbno")
If awbno="" Or IsNull(awbno) Then
Content = GetData(Url,1)
Else
Content = PostData(Url&"return.asp","awbno=" & awbno,1)
End If

Content = Replace(Content,"images/",Url & "images/")
Content = Replace(Content,"return.asp","")
Response.Write Content

Function GetData(GetUrl,GetMode)
Dim Http
Set Http = Server.CreateObject("msxml2.XMLHTTP")
With Http
.Open "GET",GetUrl,False
.SetRequestHeader "Referer",GetUrl
.Send
If GetMode = 0 Then
GetData = .ResponseBody
Else
GetData = BytesToBstr(.ResponseBody,"GB2312")
End If
End With
Set Http = Nothing
End Function

Function PostData(PostUrl,PostStr,PostMode)
Dim Http
Set Http = Server.CreateObject("msxml2.XMLHTTP")
With Http
.Open "POST",PostUrl,False
.SetRequestHeader "Content-Length",Len(PostStr)
.SetRequestHeader "Content-Type","application/x-www-form-urlencoded"
.SetRequestHeader "Referer",PostUrl
.Send PostStr
If PostMode=0 Then
PostData = .ResponseBody
Else
PostData = BytesToBstr(.ResponseBody,"GB2312")
End If
End With
Set Http = Nothing
End Function

Function BytesToBstr(Body,Cset)
Dim ADOS
Set ADOS = Server.CreateObject("Adodb.Stream")
With ADOS
.Type = 1
.Mode =3
.Open
.Write Body
.Position = 0
.Type = 2
.Charset = Cset
BytesToBstr = .ReadText
.Close
End With
Set ADOS = Nothing
End Function
%>