减小字体
增大字体- ·上一篇文章：动网7.0sp2 帖子列表显示发帖心情
- ·下一篇文章：动网7.0sp2 首页添加滚动背景图片
动网7.0sp2 上传图片自动加载版权信息
找到post_upfile.asp文件。
用文本编辑器打开，如果您使用的组件是AspJpeg的话，请找到以下这一行：
用文本编辑器打开，如果您使用的组件是AspJpeg的话，请找到以下这一行：
'定义变量
Dim PreviewImageFolderName
Dim ogvbox,objFont,Logobox,LogoPath
Dim PreviewImageFolderName
Dim ogvbox,objFont,Logobox,LogoPath
如上，加入红色字部分
继续向下：
'---------------------AspJpegV1.2---------------
Set ogvbox = Server.CreateObject("Persits.Jpeg")
' 读取要处理的原文件
ogvbox.Open Trim(Server.MapPath(imagename))
' Open a logo file
Set Logobox = Server.CreateObject("Persits.Jpeg")
LogoPath = Server.MapPath("images") & "\inlogo.gif" （加入图片所在路径及文件名）
Logobox.Open LogoPath
' resize logo image, preserve aspect ratio （重新设置图片的大小）
Logobox.Width = 180 （加入图片的宽度）
Logobox.Height = Logobox.Width * Logobox.OriginalHeight / Logobox.OriginalWidth （加入图片的高度）
Set ogvbox = Server.CreateObject("Persits.Jpeg")
' 读取要处理的原文件
ogvbox.Open Trim(Server.MapPath(imagename))
' Open a logo file
Set Logobox = Server.CreateObject("Persits.Jpeg")
LogoPath = Server.MapPath("images") & "\inlogo.gif" （加入图片所在路径及文件名）
Logobox.Open LogoPath
' resize logo image, preserve aspect ratio （重新设置图片的大小）
Logobox.Width = 180 （加入图片的宽度）
Logobox.Height = Logobox.Width * Logobox.OriginalHeight / Logobox.OriginalWidth （加入图片的高度）
下面几行内容就是关于修改字体及文字颜色的：
ogvbox.Canvas.Font.Color = &HFF0000 ' red （文字的颜色）
ogvbox.Canvas.Font.Family = "monospace" （文字的字体）
ogvbox.Canvas.Font.Size = 12 （文字的大小）
'ogvbox.Canvas.Font.Bold = True
' Draw frame: black, 2-pixel width
ogvbox.Canvas.Print 10, 10, ImageMode （加入文字的位置坐标）
ogvbox.Canvas.Pen.Color = &H000000 ' Black （图片边框的颜色）
ogvbox.Canvas.Pen.Width = 1 （图片边框的粗细）
ogvbox.Canvas.Brush.Solid = False ' or a solid bar would be drawn （图片边框内是否填充颜色）
ogvbox.DrawImage 0, 0, Logobox, 0.5 （加入图片的位置价坐标、及透明效果） ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height （图片边框线的位置坐标）
ogvbox.Canvas.Font.Family = "monospace" （文字的字体）
ogvbox.Canvas.Font.Size = 12 （文字的大小）
'ogvbox.Canvas.Font.Bold = True
' Draw frame: black, 2-pixel width
ogvbox.Canvas.Print 10, 10, ImageMode （加入文字的位置坐标）
ogvbox.Canvas.Pen.Color = &H000000 ' Black （图片边框的颜色）
ogvbox.Canvas.Pen.Width = 1 （图片边框的粗细）
ogvbox.Canvas.Brush.Solid = False ' or a solid bar would be drawn （图片边框内是否填充颜色）
ogvbox.DrawImage 0, 0, Logobox, 0.5 （加入图片的位置价坐标、及透明效果） ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height （图片边框线的位置坐标）
红色字部分为后加入的行，用来设置文字的大小
