利用VBScript及ADODB.Steam获取部分格式图象长宽

最新推荐文章于 2024-01-10 17:12:58 发布
最新推荐文章于 2024-01-10 17:12:58 发布
阅读量2.1k 收藏
点赞数
分类专栏： asp 文章标签： vbscript function input url class html
Function Bytes2bStr(vin)
if lenb(vin) =0 then
Bytes2bStr = ""
exit function
end if
''二进制转换为字符串
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream")
BytesStream.Type = 2
BytesStream.Open
BytesStream.WriteText vin
BytesStream.Position = 0
BytesStream.Charset = "gb2312"
BytesStream.Position = 2
StringReturn = BytesStream.ReadText
BytesStream.close
Set BytesStream = Nothing
Bytes2bStr = StringReturn
End Function

Function BinVal(bin)
Dim i
Dim ret:ret = 0
for i = lenb(bin) to 1 step -1
ret = ret *256 + ascb(midb(bin,i,1))
next
BinVal = ret
End Function

Function BinVal2(bin)
Dim i
Dim ret:ret = 0
for i = 1 to lenb(bin)
ret = ret *256 + ascb(midb(bin,i,1))
next
BinVal2 = ret
End Function

Function getImageWH(fdata)
'一个实参fdata,二进制图象数据(至于怎么读取图象的二进制数据就不用说了吧-_-!)
'返回值为一个数组,3个元素,分别为图片格式.长.宽

dim ret(2),bFlag,fsize,ADOS

fsize=clng(lenb(fdata)) '取得数据尺寸

if fsize=0 then Exit Function

Set ADOS = Server.CreateObject("ADODB.Stream")
ADOS.Type = 1
ADOS.Mode = 3
ADOS.Open

ADOS.Write fdata
ADOS.Position = 0

'写文本对象读取图像长宽和类型

ADOS.Position = 0 '重置数据开始位置
bFlag = ADOS.read(3)

if isNull(bFlag) then
ret(0) = "unknow"
ret(1) = 0
ret(2) = 0
getimagewh = ret
Exit Function
end if

'取文件类型和长宽
select case hex(binVal(bFlag))
case "4E5089":
ADOS.read(15)
ret(0) = "png"
ret(1) = BinVal2(ADOS.read(2))
ADOS.read(2)
ret(2) = BinVal2(ADOS.read(2))
case "464947":
ADOS.read(3)
ret(0) = "gif"
ret(1) = BinVal(ADOS.read(2))
ret(2) = BinVal(ADOS.read(2))
case "FFD8FF":
dim p1
do
do: p1 = binVal(ADOS.Read(1)): loop while p1 = 255 and not ADOS.EOS
if p1 > 191 and p1 < 196 then exit do else ADOS.read(binval2(ADOS.Read(2))-2)
do:p1 = binVal(ADOS.Read(1)):loop while p1 < 255 and not ADOS.EOS
loop while true
ADOS.Read(3)
ret(0) = "jpg"
ret(2) = binval2(ADOS.Read(2))
ret(1) = binval2(ADOS.Read(2))
case else:
if left(Bytes2bStr(bFlag),2) = "BM" then
ADOS.Read(15)
ret(0) = "bmp"
ret(1) = binval(ADOS.Read(4))
ret(2) = binval(ADOS.Read(4))
else
ret(0) = ""
end if
ADOS.Close
Set ADOS = Nothing
end select

Select case ret(0)
case "png","jpg","bmp","gif"
ret(1) = ret(1)
ret(2) = ret(2)
ret(0) = ret(0)
case else
ret(1) = 0
ret(2) = 0
ret(0) = "unknow"
end select

getimageWH = ret
End Function

Function GetWebData(StrUrl)
'获取INTERNET上的图片二进制数据
On Error Resume Next
if StrUrl="" then
GetWebData = ""
exit function
end if
dim tempStr
tempStr=split(StrUrl,"/")
if tempStr(ubound(tempStr))="" or inStr(StrUrl,"/")=0 then
GetWebData = ""
exit function
end if

dim Retrieval
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", StrUrl, False, "", ""
.Send
GetWebData =.ResponseBody
End With
Set Retrieval = Nothing
If Err.Number <> 0 Then Err.Clear

End Function

<% @ LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit

Class BoxInfoImg
'传输类的使用方法
'图象上传和上传信息获取CLASS

'用法:
'dim imgUp
'set imgUp=new BoxInfoImg

'属性:
'imgUp.width '宽
'imgUp.height '高
'imgUp.imgSize '大小
'imgUp.imgType '类型
'imgUp.imgName '文件名
'imgUp.imgName '图像文件名:"&
'imgUp.filename '文件名"&
'imgUp.extName '扩展名"
'imgUp.DiskPath '保存位置"
'imgUp.XuPath '虚拟路径"
'imgUp.NewUrl '保存后url"
'imgUp.SaveMode '保存后url"

'方法:
'imgUp.saveImg(fullpath) '保存图像文件

dim ADOS
dim width,height,imgSize,imgType,imgName,fileName
dim preName,extName
dim SavePath,SaveName,SaveMode
dim DiskPath,XuPath,NewUrl
dim textStr
dim i

Private Sub Class_Initialize
set ADOS=Server.CreateObject("Adodb.Stream")
ADOS.Type=1
ADOS.Mode=3
ADOS.Open
getImageSize
End Sub

Private Sub Class_Terminate
ADOS.close
set ADOS=nothing
End Sub

Public Function getImageSize()

dim ret(3),bFlag,fdata,fsize

fdata=GetWebData(GetStrUrl) '取得XmlHttp数据
fsize=clng(lenb(fdata)) '取得数据尺寸


if fsize=0 then
exit function
R_write "无有效数据保存",0
end if

ADOS.Write fdata
ADOS.Position=0

SaveName=iSaveName
SavePath=iSavePath
SaveMode=iSaveMode

'写文本对象读取图像长宽和类型

ADOS.Position=0 '重置数据开始位置
bFlag=ADOS.read(3)

if isNull(bFlag) then
width=0
height=0
imgSize=0
imgType="unknow"
ret(0)=imgType:ret(1)=width:ret(2)=height:ret(3)=""
getimagesize=ret
exit function
end if

'取文件类型和长宽
select case hex(binVal(bFlag))
case "4E5089":
ADOS.read(15)
ret(0)="png"
ret(1)=BinVal2(ADOS.read(2))
ADOS.read(2)
ret(2)=BinVal2(ADOS.read(2))
case "464947":
ADOS.read(3)
ret(0)="gif"
ret(1)=BinVal(ADOS.read(2))
ret(2)=BinVal(ADOS.read(2))
case "FFD8FF":
dim p1
do
do: p1=binVal(ADOS.Read(1)): loop while p1=255 and not ADOS.EOS
if p1>191 and p1<196 then exit do else ADOS.read(binval2(ADOS.Read(2))-2)
do:p1=binVal(ADOS.Read(1)):loop while p1<255 and not ADOS.EOS
loop while true
ADOS.Read(3)
ret(0)="jpg"
ret(2)=binval2(ADOS.Read(2))
ret(1)=binval2(ADOS.Read(2))
case else:
if left(Bin2Str(bFlag),2)="BM" then
ADOS.Read(15)
ret(0)="bmp"
ret(1)=binval(ADOS.Read(4))
ret(2)=binval(ADOS.Read(4))
else
ret(0)=""
end if
end select
'
dim tempStr
dim nameStr
dim defaultName
dim ln
tempStr=split(GetStrUrl,"/")
nameStr=tempStr(ubound(tempStr))
if nameStr="" then
r_write "错误的URL,请输入可访问的URL",0
exit function
end if
fileName=split(nameStr,"?")(0)
ln=inStrRev(fileName,".")
if ln>0 then
preName=left(fileName,inStrRev(fileName,".")-1)
else
preName=fileName
end if
'R_write fileName,1
'R_write inStrRev(fileName,"."),1
'R_write fileName,0
extName=right(fileName,len(fileName)-inStrRev(fileName,"."))

Select case ret(0)
case "png","jpg","bmp","gif",****"
width=ret(1)
height=ret(2)
imgSize=fsize
imgType=ret(0)
imgName=preName&"."&ret(0)
case else
width=0
height=0
imgSize=fsize
imgName="unknow"
imgType=".unknow"
end select

if SaveMode="1" then
defaultName=imgName
if SaveName="" then
SaveName=defaultName
else
if lcase(right(SaveName,4))<>"."&imgType then
SaveName=SaveName&"."&imgType
end if
end if
else
defaultName=filename
end if
if SaveName="" then SaveName=defaultName
SavePath=replace(SavePath,"//","/")
if right(SavePath,1)<>"/" then SavePath=SavePath&"/"
if SavePath="" then SavePath="./"
DiskPath=server.mappath(SavePath&SaveName)
XuPath=replace(replace(DiskPath,server.mappath("/"),""),"/","/")
NewUrl="http://";&Request.ServerVariables("SERVER_NAME")&XuPath

getimagesize=ret
End Function

Public function SaveImg(FullPath)
SaveImg=false
if SaveMode="1" then
if trim(fullpath)="" or _
width=0 or _
height=0 or _
imgSize=0 or _
imgType=".unknow" then exit function end if
end if
ADOS.Position=0
if SaveMode="2" then
ADOS.Type=2
ADOS.Charset ="gb2312"
ADOS.SaveToFile FullPath,2
textStr=ADOS.readtext()
else
ADOS.SaveToFile FullPath,2
end if
SaveImg=true
End function

Private Function Bin2Str(Bin)
Dim I,Str,clow
For I=1 to LenB(Bin)
clow=MidB(Bin,I,1)
if ASCB(clow)<128 then
Str = Str & Chr(ASCB(clow))
else
I=I+1
if I <= LenB(Bin) then Str = Str & Chr(ASCW(MidB(Bin,I,1)&clow))
end if
Next
Bin2Str = Str
End Function

Private Function Num2Str(num,base,lens)
dim ret:ret = ""
while(num>=base)
ret=(num mod base) & ret
num=(num - num mod base)/base
wend
Num2Str = right(string(lens,"0") & num & ret,lens)
End Function

Private Function Str2Num(str,base)
dim ret:ret = 0
for i=1 to len(str)
ret = ret *base + cint(mid(str,i,1))
next
Str2Num=ret
End Function

Private Function BinVal(bin)
dim ret:ret = 0
for i = lenb(bin) to 1 step -1
ret = ret *256 + ascb(midb(bin,i,1))
next
BinVal=ret
End Function

Private Function BinVal2(bin)
dim ret:ret = 0
for i = 1 to lenb(bin)
ret = ret *256 + ascb(midb(bin,i,1))
next
BinVal2=ret
End Function

Private Function GetWebData(byval StrUrl)
if StrUrl="" then
r_write "无效",1
exit function
end if
dim tempStr
tempStr=split(GetStrUrl,"/")
if tempStr(ubound(tempStr))="" or inStr(StrUrl,"/")=0 then
R_Write "未指定有效的URL",0
exit function
end if
dim Retrieval
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", StrUrl, False, "", ""
.Send
GetWebData =.ResponseBody
End With
Set Retrieval = Nothing
End Function

End Class
%>
<%
SUB saveUpload(GetUrl,SavePath,SaveName,mode)
dim chkInfo

if GetUrl="" then
call tform()
R_Write "<br>传输文件栏没有填写!",0
end if

set imgUp=new BoxInfoImg

if mode="1" and imgUp.imgName="unknow" then
call tform()
set imgUp=nothing
R_Write "<br>传输文件栏没有填写有效的图像URL!",0
end if

chkInfo=""
dim i,testStr,showStr
'限定格式
select case imgUp.imgType
case "png","jpg","bmp","gif"
if imgUp.width=0 or imgUp.height=0 or imgUp.imgSize=0 then
chkInfo="<li>"+"传输图像数据不存在,请确定你的URL是否正确"
end if
case else
chkInfo="<li>无效的传输格式,允许图像数据格式为 ""png"",""jpg"",""bmp"",""gif""</li>"
end select

'R_Write SavePath,1
'R_Write mode,1
'R_Write imgUp.imgName,1
'R_Write imgUp.filename,1
'R_Write "SaveName="&SaveName,1

if mode="1" and chkInfo<>"" then '检查上传图像数据合格后,则保存之
call tform()
R_Write chkInfo,0
else
Server.ScriptTimeOut=5000
imgUp.saveImg imgUp.DiskPath
end if
'-------------
R_write "<b>===处理结果部分资料===</b><br>",1
R_write "　　宽:"&imgUp.width&" pix",1
R_write "　　高:"&imgUp.height&" pix",1
R_write "　大小:"&formatnumber(imgUp.imgSize/1024,2,-1)&" KB",1
R_write "　格式:"&imgUp.imgType,1
R_write "图像文件名:"&imgUp.imgName,1
R_write "文件名:"&imgUp.filename,1
R_write "扩展名:"&imgUp.extName,1
R_write "保存位置:"&imgUp.DiskPath,1
R_write "虚拟路径:"&imgUp.XuPath,1
R_write "保存后url:"&imgUp.NewUrl,1
call tform()
set imgUp=nothing
R_write "------------------------<br>传输完毕",0
End SUB

SUB tform()
%>
<FORM METHOD=POST name=form2 style="margin:0px;">
　 获取 URL：<INPUT TYPE="text" size=50 NAME="GetStrUrl" value="http://bbs.dvbbs.net/images/LOGO.GIF";><br>
　 保存路径：<INPUT TYPE="text" size=50 NAME="SavePath" value="./"><br>
保存文件名：<INPUT TYPE="text" size=50 NAME="SaveName" value=""><br>
　 保存类型：
<INPUT TYPE="radio" NAME="SaveMode" value=1 <%if iSaveMode="1" or iSaveMode="" then response.write "checked" end if%>> Web图像
<INPUT TYPE="radio" NAME="SaveMode" value=2 <%if iSaveMode="2" then response.write "checked" end if%>> 文本文件
<INPUT TYPE="radio" NAME="SaveMode" value=0 <%if iSaveMode="0" then response.write "checked" end if%>> 二进制数据
<INPUT TYPE="submit" value="确定提交">

<hr size=1>
<%
if GetStrUrl<>"" then
if iSaveMode="2" then
R_write "<button name=""Previews"" title=""页面快照"" οnclick=""runCode(0);"">Run this code</button>",1
R_write "<textarea cols=100 name=content rows=10 style="" width:90%;fixed;word-break:break-all;"">"&server.htmlencode(imgUp.textStr)&"</textarea>",1
else
R_write "<img src="""&imgUp.XuPath&"?"&timer()&""" width="&imgUp.width&" height="&imgUp.height&" alt="&imgUp.imgName&">",1
end if
end if
%>
</FORM>
<hr size=1>
<br>如果保存为图像，不要加扩展名，自动识别加上，如果加的扩展名不合也回自动加上
<br>保存文件路径为空则保存在当前路径
<br>保存文件名为空则使用自动识别取得的文件名
<br>保存为其他任意方式，对asp html 等为取得发送结果的Html
<%End SUB

Sub R_write(str,num)
dim istr:istr=str
dim inum:inum=num
response.write str&"<br>"
if inum=0 then response.end
end sub

'=================调用过程 Execute========================
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="V37">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<SCRIPT LANGUAGE="javascript">
<!--
/*function runCode()
{
var code=event.srcElement.parentElement.children[0].value;
var newwin=***********('','','');
newwin.opener = null
newwin.document.write(code);
newwin.document.close();
}
function setsmiley(what)
{
document.PostForm.comment.value += " "+what;
document.PostForm.comment.focus();
} */
function runCode(num) //运行代码HTML
{
// var code=event.srcElement.parentElement.children[0].value;
if(num==1){var code=window.form2.code.innerText;}
if(num==0){var code=window.form2.content.innerText;}
var newwin=***********('','','');
newwin.opener = null
newwin.document.write(code);
newwin.document.close();
}
//-->
</SCRIPT>
</HEAD>
<BODY>
<%
dim imgUp '传输对象
dim GetStrUrl '要获取的图像或网页URL
dim iSaveName '要保存的名字
dim iSavePath '要保存的虚拟路径
dim iSaveMode '保存的模式 1 为图像 0 为任意文件
iSavePath=trim(request.form("SavePath"))
iSaveName=trim(request.form("SaveName"))
GetStrUrl=trim(request.form("GetStrUrl"))
iSaveMode=trim(request.form("SaveMode"))
if GetStrUrl<>"" then
CALL saveUpload(GetStrUrl,iSavePath,iSaveName,iSaveMode)
call tform()
else
call tform()
end if
%>
</BODY>
</HTML>
本次升级是由Net Builder联盟的雨37完成的。可以区分下载图像/文本文件/二进制数据三种。
对于图像还可以读取图象的真正类型以及图象的长宽。

（其中读取图象长宽的Class才是精华，大家要注意研究一下。）

本程序在 win2K server/IIS5.0/IE6 下测试成功。

kingapex1
关注
专栏目录
vbscript通过ODBC访问mySQL
海乐学习
10-09 742
vbscript通过ODBC访问mySQL 先安装mysql-connector-odbc-3.51.12-win32 脚本写法如下 Set cn = CreateObject("ADODB.Connection")              strCn = "dri
VBS压缩图片代码,OWC10.ChartSpace
李木的专栏
07-04 886
这段代码使用的是OWC10.ChartSpace, Function ResizeImage(FileName, OutFormat)  Dim Chs, chConstants, rsSave'获取图片宽高Dim rsPict, FSO, objShell,
VB使用ADODB操作数据库的常用方法
wmdk007的博客
10-10 6986
准备工作 Dim conn As New ADODB.Connection '创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行 Dim rs As ADODB.Recordset '创建一个 Recordset 实例，不使用New 是因为，经常需要重复使用Set，因此没必要在这里使用 Dim CnStr As String, Sql As String '创建两个字符串变量分别存放两个集合的SQL语句代码段 1、装载数据库(不属于Recordset集合
Vbs(Vbscript)脚本常用操作合集（QTP(UTF)自动化测试工具）
我的程序员生涯
11-28 1万+
    背景：为测试某软件而编写了一个简单的测试脚本，现在整理里面用到的一些知识点做个记录，日后再写脚本时忘记的话可以查找此文。也分享给大家 目录 1、语句注释 2、变量 3、函数     3.1 定义函数     3.2 调用函数   4、数组 5、常用流程控制语句     5.1 for循环     5.2 wile循环     5.2 wile循环     5.4 i...
VBS批量修改文件名
MrFlySand的博客
07-16 1905
原图 修改后 '批量修改文件名.vbs Function GetScriptPath() GetScriptPath = Left(WScript.ScriptFullName, Len(WScript.ScriptFullName) - Len(WScript.ScriptName)) End Function Class MyFileOperator Private o...
利用AdoDb.Stream对象来读取UTF-8格式的文本文件
01-20
本文将详细解析如何利用AdoDb.Stream对象来读取和写入UTF-8格式的文本文件。 首先，我们来看读取UTF-8格式文本文件的`ReadFromTextFile`函数。这个函数接受两个参数：`FileUrl`，表示文件的URL或路径，以及`CharSet...
利用MSXML2.XmlHttp和Adodb.Stream采集图片
01-02
利用MSXML2.XmlHttp和Adodb.Stream 代码如下:<!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN” “http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd”> <html xmlns=”...
adodb.recordset.open(rs.open)方法参数详解
10-23
在ActiveX Data Objects (ADO) 编程模型中，Recordset对象是用来从数据库获取数据的主要方式。ADORecordset对象允许程序代码以编程方式访问和操作数据库数据。该对象表示的是来自数据库表或命令执行结果的记录集合。...
用ADODB.Stream转换
10-31
ADODB.Stream 是 ActiveX 数据对象（ADO）的一部分，用于在客户端和服务器端之间传输数据。今天，我们将讨论如何使用 ADODB.Stream 转换数据类型。 什么是 ADODB.Stream？ ADODB.Stream 是 ADO 中的一个对象，用于...
利用xmlhttp和adodb.stream加缓存技术下载远程Web文件
01-20
———-‘—————利用xmlhttp和adodb.stream—————–‘On Error Resume Next‘——————————-定义输出格式—————————–path=request(“path”)if path =”” thenpath=”...
HTML字符实体（Character Entities），转义字符串（Escape Sequence）
12-02 3716
 为什么要用转义字符串？HTML中，&等有特殊含义（，用于链接签，&用于转义），不能直接使用。这些符号是不显示在我们最终看到的网页里的，那如果我们希望在网页中显示这些符号，该怎么办呢？ 这就要说到HTML转义字符串（Escape Sequence）了。 转义字符串（Escape Sequence）也称字符实体(Character Entity)。在HTML中，定义转义字符串的原
◎Vbs脚本编程简明教程之十四—VBS内置函数
靖海安澜阁
07-16 2159
Abs 函数：返回数的绝对值。 Array 函数：返回含有数组的变体。 Asc 函数：返回字符串首字母的 ANSI 字符码。 Atn 函数：返回数值的反正切。 CBool 函数：返回已被转换为 Boolean 子类型的变体的表达式。 CByte 函数：返回已被转换为字节子类型的变体的表达式。 CCur 函数：返回已被转换为货币子类型的变体的表达式。 CDate 函数：返
QTP-14 VBScript VBS基础
franktan2010的专栏
02-06 1088
QTP-14 VBScript VBS基础 1.     熟练掌握下面的方法： Strings: Lcase() & Ucase()      ‘大小写 strComp()         StrReverse()          ‘倒序 Len() Left() Right() Mid() InStr() InStrRev
vbs类的使用方法
冰点的专栏[bingdian3721]
06-15 1638
vbs类的使用方法  类的结构:  class 类名称    end class  调用方法 set myclass=new 类名称  中间类里面的代码，    类模块的事件过程。 Private Sub Class_Initialize() 这里写上类实例化的时候执行的代码。 end sub  Private Sub class_terminate() 这里是类注销的时候自动执行的代码， end
获得验证码
djcsch2001的专栏
09-29 517
1.在许多论坛的登录页面上，都有一个附加码，这样做的目的是防止有人利用破解程序，暴力破解里面的密码2.生成附加码的代码：    Response.Buffer=false    NumCode    Function NumCode()        Response.Expires=-1        Response.AddHeader "Progma","no-c
JS/VBS配合Adodb.Stream处理字节数据/输出二进制文件
CaiKanXP的专栏
06-30 7093
一开始，我曾想到将字节数据转换为JS字符串，每两个字节一组转换为一个字节，然后写入模式为文本、编码为“Unicode”的Adodb.Stream对象。这样做有下面这些问题，但各有方法解决：首先，将字节数据转换为双字节字符必须要考虑高低位字节顺序（Byte Order）的问题。关系到JS字符串字节顺序的到底是硬件还是软件，目前我还无从得知。不过在目前一般Windows的IE/JScript 5.7中，JS字符串是高位在前低位在后（little endian）。解决方法：在字节对转换成字符前，先将高低字节数据调
批量缩小图片脚本
最新发布
短尾流浪猫
01-10 425
【代码】批量缩小图片脚本。
获取图片文件的属性
songgz的专栏
10-08 4485
　　获取图片文件的属性，一般都是通过读取图片文件的字节流的方式，分析图片文件的文件头信息来得到的。因为图片的宽度、高度、大小等信息就是按照一定的格式存放在文件头里的。具体图片的文件头格式可查看相关图片的标准文档，这在网上是不难找到的。图片的属性信息就存于文件头的字节流的某个位置，只要找到这个位置，把它读取出来，就行了。如GIF文件的第八个节的位置是高度。具体实现步骤如下：　　首先分析文件头的字节流
VBS之adodb.stream对象的方法/属性
热门推荐
迎风悟极道的专栏
09-19 2万+
adodb.stream对象的方法/属性 Cancel 方法 使用方法如下 Object.Cancel 说明：取消执行挂起的异步 Execute 或 Open 方法的调用。 Close 方法 使用方法如下 Object.Close ：关闭对像 CopyTo 方法 使用方法如下 Object.CopyTo(destStream,[CharNumber]
利用ADODB.Stream对象：二进制转字符串技术解析
"模拟电子技术相关课程资料，适合学习模拟电子技术的学生参考，包含利用ADODB.Stream对象进行字节流到字符流转换的代码示例。" 在电子技术领域，模拟电子技术是研究模拟信号处理、放大和转换的重要学科。它涉及...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值