收藏本站腾讯微博新浪微博

经典论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

蓝色理想 最新研发动态 网站开通淘帖功能 - 蓝色理想插件 论坛内容导读一页看论坛 - 给官方提建议

论坛活动及任务 地图和邮件任务 请多用悬赏提问 热夏来袭,选一款蓝色理想的个性T恤吧!

手机上论坛,使用APP获得更好体验 急需前端攻城狮,获得内部推荐机会 论坛开通淘帖功能,收藏终于可以分类了!

搜索
查看: 1544|回复: 6

关于一段上传代码的求助

[复制链接]
发表于 2012-5-3 21:32:41 | 显示全部楼层 |阅读模式
我现在用的上传文件upload.asp是
<!--#include file="upload_class.asp"-->
<%
Dim Upload,path,tempCls,e
'===============================================================================
'创建类实例
set Upload=new AnUpLoad       

'设置单个文件最大上传限制,按字节计;默认为不限制
Upload.SingleSize=clng(1000 * 1024) * 1024

'设置最大上传限制,按字节计;默认为不限制
Upload.MaxSize=clng(1000 * 1024) * 1024

'设置合法扩展名,以|分割,忽略大小写
Upload.Exe="*"

'设置文本编码,默认为gb2312
Upload.Charset="utf-8"       

'获取并保存数据,必须调用本方法
Upload.GetData()

'===============================================================================
'判断错误号,如果myupload.Err<=0表示正常
if Upload.ErrorID>0 then
        response.Write("{err:true,msg:'" & Upload.description & "'}")
else
        if Upload.files(-1).count>0 then '这里判断你是否选择了文件
                path=server.mappath("/upload/")
                set tempCls=Upload.files("filedata")
                result = tempCls.SaveToFile(path,0,true)
                if result then
                        response.Write("{err:false,msg:'upload',name:'" & tempCls.filename & "'}")
                else
                        response.Write("{err:true,msg:'" & tempCls.Exception & "'}")
                end if
                set tempCls=nothing
        end if
end if
set Upload=nothing
%>
想在里面加上自动生成缩略图和水印,代码是
'设置缩略图
Sub CreateView(filename)
Dim Jpeg,iWidth,iHeight,iiwidth,iiheight,L,S,MyJpeg,TempA
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath(filename)
iWidth=Jpeg.OriginalWidth         
iHeight=Jpeg.OriginalHeight
iiwidth=88                        
iiheight=31   
L=500
S=200
If iHeight>L or iWidth>L Then
If iWidth > iHeight Then
Jpeg.Width = L
Jpeg.Height = iHeight * L / iWidth
Else
Jpeg.Height = L
Jpeg.Width = iWidth * L / iHeight
End If  
End If
'水印开始
TempA=Jpeg.Binary
Set MyJpeg = Server.CreateObject("Persits.Jpeg")
MyJpeg.OpenBinary TempA                              
MyJpeg.Canvas.DrawPNG MyJpeg.OriginalWidth-iiWidth-5, MyJpeg.OriginalHeight-iiHeight-2,Server.MapPath("../_static/images/mark.png")
MyJpeg.Save Server.MapPath(filename)   
Set TempA = Nothing  
MyJpeg.Close
Set MyJpeg = Nothing
'水印结束
If iHeight>S or iWidth>S Then
If iWidth > iHeight Then
Jpeg.Width = S
Jpeg.Height = iHeight * S / iWidth
Else
Jpeg.Height = S
Jpeg.Width = iWidth * S / iHeight
End If  
End If
Jpeg.Save Server.MapPath(Replace(filename,"big_","small_"))
Jpeg.Close
Set Jpeg = Nothing
End Sub
但是加进去后还能上传,不过无法生成水印或者缩略图,请问该怎么拼在一起才正确呀,谢谢...
发表于 2012-5-4 10:38:56 | 显示全部楼层
难道本F就没有高手了么
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-5-4 11:23:37 | 显示全部楼层
q1820478300 发表于 2012-5-4 10:38
**** 作者被禁止或删除 内容自动屏蔽 ****

我是菜鸟,来求助的,呵呵~~~
回复 支持 反对

使用道具 举报

发表于 2012-5-4 20:26:05 | 显示全部楼层
这里是 前台制作与脚本专栏 请发帖至 后台数据库编程

还有你的问题伸手党嫌疑好重
先试着把你贴的code看懂, 你问的问题自然就解决了
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-5-5 09:07:54 | 显示全部楼层
wsph123 发表于 2012-5-4 20:26
这里是 前台制作与脚本专栏 请发帖至 后台数据库编程

还有你的问题伸手党嫌疑好重

我把下面那段加到原来的文件中,把里面变量的名称统一成上面的之后只能上传,不能缩放或者加水印所以才来这里问的。

就是看不懂才问的,如果看得懂干嘛要花半天时间编个帖子来问,也许你觉得问题太简单了不屑回答或者你根本就不希望别人在你的网站上取得进步,但是请别随便断定别人就是伸手党就是不思进取,至少从发现问题到寻求解决方案这个阶段别人也是经过一段努力的,实在搞不定了才来求助。

最后想说的就是既然你认为这里是高端人才交流的天地,ok,我们菜鸟退出,让给你自己自娱自乐,倒是想问问你觉得论坛中用户的粘性是怎么锻炼出来的?

并且在力所能及的情况下本人也在论坛帮助过别人,并且把几乎现在网站界面的js代码css代码和demo复制给一个比我还菜鸟的求助者。
回复 支持 反对

使用道具 举报

发表于 2012-5-5 12:39:38 | 显示全部楼层
'设置最大上传限制,按字节计;默认为不限制
Upload.MaxSize=clng(10淘宝刷钻,00 * 1024) * 1024

'设置合法扩展名,以|分割,忽略大小写
Upload.Exe="*"
回复 支持 反对

使用道具 举报

发表于 2012-5-5 12:39:54 | 显示全部楼层
http://www.sztdi.com/

回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|Archiver|手机版|blueidea.com ( ICP05002321 )  

GMT+8, 2020-1-20 03:20 , Processed in 0.110076 second(s), 9 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表