189.htm

一些简单的编程例子 都是网页的形式

<p>使用VB建立Web Server </p>
<p></p>
<p>---- HTTP协议在浏览器中使用的原理：首先，Web浏览器与服务器建立连接，然后Web浏览器通过HTTP协议向服务器请求文档，最后，由服务器向Web浏览器应答，关闭连接。这就是HTTP协议的一般工作过程。下面，使用Visual Basic 5.0中文版来实现一个简单的Web服务器，使用Tcp/IP协议的 80端口，一般浏览器中的Http协议默认此端口，然后设置好超文本文件的发布路径，本程序默认为C:\InetPub\wwwroot，此Web Server程序比较简单，只适用于包含有文的超文本文件，如果超文本文件中含有图形，无法显示出来。 </p>
<p></p>
<p>一、建立窗体</p>
<p>---- </p>
<p>控件依次为label1,label2,label3,</p>
<p>text1,text2,text3,command1,及Winsock1</p>
<p>label1.caption=”Visual Basic Web 服务器 1.0”</p>
<p>label2.caption=”本机地址”</p>
<p>label3.caption=”发布路径”</p>
<p>text2.text=”c:\Inetpub\wwwroot\”</p>
<p>command1.caption=”启动”</p>
<p></p>
<p>又击Command1加入代码</p>
<p>Private Sub Command1_Click()</p>
<p>注释：启动Winsock1,使用listen方法，听80端口</p>
<p>    DoEvents</p>
<p>    Winsock1.Close</p>
<p>    Winsock1.Protocol = sckTCPProtocol</p>
<p>    Winsock1.LocalPort = 80</p>
<p>    </p>
<p>    Winsock1.Listen</p>
<p>Text1.Text = "WinSocket状态: </p>
<p>" & CStr(Winsock1.State) + "  </p>
<p>本机IP地址:" + CStr(Winsock1.LocalIP)</p>
<p></p>
<p>End Sub</p>
<p></p>
<p></p>
<p></p>
<p>然后在Winsock1 的DataArrival事件中加入代码</p>
<p>    </p>
<p>    Winsock1.GetData DataReceived, vbString</p>
<p>    Text3.Text = DataReceived</p>
<p>    pos1 = 0</p>
<p>    pos2 = 0</p>
<p>    For i = 1 To Len(DataReceived)</p>
<p>        If Mid(DataReceived, i, 1) = " " Then</p>
<p>            If pos1 = 0 Then</p>
<p>                pos1 = i + 1</p>
<p>            Else</p>
<p>                pos2 = i - 1</p>
<p>                Exit For</p>
<p>            End If</p>
<p>            </p>
<p>        End If</p>
<p>    Next</p>
<p>    </p>
<p>    On Error GoTo ExitThisSub</p>
<p>    If pos1 < > 0 And pos2 < > 0 Then</p>
<p>    requestfilename = Mid(DataReceived, pos1 + 1, pos2 - pos1)</p>
<p>    requestfilename = Trim(Text2.Text) & requestfilename</p>
<p>        If Dir(requestfilename) < > "" Then</p>
<p>        Else</p>
<p>            GoTo NoRequestFile</p>
<p>        End If</p>
<p>    End If</p>
<p></p>
<p>    Open requestfilename For Input As #1</p>
<p>    Winsock1.SendData "HTTP/1.0 200 OK" + vbCrLf</p>
<p>    Winsock1.SendData "MIME_version:1.0" + vbCrLf</p>
<p>    Winsock1.SendData "Content_Type:text/html" + vbCrLf</p>
<p>Winsock1.SendData </p>
<p>"Content_Length:" + CStr(LOF(1)) + vbCrLf</p>
<p>    Winsock1.SendData "" + vbCrLf</p>
<p>    Winsock1.SendData "" + vbCrLf</p>
<p>    Winsock1.SendData "" + vbCrLf</p>
<p></p>
<p>    Do While Not EOF(1)</p>
<p>        Line Input #1, TData</p>
<p>        Winsock1.SendData TData</p>
<p>    Loop</p>
<p></p>
<p>ExitThisSub:</p>
<p>    Close #1</p>
<p>    Command1_Click</p>
<p>    Exit Sub</p>
<p>    </p>
<p>NoRequestFile:</p>
<p>    Winsock1.SendData "HTTP/1.0 200 OK" + vbCrLf</p>
<p>    Winsock1.SendData "MIME_version:1.0" + vbCrLf</p>
<p>    Winsock1.SendData "Content_Type:text/html" + vbCrLf</p>
<p>    Winsock1.SendData "Content_Length:" + CStr(30) + vbCrLf</p>
<p>    Winsock1.SendData "" + vbCrLf</p>
<p>    Winsock1.SendData "" + vbCrLf</p>
<p>    Winsock1.SendData "" + vbCrLf</p>
<p>Winsock1.SendData "<  br  >< br ></p>
<p>< center >< h2 >欢迎您使用VB WebServer，</p>
<p>刚才的地址没有找到!< /h2 >< br ></p>
<p>< br >1999年4月10日< br >< br ></p>
<p>< a href=mailto:[e-mail] ></p>
<p>勇勇的信箱< /a >< br >< /center >< br >"</p>
<p>Command1_Click</p>
<p>在Winsock1的ConnectRequest事件中加入代码</p>
<p>    Winsock1.Close</p>
<p>    Winsock1.Accept requestID</p>
<p></p>
<p>---- 至此，大功告成，在c:\inetpub\wwwroot目录中，选一存在的超文本文件，如http://127.0.0.1/default.html即可。程序运行后，会显示出本机的IP地址，启动IE 4.0，在地址栏中输入IP地址及文件名，如果出现上面的画面(略)，那么说明服务器运行正常，且IP地址是对的，只是default.html文件不存在。 </p>