以下是引用片段：
<%
&#39;测试淘宝登陆
&#39;Coded
&#39;2006-4-17
Response.Buffer = False
Dim myUser,myPass
myUser = &quot;用户名&quot;
myPass = &quot;密码&quot;
Response.Write CheckPass(myUser,myPass)
&#39;-----------------封装判断函数 begin----------------
Function CheckPass(sUser,sPass)
Dim PostStr,getContent,getArea
sUser = Server.UrlEncode(sUser)
sPass = Server.UrlEncode(sPass)
PostStr = &quot;TPL_username=&quot; & sUser & &quot;&TPL_password=&quot; & sPass & &quot;&Submit=%B5%C7+%C2%BC&actionForStable=enable_post_user_action&action=Authenticator&TPL_redirect_url=http%3A%2F%2Fwww.taobao.com%2F&event_submit_do_login=anything&abtest=0&pstrong=1&quot;
getContent = GetURL(&quot;http://member1.taobao.com/member/login.jhtml&quot;,PostStr)
If InStr(getContent,&quot;您好&quot;) <> 0 Then
   CheckPass = True
Else
   CheckPass = False
End If
Response.Write getContent
End Function
&#39;-----------------封装判断函数 end----------------
&#39;-----------------xmlhttp所需函数 begin----------------
Function ByteToStr(vIn)
   Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
   strReturn = &quot;&quot; 
   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(&quot; Microsoft.XMLHTTP&quot;)
   With Retrieval
       .Open &quot;POST&quot;, url, false ,&quot;&quot; ,&quot;&quot;
       .setRequestHeader &quot;Content-Type&quot;,&quot;application/x-www-form-urlencoded&quot;
       .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 & &quot;,&quot; 
   Next
   RegExpText = RetStr
   set regEx=nothing
End Function
&#39;-----------------xmlhttp所需函数 end----------------
%>