<%

call Pic_bg("05.jpg","images\Img_01.jpg","images\Img_02.jpg","images\Img_03.jpg","images\Img_04.jpg","images\Img_05.jpg","images\Img_06.jpg","images\Img_07.jpg","images\Img_08.jpg","images\Img_09.jpg")


call Pic_bg("05.jpg","images\z_01.jpg","images\z_02.jpg","images\z_03.jpg","images\z_04.jpg","images\Img_05.jpg","images\z_06.jpg","images\z_07.jpg","images\z_08.jpg","images\z_09.jpg")


Public Sub Pic_bg(image_old,bg_topleft,bg_topcenter,bg_topright,bg_centerleft,bg_center,bg_centerright,bg_buttomleft,bg_buttomcenter,bg_buttomright)

'————————————设置原来画的大小『image_old』
Set Logo_old = Server.CreateObject("Persits.Jpeg")
Logo_oldPath = Server.MapPath(image_old)
Logo_old.Open Logo_oldPath
Logo_old.Width = Logo_old.OriginalWidth
Logo_old.Height = Logo_old.OriginalHeight

'————————————设置左上角的图片大小.『bg_topleft』
Set Logo_topleft = Server.CreateObject("Persits.Jpeg")
Logo_topleftPath = Server.MapPath(bg_topleft)
Logo_topleft.Open Logo_topleftPath
Logo_topleft.Width = Logo_topleft.OriginalWidth
Logo_topleft.Height = Logo_topleft.OriginalHeight

'————————————设置右上叫角图片大小。『bg_topright』
Set Logo_topright = Server.CreateObject("Persits.Jpeg")
Logo_toprightPath = Server.MapPath(bg_topright)
Logo_topright.Open Logo_toprightPath
Logo_topright.Width = Logo_topright.OriginalWidth
Logo_topright.Height = Logo_topright.OriginalHeight
'————————————设置左下叫角图片大小。『bg_buttomleft』
Set Logo_buttomleft = Server.CreateObject("Persits.Jpeg")
Logo_buttomleftPath = Server.MapPath(bg_buttomleft)
Logo_buttomleft.Open Logo_buttomleftPath
Logo_buttomleft.Width = Logo_buttomleft.OriginalWidth
Logo_buttomleft.Height = Logo_buttomleft.OriginalHeight
'————————————设置右下叫角图片大小。『bg_buttomright』
Set Logo_buttomright = Server.CreateObject("Persits.Jpeg")
Logo_buttomrightPath = Server.MapPath(bg_buttomright)
Logo_buttomright.Open Logo_buttomrightPath
Logo_buttomright.Width = Logo_buttomright.OriginalWidth
Logo_buttomright.Height = Logo_buttomright.OriginalHeight
'————————————设置背景图片大小.『bg_center』
Set Logo_center = Server.CreateObject("Persits.Jpeg")
Logo_centerPath = Server.MapPath(bg_center)
Logo_center.Open Logo_centerPath
Logo_center.Width = Logo_topleft.Width + Logo_old.Width + Logo_topright.Width '---背景图片的宽度为左上角宽+原图宽+右上角宽
Logo_center.Height =Logo_topleft.Height + Logo_old.Height + Logo_buttomleft.Height ''---背景图片的高度为左上角高+原图高+左下角高
'————————————设置上中图片的大小.『bg_topcenter』 高度不变 宽度为背景宽度
Set Logo_topcenter = Server.CreateObject("Persits.Jpeg")
Logo_topcenterPath = Server.MapPath(bg_topcenter)
Logo_topcenter.Open Logo_topcenterPath
Logo_topcenter.Width = Logo_old.Width
Logo_topcenter.Height = Logo_topcenter.OriginalHeight
'————————————设置中左图片的大小『bg_centerleft』宽度不变 高度为背景高度
Set Logo_centerleft = Server.CreateObject("Persits.Jpeg")
Logo_centerleftPath = Server.MapPath(bg_centerleft)
Logo_centerleft.Open Logo_centerleftPath

本新闻共3页,当前在第1页  1  2  3  

编辑：iyit.net　[发送给好友] [打印本页] [关闭窗口] [返回顶部]
上一篇：ASP生成静态Html文件技术杂谈
下一篇：什么是XmlHttp？
转载请注明来源：www.iyit.net
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。