光纤熔接 ERP

弱电论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 1591|回复: 1
打印 上一主题 下一主题

求教关于头像大小问题

[复制链接]
跳转到指定楼层
1#
发表于 2011-6-17 23:21:36 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
华为代理商
架好了论坛,在控制面板编辑头像上面我设置了可以上传,但是会有一个问题就是头像分辨率太大了会超出左边的框架,这个问题要怎么解决,谢谢各位老师。

看过了 弱电之家 老师发的关于bbsxp上手帖子,但是里面也有个和我一样问题的朋友的帖子没有人回答...

另外刚才我搜了下帖子,不知道是那段源码放的位置不对呢还是怎么的,首先我的UpFile.asp在Utility目录下而不是在UpFile

另外我把那段源码复制进去了,在上传的头像选文件的那里下方多出一个框来,上传后的头像和以前没区别。

修改EditProfile.asp文件后,点不开上传了,只好换回原来备份的。


补充下我的UpFile.asp

Sub ImagePersits
if IsObjInstalled("Persits.Jpeg") and SiteConfig("AttachmentsSaveOption")=1 and FileMIME="image/pjpeg" then
  Set Jpeg = Server.CreateObject("Persits.Jpeg")
  Jpeg.Open Server.MapPath(""&SaveFile&"")

  if UpClass="Face" then  '上传头像自动缩放到后台设定的指定值
  Jpeg.Width = Jpeg.OriginalWidth
  Jpeg.Height = Jpeg.OriginalHeight
  if Jpeg.OriginalWidth / Jpeg.OriginalHeight >= 1 then
    if Jpeg.Width>SiteConfig("AvatarWidth") then
    Jpeg.Width = SiteConfig("AvatarWidth")
    Jpeg.Height = int((SiteConfig("AvatarWidth")/Jpeg.OriginalWidth)*Jpeg.OriginalHeight)
    end if
  elseif Jpeg.OriginalWidth / Jpeg.OriginalHeight < 1 then
    if Jpeg.Height>SiteConfig("AvatarHeight") then
    Jpeg.Height = SiteConfig("AvatarHeight")
    Jpeg.Width= int(Jpeg.OriginalWidth*(SiteConfig("AvatarHeight")/Jpeg.OriginalHeight))
    end if
  end if
  else      '设置帖子附件图片水印效果
  if SiteConfig("WatermarkOption")="Persits.Jpeg" then
    JpegPersits
  end if
  end if
 
  Jpeg.Save Server.MapPath(""&SaveFile&"")
  Set Jpeg = nothing
end if
End Sub


我的EditProfile.asp


  头像地址 " name="UserFaceUrl" size="40" <%if SiteConfig("EnableRemoteAvatars")=0 then%> readonly="readonly"<%end if%> /> 上传头像
 
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享
2#
 楼主| 发表于 2011-6-18 12:58:55 | 只看该作者
华为代理商
来个师傅解答下吧
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|广告咨询|VIP注册|关于我们|联系我们|积分规则|手机版|Archiver|弱电之家论坛 ( 京ICP备11008917号-3 )

GMT+8, 2025-9-24 18:16 , Processed in 0.070474 second(s), 22 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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