| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 876 人关注过本帖
标题:高手请进!急!!
只看楼主 加入收藏
plm010
Rank: 2
等 级:论坛游民
帖 子:38
专家分:20
注 册:2007-7-11
结帖率:83.33%
收藏
 问题点数:0 回复次数:3 
高手请进!急!!
各位大哥,小的不才!想用asp+javascript制作上传图片并生成缩略图,我现在可以将图片能从本地上传到服务器指定目录下,但是想提交图片后,可以生成一个缩略图!实际效果像阿里巴巴网站那样就更好了!小弟在此先谢谢了!如果能提供源代码!更是感激不尽!小弟QQ:280058004   E-mail:pang_yb6666@

[[it] 本帖最后由 plm010 于 2008-7-16 08:31 编辑 [/it]]
搜索更多相关主题的帖子: 阿里巴巴 源代码 服务器 缩略 
2008-07-16 08:11
hmhz
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:30
帖 子:1890
专家分:503
注 册:2006-12-17
收藏
得分:0 
生成缩略图需要安装组件

[编程论坛] ASP超级群:49158383  敲门暗号:ASP编程
龍艺博客 http://www.
2008-07-16 10:04
天涯听雨
Rank: 2
来 自:东莞
等 级:论坛游民
威 望:4
帖 子:497
专家分:64
注 册:2007-8-25
收藏
得分:0 
利用 AspJpeg 生成缩略图

Sub CompressPic(OldPicUrl,SavePicUrl)
    Set Jpeg = Server.CreateObject("Persits.Jpeg")
    Path = Server.MapPath(OldPicUrl)
    Jpeg.Open Path
    
    OldWidth  = Jpeg.OriginalWidth     '原图宽
    OldHeight = Jpeg.OriginalHeight    '原图高
    
    Jpeg.Height=88    '定义小图高
    Jpeg.Width =133   '定义小图宽

         '如果只定义其中一个,则按比便缩小
          
    Jpeg.Save Server.MapPath(SavePicUrl)
    set Jpeg = nothing
End Sub

Call CompressPic(需要生成小图的图片地址,生成小图后的图片地址)

从明天起做幸福的人,喂马劈柴周游世界!
2008-07-17 22:07
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
不要用“提问”“高手请进”做帖子标题。
2008-07-18 16:20
快速回复:高手请进!急!!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015243 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved