ASP网页设计一个Winsock组件
使用filesystemobject，可以对服务器上的文件进行操作，浏览、复制、移动、删除等。有ado的支持，asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样，管理远程主机上的数据库，对表格、记录进行各种操作。 我本人写了一个Winsock组件，很复杂，将带发送的报文发给指定IP的指定端口，并前往应对报文。手艺粗拙, 请人人指教。附源码以下：-------------------------------------
VERSION 1.0 CLASS
BEGIN
MultiUse = -1'True
Persistable = 0'NotPersistable
DataBindingBehavior = 0'vbNone
DataSourceBehavior= 0'vbNone
MTSTransactionMode= 0'NotAnMTSObject
END
Attribute VB_Name = "clsWinSockEm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'******************************************************************************
'
' clsWinSockEm.CLS
' 嵌入式WinSocket类
' 输出：办事器IP、办事器Port、待发送报文
' 输入：吸收报文
'
'******************************************************************************
Option Explicit
'******************************************************************************
Const RECV_TIME_OUT = 60 ' 吸收超时
Const SEND_TIME_OUT = 60 ' 发送超时
Const CONN_TIME_OUT = 120 ' 毗连超时
Const RECV_MAX_LEN = 2048 ' 吸收报文最大数
'******************************************************************************
Private WithEvents wskEm As MSWinsockLib.Winsock ' WinSock Control
Attribute wskEm.VB_VarHelpID = -1
Private mstrServerIP As String ' 近程办事器IP
Private mintServerPort As Integer ' 近程办事器端口
Private mstrTextToSend As String ' 发送报文
Private mstrTextReceived As String ' 吸收报文
Private bConnected As Boolean ' 毗连标记
'******************************************************************************
' 初始化
Public Sub Init(strServerIP As String, intServerPort As Integer)
mstrServerIP = strServerIP
mintServerPort = intServerPort
mstrTextToSend = ""
mstrTextReceived = ""
bConnected = False
End Sub
' 前往报文
Public Function ReturnText(strTextToSend As String) As String
Dim dtStart As Date
dtStart = Now
Set wskEm = New MSWinsockLib.Winsock
' 获得发送字符串
mstrTextToSend = strTextToSend
mstrTextToSend = mstrTextToSend & Chr(0)
ConnectServer
SendText
' 吸收报文超时掌握
Do Until Not (mstrTextReceived = "")
DoEvents
If DateDiff("s", dtStart, Now) > RECV_TIME_OUT Then
Err.Raise vbObjectError, "Socket毛病", "通信超时"
End If
Loop
wskEm.Close
Set wskEm = Nothing
ReturnText = mstrTextReceived
End Function
' 毗连办事器
Private Sub ConnectServer()
Dim dtStart As Date
dtStart = Now()
wskEm.RemoteHost = mstrServerIP
wskEm.RemotePort = mintServerPort
wskEm.Connect
Do Until bConnected
DoE</p>因为现在数据库都使用标准的SQL语言对数据库进行管理，所以如果是标准SQL语言，两者基本上都可以通用的。SQL Server还有更多的扩展，可以用存储过程，数据库大小无极限限制。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。 封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题： 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。 学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点: 学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。
页:
[1]