图片地址：
图片高度：
图片宽度：
绘制文字：
字体颜色：
文字阴影：
阴影左右偏移
负数左正数右：
阴影上下偏移
负数上正数下：
字体样式：
文字的字体:
字体位置：
字体大小：
"
dim w,h,pic,url
url=trim(request.form("pic"))
w=request.form("w")
h=request.form("h")
Server.ScriptTimeOut=9999999
function getHTTPPage(url)
on error resume next
dim http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=Http.responseBody
set http=nothing
if err.number<>0 then err.Clear
end function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
function saveimage(from,tofile)
dim geturl,objStream,imgs
geturl=trim(from)
imgs=gethttppage(geturl)'
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type =1
objStream.Open
objstream.write imgs
objstream.SaveToFile server.mappath(tofile),2
objstream.Close()
set objstream=nothing
end function
dim picfile,pictype
pictype=Right(url,3)
if pictype<>"jpg" and pictype<>"gif" and pictype<>"bmp" and pictype<>"png" then
Response.Write "图片格式限为gif,jpg,bmp,png
"
Response.Write "返回继续DIY
"
Response.Write "
"&Month(Now)&"月"&Day(Now)&"日"&FormatDateTime(Now,vbshortTime)&""
response.write "" & Chr(13)
%>