以前收集的一些资料---使用ASP建立Http组件

生成HTTP组件
自己动手，丰衣足食，下面介绍如何生成自己的AspHttp组件。
使用Winsock控件，下面将介绍怎么来建立一个简单的HTTP组件。
记住先选择mswinsck.ocx控件
下面的代码是在VB6中编译的。
代码如下：
           Private WithEvents objWinSock As MSWinsockLib.Winsock
          Private strURL As String
          Private strURI As String
          Private strServer As String
          Private nPort As Long
          Private strHead As String
          Private strData As String
          Private bConnected As Boolean
          Public Function httpGet(URL As String) As String
               Set objWinSock = New MSWinsockLib.Winsock
               strURL = URL
               ParseURL
               Connect
               SendRequest
               objWinSock.Close
               strHead = Left(strData, InStr(strData, vbCrLf & vbCrLf))
               strData = Right(strData, Len(strData) - InStr(strData, vbCrLf & vbCrLf))