刚才写一个小偷程序，突然发现一旦POST中文时抓取不到内容，考虑到中文编码问题，像javascript中的escape()一样，在vbscript中也可以使用这个函数，只需要这个发送就可以正常抓取到内容了send("A="&escape(A)&""&escape(B)) 完成收工！ [b]附几个小偷常用的function函数[/b] Function ByteToStr(vIn)     Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode     strReturn = ""      For i = 1 To LenB(vIn)         ThisCharCode = AscB(MidB(vIn,i,1))         If ThisCharCode < &H80 Then             strReturn = strReturn & Chr(ThisCharCode)         Else             NextCharCode = AscB(MidB(vIn,i+1,1))             strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))             i = i + 1         End If     Next     ByteToStr = strReturn  End Function Function GetURL(url,PostStr)     Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")     With Retrieval         .Open "POST", url, false ,"" ,""         .setRequestHeader "Content-Type","[url=http://www.google.com/custom?client=pub-4111920013853982&forid=1&ie=utf-8&oe=utf-8&hl=zh-CN&q=Application]application[/url]/x-www-form-urlencoded"         .Send(PostStr)         GetURL = .ResponseBody     End With     Set Retrieval = Nothing     GetURL=ByteToStr(GetURL) End Function Function RegExpText(strng,regStr)     Dim regEx,Match,Matches,RetStr     Set regEx = New RegExp     regEx.Pattern = regStr     regEx.IgnoreCase = True     regEx.Global = True     Set Matches = regEx.Execute(strng)     For Each Match in Matches         RetStr = RetStr & Match.Value & ","      Next     RegExpText = RetStr     set regEx=nothing End Function [b]用法：[/b] Dim PostStr,getContent,getArea PostStr = "action=mobile&mobile="&MobileNumber getContent = GetURL("[url=http://www.ip138.com:8080/search.asp]http://www.ip138.com:8080/search.asp"[/url],PostStr) getArea = Replace(Replace(Replace(RegExpText(getContent,"卡号归属地</TD>((.|\n)*?)</TD>"),"卡号归属地</TD>",""),"<TD width=* align=""center"" class=tdc2>",""),"</TD>,","") Response.Write(getArea)