UC知道看wap程序代码！如何略缩小网页中图片
来源：百度知道 编辑：UC知道 时间：2024/07/03 09:05:30
比如有人上传了一张1024*880的高清图片.显示到首页一样1024*880这么大。如何略缩小网页中图片为小图呢！看wap程序代码！
看这设置width='30' height='20'当只是用电脑opera上才可以略缩小网页中图片。手机上就不行了，上传的是多大的就显示多大出来了。
<%
dim objgbrsc
set objgbrsc=Server.CreateObject("ADODB.Recordset")
conn.CommandTimeOut =999
ssql="select top 2 xclink,id from myalbum where bz='1' order by times desc"
objgbrsc.open ssql,conn,3,3
if objgbrsc.eof then
Response.write "暂时没有新上传相片<br/>"
else
For k=1 to objgbrsc.PageSize
Response.write "<a href='/lt/Myalbum/Myalbum.asp?id=" & objgbrsc("id") & "&wap=" & wap & "'><img src='" & objgbrsc("xclink") & "' width='30' height='20' alt='相'/></a>"
objgbrsc.Movenext
if objgbrsc.EOF then Exit for
Next
End if
objgbrsc.close
set objgbrsc=nothing
看这设置width='30' height='20'当只是用电脑opera上才可以略缩小网页中图片。手机上就不行了，上传的是多大的就显示多大出来了。
<%
dim objgbrsc
set objgbrsc=Server.CreateObject("ADODB.Recordset")
conn.CommandTimeOut =999
ssql="select top 2 xclink,id from myalbum where bz='1' order by times desc"
objgbrsc.open ssql,conn,3,3
if objgbrsc.eof then
Response.write "暂时没有新上传相片<br/>"
else
For k=1 to objgbrsc.PageSize
Response.write "<a href='/lt/Myalbum/Myalbum.asp?id=" & objgbrsc("id") & "&wap=" & wap & "'><img src='" & objgbrsc("xclink") & "' width='30' height='20' alt='相'/></a>"
objgbrsc.Movenext
if objgbrsc.EOF then Exit for
Next
End if
objgbrsc.close
set objgbrsc=nothing
你好！
图片缩小应该没问题
我也这样写的 手机演示也没问题！
<img src='" & objgbrsc("xclink") & "' width=""30"" height=""20"" alt='相'/>
试试
如果不行 就是手机浏览器的问题的！
没有办法了！
good luck!!