(原创)二进制文件操作类

最新推荐文章于 2024-07-20 02:51:25 发布
最新推荐文章于 2024-07-20 02:51:25 发布
阅读量1.7k 收藏
点赞数
分类专栏： <font color=blue><b>ASP专栏</b></font> 文章标签： function class byte blog
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/bpfish/article/details/96833
版权

使用“二进制文件操作类编写的[文件分割]和[文件合并]代码例子：
<%
Dim obj
Set obj=New FileClass
'文件分隔
Dim i
Obj.OpenFile "G:/2.mp3",""
i=0
Do While Not Obj.Eof
   If Obj.NewFile("G:/2_"&i&".mp3",Obj.Read(2048*1024)) Then         '分隔成2M大小的文件
      Response.Write "分隔成文件G:/2_"&i&".mp3成功！<br>"
   Else
      Response.Write "分隔成文件G:/2_"&i&".mp3失败！<br>"
   End If
   i=i+1
Loop
Obj.CloseFile

'合并文件
Dim j
Obj.AppendFile "G:/2_0.mp3","G:/2_1.mp3","G:/Mp3.mp3"
For j=2 To i-1
    Obj.AppendFile "G:/Mp3.mp3","G:/2_"&j&".mp3",""
Next
Response.Write "合并文件成功!"
Set Obj=Nothing
%>


类的代码：
<%
'/*******************************二进制文件操作类************************************
'/*作者：死在水中的鱼（死鱼）
'/*日期：2004年9月7日
'/*BLOG: http://blog.csdn.net/bpfish
'/*
'/*用法：
'/*Dim obj,sData,iPos,iSize
'/*Set obj=new FileClass
'/*obj.OpenFile "文件绝对路径地址","打开方式"       '打开文件,打开方式的值和ADODB.Stream的Mode属性值相同
'/*打开方式的相关几个值：1 = 只读  2 = 只写  3或空值 = 读写
'/*obj.AppendTo "[追加文件]绝对路径地址"            '把当前打开的文件追加到[追加文件]的末尾
'/*obj.Move 数值                                   '把当前打开的文件指针相对移动[数值]个字节
'/*obj.MoveTo 数值                                 '把当前打开的文件指针绝对于文件头移动[数值]个字节
'/*sData=obj.Read(数值)
'/*'说明：obj.Read(数值）读取当前被打开的文件[数值]个字节  '/*注意：读取位置与文件指针有关,如果数值为0则从当前文件位置开始读取数据直到文件尾
'/*sData=obj.ReadAll                               '读取当前打开的文件所有数据
'/*iPos=obj.Position                               '返回当前文件的文件指针位置(Position属性是只读,不能写）
'/*iSize=obj.Size                                  '返回当前文件的大小，即字节总数
'/*If obj.Eof Then Response.Write "文件尾"         
'/*注意：obj.Eof是判断文件指针是否移动到了文件的末尾,当obj.Eof=True时
'/*     obj.Position=obj.Size。但obj.Position=obj.Size则不一定obj.Eof=True
'/*obj.SaveAs "另存为文件名","保存模式"              '将当前打开的文件另存为新文件，保存模式的值是1或2 1=非覆盖 2=覆盖
'/*obj.CloseFile                                   '关闭当前打开的文件
'/*obj.NewFile "新文件名",字节数据流                '将[字节数据流]建立一个新文件，如果文件存在则将覆盖，如果非字节数据流则新建文件失败
'/*obj.AppendFile "文件1","文件2",“生成文件"
'/*'将[文件1]和[文件2]合并为一个新的[生成文件]，如果[生成文件]存在，则合并失败！如果将[生成文件]置为空，则将[文件2]合并进[文件1去。
'/*Response.Write obj.GetText(字节数据流)           '将[字节数据流]转换成字符串并返回
'/*Set obj=Nothing
'/*
'/*说明：字节数据流是二进制的数据
'/*以下方法可以不需要先OpenFile：NewFile和AppendFile和GetText方法，否则其它则必需要先使用OpenFile方法打开文件
'/**********************************************************************************
Class FileClass
Private ObjStream           'ADODB.Stream对象变量
Private OpenFlag            '是否已有打开的文件
Private FileIsEof
'/**********************************************************************************
'/*         函数名：初始化类
'/**********************************************************************************
Private Sub Class_Initialize
  OpenFlag=False
  FileIsEof=True
End Sub

'/**********************************************************************************
'/*         函数名：
'/**********************************************************************************
Private Sub Class_Terminate 
  Call CloseFile
  Set ObjStream=Nothing
End Sub

'/**********************************************************************************
'/*         函数名：获取文件的大小(-1 = 没有打开的文件)
'/**********************************************************************************
Public Property Get Size
    If OpenFlag Then
       Size=ObjStream.Size
    Else
       Size=-1
    End If
End Property

'/**********************************************************************************
'/*         函数名：获取当前文件的文件指针位置(-1 = 没有打开的文件)
'/**********************************************************************************
Public Property Get Position
    If OpenFlag Then
       Position=ObjStream.Position
    Else
       Position=-1
    End If
End Property

'/**********************************************************************************
'/*         函数名：获取当前的文件是否在文件尾(True = 文件尾 False = 否)
'/*注意：返回为True时文件只是在最后一个字节处，返回为True是因为被尝试移动指针到文件的尾部(大于文件的大小)
'/*      如果外部调用此值时建议当该值为True时，停止任何的读取数据操作，否则有可能会有数据返回
'/**********************************************************************************
Public Property Get Eof
    Eof=FileIsEof
End Property
'/**********************************************************************************
'/*         函数名：打开文件
'/*参数： FileName = 要打开的文件名，绝对地址
'/*   OpenMode = 打开文件的模式 值是同Adodb.RecordSet 对象的Mode属性相同
'/**********************************************************************************
Public Function OpenFile(ByVal FileName,ByVal OpenMode)
On Error Resume Next
Dim sFileName,iMode
    If OpenFlag Then         '如果已有打开文件，则关闭前一个文件
    Call CloseFile
    End If
    sFileName=Trim(FileName)
    If sFileName="" Then
       FileIsEof=True
       OpenFlag=False
    OpenFile=False
    Exit Function
    End If
    iMode=Cint(OpenMode)     '如果输入的不是数字则采用默认的3打开模式（读写型）
    If Err.Number<>0 Then
    iMode=3
    Err.Clear
    End If
    If iMode<>0 And iMode<>1 And iMode<>2 And iMode<>3 And iMode<>4 And iMode<>8 And iMode<>12 And iMode<>16 And iMode<>4194304 Then
       iMode=3               '如果输入的数字不在ADODB.ReadStream的Mode属性所接受的值则采用默认值3
    End If
    'On Error Goto 0
    If Not InitObjStream Then           '初始化对象,如不能初始化则返回一个False值
       FileIsEof=True
       OpenFlag=False
    OpenFile=False
    Exit Function
    End If
    ObjStream.Type=1
    ObjStream.Mode=iMode
       ObjStream.Open
       ObjStream.LoadFromFile sFileName
    If Err.Number<>0 Then
    Err.Clear
       Exit Function
    End If
    FileIsEof=False
    OpenFlag=True
    OpenFile=True
End Function

'/**********************************************************************************
'/*         函数名：读取指定长度的二进制内容
'/*参数： Numbytes = 要读取的字节数(Numbytes = 0 获取当前文件指针后的所有内容)
'/*返回：读取的字节数据
'/**********************************************************************************
Public Function Read(ByVal Numbytes)
Dim iNum
    If Not OpenFlag Then Exit Function
    If Not IsInteger(Numbytes) Then Exit Function
    iNum=Clng(Numbytes)
    FileIsEof=False
    If iNum<0 Then
    Exit Function
    ElseIf (iNum+ObjStream.Position)>ObjStream.Size Then
    'iNum=ObjStream.Size-ObjStream.Position
    FileIsEof=True
    End If
    If iNum=0 Then
       Read=ObjStream.Read
    Else
       Read=ObjStream.Read(iNum)
    End If
End Function

'/**********************************************************************************
'/*         函数名：读取文件的所有内容
'/*参数：
'/*返回：读取文件的所有字节数据
'/**********************************************************************************
Public Function ReadAll
    If Not OpenFlag Then Exit Function
    ObjStream.Position=0
    ReadAll=ObjStream.Read
    FileIsEof=True
End Function

'/**********************************************************************************
'/*         函数名：文件另存为
'/*参数：FileName = 另存为文件绝对路径   Options = 文件另存为的模式 (1=非覆盖 2=覆盖)
'/*返回：读取文件的所有字节数据
'/**********************************************************************************
Public Function SaveAs(ByVal FileName,ByVal Options)
On Error Resume Next
Dim sFileName,iOption
    If Not OpenFlag Then
    SaveAs=False
       Exit Function
    End If
    sFileName=Trim(FileName)
    If sFileName="" Then
    SaveAs=False
       Exit Function
    End If
    iOption=Cint(Options)
    If Err.Number<>0 Then      '如果非数值型数据，则采用默认值 1 = 非覆盖方式保存
    iOption=1          
    Err.Clear
    End If
       If iOption<>1 And iOption<>2 Then       '如果Options的值不在1和2的范围，则采用默认值 1
       iOption=1
    End If
    ObjStream.SaveToFile sFileName,iOption
    If Err.Number<>0 Then
       Err.Clear
    SaveAs=False
       Exit Function
    End If
    SaveAs=True
End Function

'/**********************************************************************************
'/*         函数名：追加文件数据到另一个文件
'/*参数：FileName = 被追加的文件绝对路径
'/*返回：True = 追加数据成功  False = 追加文件数据失败
'/**********************************************************************************
Public Function AppendTo(ByVal FileName)
On Error Resume Next
Dim sFileName,AppendObj
    If Not OpenFlag Then
    AppendTo=False
       Exit Function
    End If
    sFileName=Trim(FileName)
    If sFileName="" Then
    AppendTo=False
       Exit Function
    End If
    '打开要被追加的文件
    Set AppendObj=Server.CreateObject("ADODB.Stream")
    AppendObj.Type=1
    AppendObj.Mode=3
       AppendObj.Open
       AppendObj.LoadFromFile sFileName
    If Err.Number<>0 Then
    Err.Clear
    AppendTo=False
    Exit Function
    End If
    AppendObj.Position=AppendObj.Size    '移动指针到文件尾
    AppendObj.Write ReadAll              '追加数据第一个文件的数据
    AppendObj.SaveToFile sFileName,2     '另存为自己
    If Err.Number<>0 Then
       Err.Clear
    AppendTo=False
       Exit Function
    End If
    AppendObj.Close
    Set AppendObj=Nothing
    AppendTo=True
End Function

'/**********************************************************************************
'/*         函数名：保存sData数据为一个文件
'/*参数：FileName = 被追加的文件绝对路径
'/*返回：True = 追加数据成功  False = 追加文件数据失败
'/**********************************************************************************
Public Function NewFile(ByVal FileName,ByRef sData)
On Error Resume Next
Dim sFileName,AppendObj
    sFileName=Trim(FileName)
    If sFileName="" Then
    NewFile=False
       Exit Function
    End If
    '打开要被追加的文件
    Set AppendObj=Server.CreateObject("ADODB.Stream")
    AppendObj.Type=1
    AppendObj.Mode=3
       AppendObj.Open
    If Err.Number<>0 Then
    Err.Clear
    NewFile=False
    Exit Function
    End If
    If Left(TypeName(sData),4)="Byte" Then     '是字节流数据才能追加
       AppendObj.Write sData                   '追加数据第一个文件的数据
    AppendObj.SaveToFile sFileName,2        '另存为自己
    Else
    NewFile=False
       Exit Function      
    End If
    If Err.Number<>0 Then
       Err.Clear
    NewFile=False
       Exit Function
    End If
    AppendObj.Close
    Set AppendObj=Nothing
    NewFile=True
End Function

'/**********************************************************************************
'/*         函数名：文件合并
'/*参数：AppendFileName = 合并文件1    SourceFileName = 合并文件2  TargetFileName = 合并后的文件(如为空，则保存为第一个文件名)
'/*返回：True = 合并成功  False = 合并失败
'/**********************************************************************************
Public Function AppendFile(ByVal AppendFileName,ByVal SourceFileName,ByVal TargetFileName)
On Error Resume Next
Dim sFileName1,sFileName2,AppendObj1,AppendObj2
Dim sTargetFile
    sFileName1=Trim(AppendFileName)
    sFileName2=Trim(SourceFileName)
    sTargetFile=Trim(TargetFileName)
    If sFileName1="" Or sFileName2="" Then
    AppendFile=False
       Exit Function
    End If
    '打开要被追加和追加的文件
    Set AppendObj1=Server.CreateObject("ADODB.Stream")
    Set AppendObj2=Server.CreateObject("ADODB.Stream")
    AppendObj1.Type=1
    AppendObj1.Mode=3
       AppendObj1.Open
       AppendObj1.LoadFromFile sFileName1
    AppendObj2.Type=1
    AppendObj2.Mode=3
       AppendObj2.Open
       AppendObj2.LoadFromFile sFileName2
    If Err.Number<>0 Then
    Err.Clear
    AppendFile=False
    Exit Function
    End If
    AppendObj1.Position=AppendObj1.Size           '移动指针到文件尾
    AppendObj1.Write AppendObj2.Read              '追加数据第一个文件的数据
    If sTargetFile="" Then
       AppendObj1.SaveToFile sFileName1,2         '另存为自己
    Else
       AppendObj1.SaveToFile sTargetFile,1        '另存为其它文件时不采用强制覆盖方式
    End If
    If Err.Number<>0 Then
       Err.Clear
    AppendFile=False
       Exit Function
    End If
    AppendObj1.Close
    Set AppendObj1=Nothing
    AppendObj2.Close
    Set AppendObj2=Nothing
    AppendFile=True
End Function

'/**********************************************************************************
'/*         函数名：移动文件指针（相对移动）
'/*参数： ToNum = 要移动的字节数
'/*  
'/**********************************************************************************
Public Sub Move(ByVal ToNum)
Dim iNum
    If Not OpenFlag Then Exit Sub
    If Not IsInteger(ToNum) Then Exit Sub
    iNum=ObjStream.Position+Clng(ToNum)
       FileIsEof=False
    If iNum<0 Then
    iNum=0
    ElseIf iNum>ObjStream.Size Then
    iNum=ObjStream.Size
    FileIsEof=True
    End If
    ObjStream.Position=iNum
End Sub

'/**********************************************************************************
'/*         函数名：移动文件指针（绝对移动）
'/*参数： ToNum = 要移动的字节数
'/*  
'/**********************************************************************************
Public Sub MoveTo(ByVal ToNum)
Dim iNum
    If Not OpenFlag Then Exit Sub
    If Not IsInteger(ToNum) Then Exit Sub
    iNum=Clng(ToNum)
    FileIsEof=False
    If iNum<0 Then
    iNum=0
    ElseIf iNum>ObjStream.Size Then
    iNum=ObjStream.Size
    FileIsEof=True
    End If
    ObjStream.Position=iNum
End Sub

'/**********************************************************************************
'/*         函数名：关闭已打开的文件
'/**********************************************************************************
Public Sub CloseFile
On Error Resume Next
  If Not IsNothing(ObjStream) Then
     ObjStream.Close
  End If
  OpenFlag=False
  FileIsEof=True
End Sub

'/**********************************************************************************
'/*         函数名：初始化ObjStream对象
'/**********************************************************************************
Private Function InitObjStream
On Error Resume Next
  If IsNothing(ObjStream) Then
     Set ObjStream=Server.CreateObject("ADODB.Stream")
     If Err.Number<>0 Then
        Err.Clear
     InitObjStream=False
     Exit Function
     End If
  End If 
  InitObjStream=True
End Function

'/**********************************************************************************
'/*         函数名：获取二进制转换为字符串的数据
'/**********************************************************************************
Public Function GetText(ByRef vIn)
On Error Resume Next
Dim strReturn, i, ThisCharCode, NextCharCode
         strReturn = ""
         For i = 1 To LenB(vIn)
             ThisCharCode = AscB(MidB(vIn, i, 1))
             If ThisCharCode < &H80 Then
                strReturn = strReturn & Chr(ThisCharCode)
             Else
                NextCharCode = AscB(MidB(vIn, i + 1, 1))
                strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
                i = i + 1
            End If
         Next
         GetText = strReturn
End Function

'/**********************************************************************************
'/*         函数名：判断OBJ对象是否是空值
'/**********************************************************************************
Private Function IsNothing(Obj)
  If Not IsObject(Obj) Then
     IsNothing=True
     Exit Function
  End If  
  If Obj Is Nothing Then
     IsNothing=True
     Exit Function
  End If
  If IsNull(Obj) Then
     IsNothing=True
     Exit Function
  End If    
  IsNothing=False
End Function

'/**********************************************************************************
'/*         函数名：判断是否是数字值(0,1,2,3,4,5...........9)
'/**********************************************************************************
Private Function IsInteger(Para)
On Error Resume Next
       Dim str
       Dim l,i
       If isNUll(para) Then
          IsInteger=False
          Exit Function
       End if
       str=Cstr(para)
       If Trim(str)="" Then
          IsInteger=False
          Exit Function
       End If
       l=Len(str)
       For i=1 To l
           If Mid(str,i,1)>"9" Or Mid(str,i,1)<"0" Then
              IsInteger=False
              Exit Function
           End if
       Next
       IsInteger=true
       If Err.number<>0 Then Err.clear
End Function
End Class
%>

bpfish
关注
专栏目录
python处理二进制文件_python如何对文件进行二进制写操作
weixin_39766109的博客
11-21 614
python访问txt文件非常简便，可是对于二进制文件的访问却让没有接触过的小伙伴有点恼火了，尤其是对于习惯了C语言的人而言。笔者经历一番波折总算实现了python对二进制文件的写操作，在这里记录一下。工具/原料PC一台python开发环境基本概念1python对二进制文件的操作需要使用bytes类，直接写入整数是不行的，如果试图使用fobj.write(123)向文件中以二进制写入123，结果提...
java的二进制文件怎么打开文件_java的二进制文件怎么打开
weixin_33309048的博客
02-18 383
FileWriter只能接受字符串形式的参数，也就是说只能把内容存到文本文件。相对于文本文件，采用二进制格式的文件存储更省空间。InputStream用于按字节从输入流读取数据。其中的int read()方法读取一个字节，这个字节以整数形式返回0到255之间的一个值。为什么读一个字节，而不直接返回一个byte类型的值？(推荐：java视频教程)因为byte类型最高位是符号位，它所能表示的最大的正整...
c语言以只写方式打开二进制文件,C语言采用文本方式和二进制方式打开文件的区别分析...
weixin_29000891的博客
05-25 4656
稍微了解C程序设计的人都知道，文本文件和二进制文件在计算机上面都是以0,1存储的，那么两者怎么还存在差别呢？对于编程人员来说，文本文件和二进制文件就是一个声明，指明了你应该以什么方式(文本方式/二进制)打开这个文件，用什么函数读写这个文件(读写函数)，怎么判断读到这个文件结尾等。具体分析如下：一、以哪种方式打开一个文件：ANSI C规定了标准输入输出函数库，用 fopen()函数打开文件。fope...
mysql二进制日志文件恢复数据库_mysql二进制日志文件恢复数据库
weixin_29876341的博客
02-08 448
xtrabuckup+mysqlbinlog实现mysql数据恢复1.在测试数据库mydb测试表tb1现有数据并使用innobackupex 将数据全量备份至/backup目录下:innobackupex -uroot -p123456 -H172.18.100.103 /backup/备份现在存有的数据中tb1只有一条数据2.往表tb1中继续插入2条数据:此时...文章the_script201...
java 二进制 保存文件怎么打开_java怎么打开二进制文件
weixin_30041067的博客
02-13 180
Java读取二进制文件，以字节为单位进行读取，还可读取图片、音乐文件、视频文件等。在Java中，提供了四种类来对文件进行操作，分别是InputStream、OutputStream、Reader、Writer，前两种是对字节流的操作，后两种则是对字符流的操作。FileWriter只能接受字符串形式的参数，也就是说只能把内容存到文本文件。相对于文本文件，采用二进制格式的文件存储更省空间。InputS...
mysql二进制日志文件_MySQL二进制日志（binary log）总结
weixin_39521808的博客
01-18 316
本文出处：http://www.cnblogs.com/wy123/p/7182356.html(保留出处并非什么原创作品权利，本人拙作还远远达不到，仅仅是为了链接到原文，因为后续对可能存在的一些错误进行修正或补充，无他)今天无意中发现了一个云栖社区举行的MySQL“第一季：挑战玄惭之慢SQL性能优化赛”，在测试服务器上执行其测试脚本写入数据的时候报错提示如下，Multi-statement t...
文本文件与二进制文件区别
u013049912的博客
11-15 4786
  https://www.cnblogs.com/pengwangguoyh/articles/3223072.html 1)文本文件：这类文件以文本的ASCII码形式存储在计算机中。它是以"行"为基本结构的一种信息组织和存储方式。  2)二进制文件：这类文件以文本的二进制形式存储在计算机中，用户一般不能直接读懂它们，只有通过相应的软件才能将其显示出来。二进制文件一般是可执行程序、图形、图像...
mysql blob无法显示二进制文件_java实现插入mysql二进制文件，blob类型，遇到问题及解决办法...
weixin_39624332的博客
01-27 176
mysql插入二进制文件，blob类型，遇到问题及解决办法首先是数据库建立要准备的：我们要把放置二进制字段设置为Blob类型，根据文件的大小选择合适的Blob类型，一下是各个Blob类型所能容纳二进制文件的大小MySQL的四种BLOB类型类型 大小(单位：字节)TinyBlob 最大 255Blob 最大 65KMediumBlob 最大 16MLongBlob 最大 4G一下是具体操作代码：代码...
python 怎么把二进制流转换为文件
最新发布
weixin_41336669的博客
07-20 143
python相关学习资料：https://edu.51cto.com/video/3502.htmlhttps://edu.51cto.com/video/4102.htmlhttps://edu.51cto.com/video/1158.htmlPython中将二进制流转换为文件 在Python编程中，我们经常需要...
二进制文件和文本文件到底有什么不同？（二）
qq_32515081的博客
03-31 6139
1)文本文件：这类文件以文本的ASCII码形式存储在计算机中。它是以"行"为基本结构的一种信息组织和存储方式。 2)二进制文件：这类文件以文本的二进制形式存储在计算机中，用户一般不能直接读懂它们，只有通过相应的软件才能将其显示出来。二进制文件一般是可执行程序、图形、图像、声音等等。 C++标准库提供了基于输入/输出流机制的文件操作，叫做文件流(File Stream)。打开文件的时候，可以用参数制定按照二进制方式还是文本方式。 然而，可能与你的想象不同的是，这里的二进制或者文本与文件的格式并没有任.
php把二进制显示为图片,php二进制转换成图片
weixin_39879522的博客
03-09 1317
php二进制转换成图片的方法：首先设置保存图片名称及保存图片路径；然后创建文件夹并设置“目录+图片”完整路径；接着判断二进制数据流；最后获取图片信息，返回图片的宽、高、类型等信息即可。php二进制转换成图片php接收二进制数据流转换成图片...
Linux 二进制分析-ELF二进制格式（chapter 2.1&2.2）
犇叔的博客
12-16 917
ELF二进制分析，二进制格式
java二进制字符串做同或运算_Java中关于二进制以及位运算的详解
weixin_31667199的博客
02-27 1828
Java中的二进制及基本的位运算二进制是计算技术中广泛采用的一种数制。二进制数据是用0和1两个数码来表示的数。它的基数为2，进位规则是“逢二进一”，借位规则是“借一当二”，由18世纪德国数理哲学大师莱布尼兹发现。当前的计算机系统使用的基本上是二进制系统，数据在计算机中主要是以补码的形式存储的。计算机中的二进制则是一个非常微小的开关，用“开”来表示1，“关”来表示0。那么Java中的二进制又是怎么样...
php 图片二进制流,PHP实现接收二进制流转换成图片
weixin_34521244的博客
03-09 765
这篇文章主要介绍了PHP实现接收二进制流转换成图片的方法,结合实例形式分析了php文件、目录及图形操作的相关技巧,需要的朋友可以参考下具体如下：这里实现php 接收二进制流转换成图片,所使用的图片类imageUpload.php如下:/*** 图片类* @version 1.0** PHP默认只识别application/x-www.form-urlencoded标准的数据类型。* 因此，对型如t...
Linux 二进制分析
GitChat
11-06 2478
内容简介 二进制分析属于信息安全业界逆向工程中的一种技术，通过利用可执行的机器代码（二进制）来分析应用程序的控制结构和运行方式，有助于信息安全从业人员更好地分析各种漏洞、病毒以及恶意软件，从而找到相应的解决方案。本书将带领读者探索连一些专家都未曾接触的领域，正式进入计算机黑客世界。 本书是一本剖析 Linux ELF 工作机制的图书，共分为9章，其内容涵盖了 Linux 环境和相关工具、ELF ...
ASP等价于.NET里String对象的PadLeft和PadRight函数
鱼的天堂与地狱
01-05 3312
论坛里又有人问起日期怎样格式化为:2004-08-09 05:02:20这样的格式:于是写了一个左(右)对齐的函数.这函数等价于.NET里String对象的PadLeft和PadRight函数Function PadLeft(Value,Length,sChar)   Dim strText,I   strText = String(Length,sChar)   strText = strT
（原创）画走势图的类
鱼的天堂与地狱
08-19 2516
画走势图，此类是根据提交的数据信息输出VML代码，产生VML图。此类可以画多条走线，算是较完美的代码吧，但就是不太美观。呵呵类的源代码（drawclass.asp)======================================类名：画走势图的类======================================Class DrawClassdim D_ColData,D
（原创）SQL和ACCESS数据库连接管理类
鱼的天堂与地狱
08-19 2459
今天无事.随便写了这个类.这个类很简单,但也很实用,以后只要直接包含这个类文件进需要的文件去然后就可以随时更改数据库的类型了.==============================================================类名:DBaseClass用途:可以根据用户参数返回SQL或ACCESS的Connection对象用法:(Access数据库) set
深入学习Visual C++中的C++文件操作技巧
ios::binary - 以二进制模式打开文件，该模式下可以进行二进制读写操作。 5. 错误处理与文件流状态： C++文件操作涉及多个状态标志，如failbit、badbit、eofbit和goodbit，它们可以用来检测和处理文件操作过程中...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值