ASP源码修改调用函数,把显示的图片尺寸大一点! 10
代码是这样的,问题在于现在是并排显示4张图片以及文字说明,单全是是靠左,右边有空白一段,放5个图片不够宽,想改图片宽度或者是把目前4张居中!!SubShow3MenSho...
代码是这样的,问题在于 现在是并排显示4张图片以及文字说明, 单全是是靠左, 右边有空白一段, 放5个图片不够宽, 想改图片宽度 或者是把目前4张居中!!
Sub Show3MenShow()
Dim rs
Set rs=Server.CreateObject("Adodb.Recordset")
rs.open "Select top 4 * From TbNews WHere Sort in (13,14) and isgood=1 ORder by SerialNum desc",conn,1,1
if not rs.eof then
do while not rs.eof
response.Write("<li>")
response.Write("<a href='Product_Show.asp?ClassId="&rs("Sort")&"&id="&rs("id")&" '>")
response.Write("<img src="""&rs("CoverPic2")&""" width=""256"" height=""193"" border=""0"">")
response.Write("<h1>")
response.Write(rs("title"))
response.Write("</h1>")
response.Write("<h2>相关作品</h2>")
response.Write("<p>")
response.Write(left(Nohtml(Rs("Content")),55))
response.Write("</p>")
response.Write("</a>")
response.Write("</li>")&vbcrlf
rs.movenext
loop
end if
End Sub 展开
Sub Show3MenShow()
Dim rs
Set rs=Server.CreateObject("Adodb.Recordset")
rs.open "Select top 4 * From TbNews WHere Sort in (13,14) and isgood=1 ORder by SerialNum desc",conn,1,1
if not rs.eof then
do while not rs.eof
response.Write("<li>")
response.Write("<a href='Product_Show.asp?ClassId="&rs("Sort")&"&id="&rs("id")&" '>")
response.Write("<img src="""&rs("CoverPic2")&""" width=""256"" height=""193"" border=""0"">")
response.Write("<h1>")
response.Write(rs("title"))
response.Write("</h1>")
response.Write("<h2>相关作品</h2>")
response.Write("<p>")
response.Write(left(Nohtml(Rs("Content")),55))
response.Write("</p>")
response.Write("</a>")
response.Write("</li>")&vbcrlf
rs.movenext
loop
end if
End Sub 展开
1个回答
2011-11-21
展开全部
width=""256"" height=""193"" 改一下这两个值试试
追问
不行哦 我试过了 不行哦
追答
那就不知道了,单从这一段代码来看是改这里
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询