最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
利用VBScript及ADODB.Steam获取部分格式图象长宽
时间:2022-07-02 11:30:21 编辑:袖梨 来源:一聚教程网
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
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
相关文章
- 剑星以牙还牙支线怎么做 05-04
- MADiSON好玩吗-游戏特色一览 05-04
- 剑星保守秘密支线任务完成方法 05-04
- 剑星玩偶的记忆支线怎么做 05-04
- 剑星有名字的宝贝支线怎么完成 05-04
- 《塞尔达传说王国之泪》米琉塔尼高神庙过关方法 05-04