查人人中国名人网淮安鑫力机械有限公司:ASP高手请进!!请问如何更换图片的上传组件!
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 01:36:33
Set Obj = Server.CreateObject("XY.Graphics") '创建组件
imgpath=filename
imgpath=Server.MapPath(imgpath)
Obj.Open imgpath
set pp=new imgInfo
ww = pp.imgW(imgpath)
hh = pp.imgH(imgpath)
set pp=nothing
Set Obj = Server.CreateObject("XY.Graphics") '创建组件
这个是我程序现用的组件,由于换了台服务器,现在的服务商不给装这个组件.现在只支持AspUpload的,请问我如何在网站程序里更换组件?
楼下的那不是扯蛋嘛
要是能换程序的话,我还要这么费事的寻求更换组件的方法``
你真垃圾,还高级经理六级呢
imgpath=filename
imgpath=Server.MapPath(imgpath)
Obj.Open imgpath
set pp=new imgInfo
ww = pp.imgW(imgpath)
hh = pp.imgH(imgpath)
set pp=nothing
Set Obj = Server.CreateObject("XY.Graphics") '创建组件
这个是我程序现用的组件,由于换了台服务器,现在的服务商不给装这个组件.现在只支持AspUpload的,请问我如何在网站程序里更换组件?
楼下的那不是扯蛋嘛
要是能换程序的话,我还要这么费事的寻求更换组件的方法``
你真垃圾,还高级经理六级呢
你可以用无组件上传代码的程序。
dim folder,savepath
savepath=Server.MapPath(UploadFilePath)
CreateFolder(savepath)
Set Upload=Server.CreateObject("Persits.Upload")
Upload.SetMaxSize UploadLimitSize*1024, True
Upload.OverwriteFiles = false
Count=Upload.Save(savepath)
If Err.Number <> 0 Then
Response.Write "<div style=""color:red;font-size:12px;"">出现错误: " & Err.Number & "、" & Err.Description &"<a href=""javascript:history.go(-1)"">重新上传</a></div>"
End If