您没有来错地!为了更好的发展,黑基网已于9月19日正式更名为【安基网】,域名更换为www.safebase.cn,请卸载旧的APP并安装新的APP,给您带来不便,敬请理解!谢谢

黑基Web安全攻防班
安基网 首页 IT技术 电脑技术 查看内容

Adodb.Stream说明及用法实例

2009-7-20 09:45| 投稿: computer

摘要:   Adodb.Stream是ADO的Stream对象,提供存取二进制数据或者文本流,从而实现对流的读、写和管理等操作。下面先说明一下Adodb.Stream的使用方法,再以几个典型经典实例说明一下A...
  Adodb.Stream是ADO的Stream对象,提供存取二进制数据或者文本流,从而实现对流的读、写和管理等操作。下面先说明一下Adodb.Stream的使用方法,再以几个典型经典实例说明一下Adodb.Stream的用法。  Adodb.Stream对象有下列使用方法:   Cancel 方法  使用方法如下   Object.Cancel  说明:取消执行挂起的异步 Execute 或 Open 方法的调用。   Close  方法  使用方法如下  Object.Close  关闭对像   CopyTo 方法  使用方法如下  Object.CopyTo(destStream,[CharNumber])  说明:将对像的数据复制,destStream指向要复制的对像,CharNumber为可选参数,指要复制的字节数,不选为全部复制。   Flush  方法  使用方法如下  Object.Flush   LoadFromFile 方法  使用方法如下  Object.LoadFromFile(FileName)  说明:将FileName指定的文件装入对像中,参数FileName为指定的用户名。   Open  方法  使用方法如下  Object.Open(Source,[Mode],[Options],[UserName],[Password])  说明:打开对像,  参数说明:Sourece 对像源,可不指定  Mode 指定打开模式,可不指定,可选参数如下:  adModeRead  =1  adModeReadWrite =3  adModeRecursive =4194304  adModeShareDenyNone =16  adModeShareDenyRead =4  adModeShareDenyWrite =8  adModeShareExclusive =12  adModeUnknown  =0  adModeWrite  =2  Options 指定打开的选项,可不指定,可选参数如下:  adOpenStreamAsync =1  adOpenStreamFromRecord =4  adOpenStreamUnspecified=-1  UserName 指定用户名,可不指定。  Password 指定用户名的密码   Read  方法  使用方法如下:  Object.Read(Numbytes)  说明:读取指定长度的二进制内容。  参数说明:Numbytes指定的要读取的找度,不指定则读取全部。   ReadText  方法  使用方法如下:  Object.ReadText(NumChars)  说明:读取指定长度的文本  参数说明:NumChars指定的要读取的找度,不指定则读取全部。   SaveToFile  方法  使用方法如下:  Object.SaveToFile(FileName,[Options])  说明:将对像的内容写到FileName指定的文件中  参数说明:FileName指定的文件  Options 存取的选项,可不指定,可选参数如下:  adSaveCreateNotExist  =1  adSaveCreateOverWrite =2   SetEOS  方法  使用方法如下:  Object.setEOS()   SkipLine  方法  使用方法如下:  Object.SkipLine()  说明:  Write  方法  使用方法如下:  Object.Write(Buffer)  说明:将指定的数据装入对像中。  参数说明:Buffer 为指定的要写入的内容。   WriteText  方法  使用方法如下:  Object.Write(Data,[Options])  说明:将指定的文本数据装入对像中。  参数说明:Data 为指定的要写入的内容。  Options 写入的选项,可不指定,可选参数如下:  adWriteChar  =0  adWriteLine  =1  有下列属性:  Charset  EOS 返回对像内数据是否为空。  LineSeparator 指定换行格式,可选参数有  adCR   =13  adCRLF   =-1  adLF   =10  Mode 指定或返加模式。  Position 指定或返加对像内数据的当前指针。  Size 返回对像内数据的大小。  State 返加对像状态是否打开。  Type 指定或返回的数据类型,可选参数为:  adTypeBinary  =1  adTypeText  =2  下面举例说明几个Adodb.Stream的用法:  利用ADODB.Stream使用浏览器下载服务器文件..  <%  call downloadFile(replace(replace(Request("file"),"\",""),"/",""))  Function downloadFile(strFile)  ' make sure you are on the latest MDAC version for this to work  ' -------------------------------------------------------------   ' get full path of specified file  strFilename = server.MapPath(strFile)   ' clear the buffer  Response.Buffer = True  Response.Clear   'create stream  Set s = Server.CreateObject("ADODB.Stream")  s.Open   'Set as binary  s.Type = 1   'load in the file  on error resume next   ' check the file exists  Set fso = Server.CreateObject("Scripting.FileSystemObject")  if not fso.FileExists(strFilename) then  Response.Write("<h1>Error:</h1>" & strFilename & " does not exist<p>")  Response.End  end if   ' get length of file  Set f = fso.GetFile(strFilename)  intFilelength = f.size  s.LoadFromFile(strFilename)  if err then  Response.Write("<h1>Error: </h1>" & err.Description & "<p>")  Response.End  end if   ' send the headers to the users browser  Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name  Response.AddHeader "Content-Length", intFilelength  Response.CharSet = "UTF-8"  Response.ContentType = "application/octet-stream"   ' output the file to the browser  Response.BinaryWrite s.Read  Response.Flush   ' tidy up  s.Close  Set s = Nothing  End Function  %>

小编推荐:欲学习电脑技术、系统维护、网络管理、编程开发和安全攻防等高端IT技术,请 点击这里 注册黑基账号,公开课频道价值万元IT培训教程免费学,让您少走弯路、事半功倍,好工作升职加薪!



免责声明:本文由投稿者转载自互联网,版权归原作者所有,文中所述不代表本站观点,若有侵权或转载等不当之处请联系我们处理,让我们一起为维护良好的互联网秩序而努力!联系方式见网站首页右下角。


鲜花

握手

雷人

路过

鸡蛋

相关阅读

最新评论

最新

返回顶部