ASP传输类的使用方法.txt

第二个问题。一般IIS都支持XML
<% @ LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit
Class BoxInfoImg
'传输类的使用方法
'图象上传和上传信息获取CLASS
'用法:
'dim imgUp
'set imgUp=new BoxInfoImg
'属性:
' '宽
' '高
' '大小
' '类型
' '文件名
' '图像文件名:"&
' '文件名"&
' '扩展名"
' '保存位置"
' '虚拟路径"
' '保存后url"
' '保存后url"
'方法:
'(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=("")
=1
=3

getImageSize
End Sub
Private Sub Class_Terminate

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
fdata
=0
SaveName=iSaveName
SavePath=iSavePath
SaveMode=iSaveMode
'写文本对象读取图像长宽和类型
=0 '重置数据开始位置
bFlag=(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(b