我在用vb做一个类似iis的东西的时候出现了一个小问题。。代码如下Private Sub service_DataArrival(ByVal bytesTotal As Long)
Dim receive As String
With service
.SendData "HTTP/1.1 200 OK" & vbCrLf & "Date: Tue, 14 Oct 2003 04:41:15 GMT" & vbCrLf & "Server: Apache/1.3.27 (Unix) PHP/4.3.1" & vbCrLf
.SendData "X-Powered-By: PHP/4.3.1" & vbCrLf '注意这行的 vbcrlf
.SendData "Transfer-Encoding: chunked" & vbCrLf
.SendData "Content-Type: text/html" & vbCrLf
.SendData "" & vbCrLf
.SendData "text Data" & vbCrLf
End With
'HTTP/1.1 200 OK
'Date: Tue, 14 Oct 2003 04:41:15 GMT
'Server: Apache/1.3.27 (Unix) PHP/4.3.1
'X-Powered-By: PHP/4.3.1
'Transfer -Encoding: chunked
'Content-Type: text/html
'
service.GetData receive
Text1.Text = receive
End Sub我在浏览器中无法访问我的这个服务程序, 但把我上面做标记的那行后面的vbcrlf去掉后,浏览器就可以识别我发送的信息了,显示“text data"。。请各位高手指教。。
Dim receive As String
With service
.SendData "HTTP/1.1 200 OK" & vbCrLf & "Date: Tue, 14 Oct 2003 04:41:15 GMT" & vbCrLf & "Server: Apache/1.3.27 (Unix) PHP/4.3.1" & vbCrLf
.SendData "X-Powered-By: PHP/4.3.1" & vbCrLf '注意这行的 vbcrlf
.SendData "Transfer-Encoding: chunked" & vbCrLf
.SendData "Content-Type: text/html" & vbCrLf
.SendData "" & vbCrLf
.SendData "text Data" & vbCrLf
End With
'HTTP/1.1 200 OK
'Date: Tue, 14 Oct 2003 04:41:15 GMT
'Server: Apache/1.3.27 (Unix) PHP/4.3.1
'X-Powered-By: PHP/4.3.1
'Transfer -Encoding: chunked
'Content-Type: text/html
'
service.GetData receive
Text1.Text = receive
End Sub我在浏览器中无法访问我的这个服务程序, 但把我上面做标记的那行后面的vbcrlf去掉后,浏览器就可以识别我发送的信息了,显示“text data"。。请各位高手指教。。
怎样编写VB应用HTTP协议的程序,比如我怎样往服务器提交表单,怎样传送COOKIE?谢谢
很就以前看的HTTP了,楼主可以再去看看HTTP协议的规范问题。