UC知道如何通过表单使aspjpeg生成指定文字的图片
来源：百度知道 编辑：UC知道 时间：2024/05/17 09:27:26
<%
Dim Jpeg
' 建立实例
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 打开目标图片
Jpeg.Open Server.MapPath("gg.jpg")
' 添加文字水印
Jpeg.Canvas.Font.Color = &HFF0000' 红色
Jpeg.Canvas.Font.Family = "宋体"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Print 10, 10, "文字"
' 保存文件
Jpeg.Save Server.MapPath("gg1.jpg")
' 注销对象
Set Jpeg = Nothing
%>
如何通过表单形式修改本页“Jpeg.Canvas.Print 10, 10, "文字" ”中的文字内容？请高手帮帮忙。万分感谢
Dim Jpeg
' 建立实例
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 打开目标图片
Jpeg.Open Server.MapPath("gg.jpg")
' 添加文字水印
Jpeg.Canvas.Font.Color = &HFF0000' 红色
Jpeg.Canvas.Font.Family = "宋体"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Print 10, 10, "文字"
' 保存文件
Jpeg.Save Server.MapPath("gg1.jpg")
' 注销对象
Set Jpeg = Nothing
%>
如何通过表单形式修改本页“Jpeg.Canvas.Print 10, 10, "文字" ”中的文字内容？请高手帮帮忙。万分感谢
在处理页之前加一个输入文字页面，放一个文本框用来输入需要的文字，然后提交到这个ASP文件。
textvalue=trim(request("textvalue"))
.......
Jpeg.Canvas.Print 10, 10, ""&textvlaue&""
.......