VB6通过ASP网页实现C/S模式

 C/S模式一般都是用winsock来相互通信，实现双方互动。

用ASP网页来连接（不能称之为通信），只能C对S发送信息或请求一些信息，

S是不能主动来连接C，发信息给C。

 

一、C端

既然是要访问ASP页，这里有二种方式。

1、API写的访问模块

Option Explicit

''<API 宣告,API 常数>
Public Declare Function InternetOpen Lib "wininet.dll" _
          Alias "InternetOpenA" _
                  (ByVal lpszCallerName As String, _
                  ByVal dwAccessType As Long, _
                  ByVal lpszProxyName As String, _
                  ByVal lpszProxyBypass As String, _
                  ByVal dwFlags As Long) As Long
   
  Public Declare Function InternetConnect Lib "wininet.dll" _
          Alias "InternetConnectA" _
                  (ByVal hInternetSession As Long, _
                  ByVal lpszServerName As String, _
                  ByVal nProxyPort As Integer, _
                  ByVal lpszUsername As String, _
                  ByVal lpszPassword As String, _
                  ByVal dwService As Long, _
                  ByVal dwFlags As Long, _
                  ByVal dwContext As Long) As Long
   
  Public Declare Function InternetReadFile Lib "wininet.dll" _
          (ByVal hFile As Long, _
                  ByVal sBuffer As String, _
                  ByVal lNumBytesToRead As Long, _
                  lNumberOfBytesRead As Long) As Integer
   
  Public Declare Function HttpOpenRequest Lib "wininet.dll" _
          Alias "HttpOpenRequestA" _
                  (ByVal hInternetSession As Long, _
                  ByVal lpszVerb As String, _
                  ByVal lpszObjectName As String, _
                  ByVal lpszVersion As String, _
                  ByVal lpszReferer As String, _
                  ByVal lpszAcceptTypes As Long, _
                  ByVal dwFlags As Long, _
                  ByVal dwContext As Long) As Long
   
  Public Declare Function HttpSendRequest Lib "wininet.dll" _
          Alias "HttpSendRequestA" _
                  (ByVal hHttpRequest As Long, _
                  ByVal sHeaders As String, _
                  ByVal lHeadersLength As Long, _
                  ByVal sOptional As String, _
                  ByVal lOptionalLength As Long) As Boolean
   
  Public Declare Function InternetCloseHandle Lib "wininet.dll" _
                  (ByVal hInternetHandle As Long) As Boolean
   
  Public Declare