仓酷云

标题: ASP网页设计一个Winsock组件 [打印本页]

作者: 活着的死人 时间: 2015-2-3 23:34
标题: 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还有更多的扩展，可以用存储过程，数据库大小无极限限制。

作者: 柔情似水 时间: 2015-2-4 02:15
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

作者: 若相依 时间: 2015-2-6 23:52
多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

作者: 乐观 时间: 2015-2-15 11:16
交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

作者: 不帅 时间: 2015-3-7 00:04
我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

作者: 深爱那片海 时间: 2015-3-11 18:39
它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

作者: 灵魂腐蚀 时间: 2015-3-19 07:32
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

作者: 海妖 时间: 2015-3-20 11:25
ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

作者: 小妖女 时间: 2015-4-6 20:32
封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

作者: 再见西城 时间: 2015-4-7 17:15
以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

作者: 莫相离 时间: 2015-4-12 17:31
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

作者: 简单生活 时间: 2015-4-14 03:51
ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题：

作者: 第二个灵魂 时间: 2015-4-14 20:27
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

作者: 精灵巫婆 时间: 2015-4-15 08:15
学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

作者: 因胸联盟 时间: 2015-4-20 07:06
学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

作者: 飘灵儿 时间: 2015-4-30 14:59
学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

作者: 小女巫 时间: 2015-5-3 10:48
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

作者: 飘飘悠悠 时间: 2015-6-7 15:19
我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

作者: 小魔女 时间: 2015-6-10 06:45
在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

欢迎光临仓酷云 (http://ckuyun.com/)