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

最新推荐文章于 2022-11-22 22:58:38 发布

vansoft

最新推荐文章于 2022-11-22 22:58:38 发布

阅读量4.2k

点赞数

文章标签： asp vb string function internet integer

本文链接：https://blog.csdn.net/vansoft/article/details/3547423

版权

本文介绍了如何使用VB6通过ASP网页实现C/S模式通信。C端利用API函数访问ASP页面，发送信息给服务器，而S端通过ASP对象处理请求并返回数据。文章提供了C端API访问模块和XMLHTTP访问示例代码，以及S端ASP页面处理逻辑。

摘要由CSDN通过智能技术生成

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