|
HTTP协议在浏览器中使用的原理：首先，Web浏览器与服务器建立连接，然后Web浏览器通过HTTP协议向服务器请求文档，最后，由服务器向Web浏览器应答，关闭连接。这就是HTTP协议的一般工作过程。下面，使用VisualBasic5.0中文版来实现一个简单的Web服务器，使用Tcp/IP协议的80端口，一般浏览器中的Http协议默认此端口，然后设置好超文本文件的发布路径，本程序默认为C:\InetPub\wwwroot，此WebServer程序比较简单，只适用于包含有文的超文本文件，如果超文本文件中含有图形，无法显示出来。 一、建立窗体 控件依次为label1,label2,label3,
text1,text2,text3,command1,及Winsock1
label1.caption=”VisualBasicWeb服务器1.0”
label2.caption=”本机地址”
label3.caption=”发布路径”
text2.text=”c:\Inetpub\wwwroot\”
command1.caption=”启动”
又击Command1加入代码
PrivateSubCommand1_Click()
'启动Winsock1,使用listen方法，听80端口
DoEvents
Winsock1.Close
Winsock1.Protocol=sckTCPProtocol
Winsock1.LocalPort=80
Winsock1.Listen
Text1.Text="WinSocket状态:
"&CStr(Winsock1.State) "
本机IP地址:" CStr(Winsock1.LocalIP)
EndSub
然后在Winsock1的DataArrival事件中加入代码
Winsock1.GetDataDataReceived,vbString
Text3.Text=DataReceived
pos1=0
pos2=0
Fori=1ToLen(DataReceived)
IfMid(DataReceived,i,1)=""Then
Ifpos1=0Then
pos1=i 1
Else
pos2=i-1
ExitFor
EndIf
EndIf
Next
OnErrorGoToExitThisSub
Ifpos1＜＞0Andpos2＜＞0Then
requestfilename=Mid(DataReceived,pos1 1,pos2-pos1)
requestfilename=Trim(Text2.Text)&requestfilename
IfDir(requestfilename)＜＞""Then
Else
GoToNoRequestFile
EndIf
EndIf
OpenrequestfilenameForInputAs#1
Winsock1.SendData"HTTP/1.0200OK" vbCrLf
Winsock1.SendData"MIME_version:1.0" vbCrLf
Winsock1.SendData"Content_Type:text/html" vbCrLf
Winsock1.SendData
"Content_Length:" CStr(LOF(1)) vbCrLf
Winsock1.SendData"" vbCrLf
Winsock1.SendData"" vbCrLf
Winsock1.SendData"" vbCrLf
DoWhileNotEOF(1)
LineInput#1,TData
Winsock1.SendDataTData
Loop
ExitThisSub:
Close#1
Command1_Click
ExitSub
NoRequestFile:
Winsock1.SendData"HTTP/1.0200OK" vbCrLf
Winsock1.SendData"MIME_version:1.0" vbCrLf
Winsock1.SendData"Content_Type:text/html" vbCrLf
Winsock1.SendData"Content_Length:" CStr(30) vbCrLf
Winsock1.SendData"" vbCrLf
Winsock1.SendData"" vbCrLf
Winsock1.SendData"" vbCrLf
Winsock1.SendData"＜ br ＞＜br＞
＜center＞＜h2＞欢迎您使用VBWebServer，
刚才的地址没有找到!＜/h2＞＜br＞
＜br＞1999年4月10日＜br＞＜br＞
＜ahref=mailto:liyong@263.net＞
勇勇的信箱＜/a＞＜br＞＜/center＞＜br＞"
Command1_Click
在Winsock1的ConnectRequest事件中加入代码
Winsock1.Close
Winsock1.AcceptrequestID 至此，大功告成，在c:\inetpub\wwwroot目录中，选一存在的超文本文件，如http://127.0.0.1/default.html即可。程序运行后，会显示出本机的IP地址，启动IE4.0，在地址栏中输入IP地址及文件名，如果出现上面的画面(略)，那么说明服务器运行正常，且IP地址是对的，只是default.html文件不存在。 ->
|