|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了程序|计划择要
跟着Internet的兴旺开展,收集界面的交换使我们可以立即收到各地所产生的各项信息。我们在利用各类Browser扫瞄各网点时,只需Server能供应Chat(闲谈)的服务项目,我们就能够经由过程Browser所供应的Chat程序与收集上的其他利用者立即对谈及交换心得。本篇文章经由过程VisualBasic5.0所供应的WInSockcontrol,计划一个Chat使用程序。我们经由过程Client及Server之间的文件传输,能够懂得Chat程序的事情道理。
WinSockcontrol简介
WinSock是windows体系供应的一种收集文件传输协定。以往我们利用WinSock计划程序时,必需挪用体系供应的API来完成;可是在VisualBasic中挪用API,因触及参数传送范例,用起来其实不便利。VisualBasic5.0供应WinSockcontrol简化我们的计划流程。它能够使用UserDatagramProtocol(UDP)或TransmissionControlProtocol(TCP),来计划收集的Client-Server程序。
TCP是一种Connectionbase的Protocol,在文件传输时会先行创建Link,经由过程Link可确保文件传输的准确性;UDP则是一种Connectionless的Protocol,它在传输文件时不会确保传输真个文件可以准确无误的传送到吸收端,以是当我们利用UDP
protocol时,我们一般要本人作吸收确认的事情。
UDPprotocol看起来仿佛对照没效力,实在否则!UDPprotocol有一个优点:当文件很小,或我们要做收集boardcast(播送)时,会对照无效率。
以是了!当我们使用WinSock计划程序时,起首要依本人的必要,决意利用那一种protocol。本文将分离教您利用TCP及UDPProtocol来计划Chat程序。
Step1:找出Domainname及IPaddress
在“我的电脑”当选择“把持面板”。Doubleclick“收集”选项,选择“标识”,您将会觉察您的盘算机称号、事情组名等信息。将它纪录起来,我们稍后会用到。
Step2:计划TCPServer程序
在File选项当选NewProject创建一个新的工程,在屏幕上会看到很多选项,如ActiveXDocument.EXE、ActiveXDocument.DLL、ActiveX.EXE、ActiveXControl等,选Standard.EXE。
接着在Project下选择Property属性选项,在General选项下将ProjectName改成TCP-Server,并将Form称号及Caption变动为Server。在屏幕的Form上到场一个WinSockcontrol,取名为Tcps;到场两个TextBoxcontrol(Outtext、Intext),并在两个TextBox前到场两个label,分离将caption改成Outtext、Intext。
〈TextBox〉
Name
------------------------------------------------
Outtext(输入文件)
Intext(输出文件)
〈Label〉
Caption
----------------------------------------------------
Outtext(输入文件)
Intext(输出文件)
在Form_Load()中到场以下程序代码,这个举措是设置好我们Local的传输端口,并到吸收的形态:
Tcps.protocol=0-scktcpprotocol
Tcps.LocalPort=1002
Tcps.Listen
双击Tcps,在Tcps_ConnectionRequest(ByValrequestIDAsLong)中到场以下程序代码,这暗示winsock承受了毗连哀求:
Tcps.AcceptrequestID
双击Outtext到Outtext_change(),到场以下程序代码,当Outtext内容改动后,文件就会主动送出:
Tcps.SendDataOuttext.text
在Tcps_DataArrival(ByValbytesTotalAsLong)中到场以下程序代码,这是用来把所吸收的文件显现在Intext这个TextBox中。
DimSAsStrIng
Tcps.GetDataS
InText.Text=S
如许我们就完成了Server真个计划。
Step3:计划TCPClient程序
在File选项当选择NewProject创建一个新的工程,在屏幕上看到很多选项,如ActiveXDocument.EXE、ActiveXDocument.DLL、ActiveX.EXE、ActiveXControl等。选Standard.EXE。接着在Project下,选择Property属性选项,在General选项下,将ProjectName改成TCP-Client,并将FORM称号及Caption变动为Client。
在屏幕的Form上到场一个WinSockcontrol,取名为Tcpc,将protocolproperty设置成0-scktcpprotocol,到场两个TextBoxcontrol(Outtext、Intext),并在两个TextBox前到场两个Label,分离将其Caption改成Outtext、Intext。接着放进一个Button(button1)并将Caption改成Connect。
(TextBox)
Name
-----------------------------------------------------
Outtext(输入文件)
Intext(输出文件)
(Label)
Caption
--------------------------------------------------------
Outtext(输入文件)
Intext(输出文件)
〈Button〉
NameCaption
--------------------------------------------------------
Button1(实行创建session命令)Connect
在Form_Load()中到场以下程序代码,这个举措是设置好我们Remote所要毗连的传输端口及其收集称号。我们要毗连的盘算机收集称号为DAVID:
Tcpc.RemoteHost="David"
Tcpc.RemotePort=1002
双击Outtext到Outtext_change()到场以下程序代码,当Outtext内容改动后,文件会主动送出:
Tcpc.SendDataOuttext.text
在Tcpc_DataArrival(ByValbytesTotalAsLong)中到场以下程序代码,这是用来把所吸收的文件显现在Intext这个TextBox中。
DimSAsStrIng
Tcpc.GetDataS
InText.Text=S
如许就完成了Client真个计划。
Step4:测试TCPChat程序
分离实行Server及Client程序,这时候在Client的屏幕上显现In及OutTextBox及一个ConnectButton;在Server屏幕上显现In及OutTextBox。
我们按Client程序Connectbutton创建毗连,毗连创建乐成后,我们可实验在Client的Outbox中输出一些字符串:Hellonicetomeet
you!我们将在Server真个Inbox看到这些字串。
接着我们在Server的Outbox也输出一些字符串:Nicetomeetyou,too!
我们将在Client真个Inbox看到这些字符串。了局证实我们乐成了!
</p>ASP在国内异常流行,因为国内大多使用的是盗版的Windows和盗版的SQLServer,而ASP+COM+SQLServer实际上也是一种不错的搭配,其性能也不输于PHP+MYSQL,特别是Windows系统和SQLServer都有图形界面,比APACHE和MYSQL易于维护,因此对于不重视知识产权的国家来说也是一种不错的选择。 |
|