双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

adodb.stream 能直接读字符串吗？一定要生成一个文件，然后再读，读完再删除？

2009-09-27 09:46:09 138 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

quicklyonline 墨衍会员 · AI 创作全网分发关注 + 加入社区

博途WinCC上位机避坑指南：从工控机选型到趋势图优化的完整流程本文详细解析了博途WinCC上位机开发全流程，从工控机选型到趋势图优化的关键技巧。针对工业自动化场景，提供硬件配置指南、网络优化方案和性能提升策略，帮助工程师避开常见陷阱，实现稳定高效的HMI系统部署。特别强调PC Station与传统触摸屏的选型对比及SIMATIC NET配置优化。阅读详情

现在我有一个字符串，要读成BYTE[]字节流，通过测试，可以先把字符串写成文件到硬盘，然后用STREAM读这个文件，就成了一个BYTE流了。最后还要删除这个文件。感觉比较笨。、

能不能直接读那个字符串，变成BYTE[]流？哪个大哥帮帮忙

...全文

纯ASP无组件图片上传管理源码设计思路与部署实战在Web开发中，文件上传是基础且高频的需求，但很多开发者对HTTP协议中multipart/form-data的底层解析过程并不清楚。经典ASP环境下的Request.BinaryRead方法，为开发者提供了一条不依赖第三方组件、直接解析二进制请求体的实现路径。这种方式不仅适用于仍大量运行的老旧ASP系统，更能帮助技术人员深刻理解上传机制的本质。借助ADODB.Stream对象进行二进制读写，结合FSO实现按日期分目录的文件管理，再配合扩展名白名单与文件头魔数校验，即可构建一套安全、轻量、易维护的图片上传管阅读详情

quicklyonline

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

wcwtitxu 2009-09-27

打赏
举报

当然可以了





Function GetBytes(str, cSet)

	With CreateObject("ADODB.Stream")

		.Mode = 3

		.Type = 2  ' 设为文本模式。    1 二进制　2 文本

		.Open

		.Charset = cSet ' 指定读写使用的字符集

		.WriteText str  ' 写入文本

		.Position = 0

		.Type = 1       ' 改成二进制模式　　　需注意的是:切换Type时，Position必须是0

		GetBytes = .Read(-1)   ' 读出 byte 数组

		.Close

	End With

End Function





Dim str, bytes

str = "ab中国人"



bytes = GetBytes(str, "GBK")





MsgBox TypeName(bytes)



MsgBox AscB(MidB(bytes, 1, 1)) ' 第一个 Byte

MsgBox AscB(MidB(bytes, 2, 1)) ' 第二个

MsgBox AscB(MidB(bytes, 3, 1)) ' 第三个

hookee 2009-09-27

打赏
举报

如果你是用于下载的，用上面的代码就可以了，不用生成物理文件。
如果你是生成byte[]用于其他目地的，用第三方组件
比如 The Convert Object
http://download.paipai.net/texts/midori-ActiveX-Objects.htm#2.3.2

quicklyonline 2009-09-27

打赏
举报

我不想牵扯到文件，想直接把STR类型，变为BYTE[]类型。

hookee 2009-09-27

打赏
举报



<%

' 数据存入 oStream (ADO Stream) 后

oStream.Position = 0



r = TransferFile(oStream, "application/octec-stream", "xxxx.bin")



Function TransferFile(ByRef oStream, sMimeType, sFilename)

	Dim iChar, iSent, iSize

	Dim c

	Const FILE_TRANSFER_SIZE	= 32768 '32k



	iSent		= 0

	TransferFile	= True

	iSize		= oStream.Size

	With Response 

		.Charset	= "GB2312"

		.ContentType= sMimeType

		.AddHeader "Accept-Ranges", "bytes"

		.AddHeader "Content-Length", iSize

		.AddHeader "Content-Type", sMimeType

		.AddHeader "DownloadOptions", "noopen"

		.AddHeader "Content-Disposition","attachment; filename=" & sFilename

	End With

	c	= 0

	Do While c <= iSize

		iChar = oStream.Read(FILE_TRANSFER_SIZE)

		c	= c + FILE_TRANSFER_SIZE

		With Response

			.BinaryWrite(iChar)

			iSent = iSent + FILE_TRANSFER_SIZE

			If (iSent MOD FILE_TRANSFER_SIZE) = 0 Then

				.Flush

				If Not .IsClientConnected Then

					TransferFile = False

					Exit Do

				End If

			End If

		End With

	Loop

	Response.Flush

	If Not Response.IsClientConnected Then TransferFile = False

	Set oStream = Nothing

End Function

%>

hookee 2009-09-27

打赏
举报

<%
' 数据存入 oStream (ADO Stream) 后
oStream.Position = 0

r = TransferFile(oStream, "application/octec-stream", "xxxx.bin")

Function TransferFile(ByRef oStream, sMimeType, sFilename)
Dim iChar, iSent, iSize
Dim c
Const FILE_TRANSFER_SIZE = 32768 '32k

iSent = 0
TransferFile = True
iSize = oStream.Size
With Response
.Charset = "GB2312"
.ContentType= sMimeType
.AddHeader "Accept-Ranges", "bytes"
.AddHeader "Content-Length", iSize
.AddHeader "Content-Type", sMimeType
.AddHeader "DownloadOptions", "noopen"
.AddHeader "Content-Disposition","attachment; filename=" & sFilename
End With
c = 0
Do While c <= iSize
iChar = oStream.Read(FILE_TRANSFER_SIZE)
c = c + FILE_TRANSFER_SIZE
With Response
.BinaryWrite(iChar)
iSent = iSent + FILE_TRANSFER_SIZE
If (iSent MOD FILE_TRANSFER_SIZE) = 0 Then
.Flush
If Not .IsClientConnected Then
TransferFile = False
Exit Do
End If
End If
End With
Loop
Response.Flush
If Not Response.IsClientConnected Then TransferFile = False
Set oStream = Nothing
End Function
%>

✦双11狂欢大促✦

adodb.stream 能直接读字符串吗？一定要生成一个文件，然后再读，读完再删除？

相关推荐

双11狂欢大促