商务表达层与静态网页设计技术.ppt

第2章 商务表达层与静态网页设计技术;§2.1 商务表达层的功能实现;§2.1 商务表达层的功能实现;§2.2 Web系统与HTTP协议;§2.2 Web系统与HTTP协议;§2.2 Web系统与HTTP协议;§2.2 Web系统与HTTP协议;Private Sub get_Click() If Winsock1.State 7 Then State=0表示winsock处于Close状态 State=1表示winsock处于Open状态 State=2表示winsock处于Listening状态 State=7表示winsock处于Connected状态 State=9表示winsock处于Error状态 MsgBox 还未与Web Server连接号，请等待或重新连接... Exit Sub Else Winsock1.SendData GET /index.html HTTP/1.1 + Chr(13) + Chr(10) + Host: + vbCrLf + vbCrLf 发送HTTP的GET命令 End If End Sub;?Private Sub head_Click() Winsock1.SendData HEAD /index.html HTTP/1.1 + vbCrL