将URL图像或页面直接保存到服务器本地类的类

发布时间：2023-02-28 14:49:45 所属栏目：Asp教程来源：

导读：复制代码代码如下:

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

<%

Option Explicit

Class BoxInfoImg

'传输类的使用方法

'图象上传和上传信息获取CLASS

'用法

复制代码代码如下:

<% @ 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))        '取得数据尺寸

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!