Acabei de escrever um programa ladrão e, de repente, descobri que o conteúdo não poderia ser capturado ao fazer POST em chinês. Considerando o problema de codificação chinês, como escape() em javascript, esta função também pode ser usada em vbscript. para capturar normalmente. Obtenha o conteúdo send(A=&escape(A)&&escape(B))
Encerre o dia!
Em anexo estão diversas funções comumente usadas por ladrões
Função ByteToStr(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strReturn =
Para i = 1 para LenB(vIn)
EsteCharCode = AscB(MidB(vIn,i,1))
Se ThisCharCode <&H80 Então
strReturn = strReturn & Chr(ThisCharCode)
Outro
PróximoCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
eu = eu + 1
Terminar se
Próximo
ByteToStr = strReturn
Função final
Função GetURL(url,PostStr)
Definir recuperação = Server.CreateObject(Microsoft.XMLHTTP)
Com recuperação
.Abra POST, url, falso, ,
.setRequestHeader Tipo de conteúdo, aplicativo/x-www-form-urlencoded
.Send(PostStr)
ObterURL = .ResponseBody
Terminar com
Definir recuperação = nada
GetURL=ByteToStr(GetURL)
Função final
Função RegExpText(strng,regStr)
Dim regEx,Correspondência,Correspondências,RetStr
Definir regEx = Novo RegExp
regEx.Pattern = regStr
regEx.IgnoreCase = Verdadeiro
regEx.Global = Verdadeiro
Definir correspondências = regEx.Execute(strng)
Para cada partida nas partidas
RetStr = RetStr & Match.Value & ,
Próximo
RegExpText = RetStr
definir regEx = nada
Função final
uso:
Dim PostStr,getContent,getArea
PostStr = action=mobile&mobile=&MobileNumber
getContent = GetURL(http://www.ip138.com:8080/search.asp,PostStr)
getArea = Replace(Replace(Replace(RegExpText(getContent, the card number's location</TD>((.|/n)*?)</TD>), the card number's location</TD>,),<TD width =*align=center class=tdc2>,),</TD>,,)
Resposta.Write(getArea)