处理图片、文章的程序

电脑维修第一互动门户_www.PC106.com

为了方便您再次访问电脑维修站，请点击收藏本站！

设为首页

维修： CPU·主板·硬盘·内存·显卡·显示器·键盘鼠标·声卡音箱·软驱光驱·打印机·机箱电源·BIOS·网卡·局域网·浏览器

您现在的位置：电脑维修 >> 网站技术 >> ASP技术 >> ASP技巧 >> 网站技术正文

处理图片、文章的程序

作者：佚名文章来源：不详点击数：更新时间：2007-2-14 14:58:22

gt;"
addpictemp= addpictemp + "<div align=""center"">"
addpictemp= addpictemp + "<center>"
addpictemp= addpictemp + "<table  width=""32"" height=""32"" cellpadding=""0"" cellspacing=""0"" "
if ars("style")=0 then
addpictemp= addpictemp + "style=""border-collapse: collapse; border-style: solid; border-width: 1"" bordercolor=""#111111"" "
end if
addpictemp= addpictemp + ">"
addpictemp= addpictemp + "<tr>"
addpictemp= addpictemp + "<td align=""center"">"
addpictemp= addpictemp + "<img border=""0"" "

if ars("show_sq") =2 or ars("show_sq") =3 then
addpictemp= addpictemp + " title=""" + server.htmlencode(ars("pic_comm")) +""" "
end if
addpictemp= addpictemp +" src="""
addpictemp= addpictemp + SESSION("Image_lab") +"/"+rtrim(ars("picurl"))
addpictemp= addpictemp + """ ></td>"
addpictemp= addpictemp + "</tr>"
addpictemp= addpictemp + "</table>"
addpictemp= addpictemp + "</center>"
addpictemp= addpictemp + "</div>"
addpictemp= addpictemp + "</td>"
addpictemp= addpictemp + "</tr>"
if ars("show_sq") =1 or ars("show_sq") =3 then
addpictemp= addpictemp + "<tr>"
addpictemp= addpictemp + "<td width=""100％"" nowrap align=""center"" valign=""top"" >"
if ucase(ars("pic_linkout"))<>"[N/A]" then
addpictemp= addpictemp + "<a href="""
addpictemp= addpictemp + server.urlencode(rtrim(ars("pic_linkout")))
addpictemp= addpictemp +"""><img border=""0"" src=""/systemimages/linkout.gif"" align=""right"" width=""11"" height=""11""></a>"
end if
addpictemp= addpictemp +"<font size=""2"" color=""#999999"">"
addpictemp= addpictemp + rtrim(ars("pic_sq"))
addpictemp= addpictemp +"</font>"
addpictemp= addpictemp +"</td>"
addpictemp= addpictemp + "</tr>"
end if
addpictemp= addpictemp + "</table>"
addpictemp= addpictemp + "</div>"
    case 3
addpictemp= addpictemp + "<table border=""0"" cellpadding=""0"" cellspacing=""0"" align=""left"" "
if ars("style")=2 then
addpictemp= addpictemp + "style=""border-collapse: collapse; border-style: solid; border-width: 1"" bordercolor=""#111111"" "
end if
addpictemp= addpictemp + ">"
addpictemp= addpictemp + "<tr>"
addpictemp= addpictemp + "<td width=""100％"">"
addpictemp= addpictemp + "<div align=""center"">"
addpictemp= addpictemp + "<center>"
addpictemp= addpictemp + "<table  width=""32"" height=""32"" cellpadding=""0"" cellspacing=""0"" "
if ars("style")=0 then
addpictemp= addpictemp + "style=""border-collapse: collapse; border-style: solid; border-width: 1"" bordercolor=""#111111"" "
end if
addpictemp= addpictemp + ">"
addpictemp= addpictemp + "<tr>"
addpictemp= addpictemp + "<td align=""center"">"
addpictemp= addpictemp + "<img border=""0"" "

if ars("show_sq") =2 or ars("show_sq") =3 then
addpictemp= addpictemp + " title=""" + server.htmlencode(ars("pic_comm")) +""" "
end if
addpictemp= addpictemp +" src="""
addpictemp= addpictemp + SESSION("Image_lab") +"/"+rtrim(ars("picurl"))
addpictemp= addpictemp + """ ></td>"
addpictemp= addpictemp + "</tr>"
addpictemp= addpictemp + "</table>"
addpictemp= addpictemp + "</center>"
addpictemp= addpictemp + "</div>"
addpictemp= addpictemp + "</td>"
addpictemp= addpictemp + "</tr>"
if ars("show_sq") =1 or ars("show_sq") =3 then
addpictemp= addpictemp + "<tr>"
addpictemp= addpictemp + "<td width=""100％"" nowrap align=""center"" valign=""top"" >"
if ucase(ars("pic_linkout"))<>"[N/A]" then
addpictemp= addpictemp + "<a href="""
addpictemp= addpictemp + server.urlencode(rtrim(ars("pic_linkout")))
addpictemp= addpictemp +"""><img border=""0"" src=""/systemimages/linkout.gif"" align=""right"" width=""11"" height=""11""></a>"
end if
addpictemp= addpictemp +"<font size=""2"" color=""#999999"">"
addpictemp= addpictemp + rtrim(ars("pic_sq"))
addpictemp= addpictemp +"</font>"
addpictemp= addpictemp +"</td>"
addpictemp= addpictemp + "</tr>"
end if
addpictemp= addpictemp + "</table>"
    case 4
addpictemp= addpictemp + "<table border=""0"" cellpadding=""0"" cellspacing=""0"" align=""right"" "
if ars("style")=2 then
addpictemp= addpictemp + "style=""border-collapse: collapse; border-style: solid; border-width: 1"" bordercolor=""#111111"" "
end if
addpictemp= addpictemp + ">"
addpictemp= addpictemp + "<tr>"
addpictemp= addpictemp + "<td width=""100％"">"
addpictemp= addpictemp + "<div align=""center"">"
addpictemp= addpictemp + "<center>"
addpictemp= addpictemp + "<table  width=""32"" height=""32"" cellpadding=""0"" cellspacing=""0"" "
if ars("style")=0 then
addpictemp= addpictemp + "style=""border-collapse: collapse; border-style: solid; border-width: 1"" bordercolor=""#111111"" "
end if
addpictemp= addpictemp + ">"
addpictemp= addpictemp + "<tr>"
addpictemp= addpictemp + "<td align=""center"">"
addpictemp= addpictemp + "<img border=""0""  "

if ars("show_sq") =2 or ars("show_sq") =3 then
addpictemp= addpictemp + " title=""" + server.htmlencode(ars("pic_comm")) +""" "
end if
addpictemp= addpictemp +" src="""
addpictemp= addpictemp + SESSION("Image_lab") +"/"+rtrim(ars("picurl"))
addpictemp= addpictemp + """ ></td>"
addpictemp= addpictemp + "</tr>"
addpictemp= addpictemp + "</table>"
addpictemp= addpictemp + "</center>"
addpictemp= addpictemp + "</div>"
addpictemp= addpictemp + "</td>"
addpictemp= addpictemp + "</tr>"
if ars("show_sq") =1 or ars("show_sq") =3 then
addpictemp= addpictemp + "<tr>"
addpictemp= addpictemp + "<td width=""100％"" nowrap align=""center"" valign=""top"" >"
if ucase(ars("pic_linkout"))<>"[N/A]" then
addpictemp= addpictemp + "<a href="""
addpictemp= addpictemp + server.urlencode(rtrim(ars("pic_linkout")))
addpictemp= addpictemp +"""><img border=""0"" src=""/systemimages/linkout.gif"" align=""right"" width=""11"" height=""11""></a>"
end if
addpictemp= addpictemp +"<font size=""2"" color=""#999999"">"
addpictemp= addpictemp + rtrim(ars("pic_sq"))
addpictemp= addpictemp +"</font>"
addpictemp= addpictemp +"</td>"
addpictemp= addpictemp + "</tr>"
end if
addpictemp= addpictemp + "</table>"

    end select

addpic(i-1)=addpictemp
setpiccounter ars("pic_id")
ars.movenext
next
ars.close
for i = 0 to ubound(addpic)
articletext=articletext & toarticle(i) & addpic(i)
next
articletext=articletext

上一页 [1] [2] [3] 下一页