![]() |
#2
yms1232009-10-26 17:11
|
就是...直接看链接好了
http://newweb758403.zj13.host.
这个页面右边有个“精彩图集”,就因为这个玩意,整个网页看起来,像没装显卡驱动似。
代码是这样的:

<table width="100%" border="0" cellpadding="0" cellspacing="0" class="kuang1">
<tr>
<td height="27" background="images/righttitle1-bj.jpg" style="padding:0px 10px 0px 10px"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="17"><img src="images/icona.jpg" width="17" height="27"></td>
<td width="10"></td>
<td align="left" style="font-weight:bold; color:#146900; font-size:14px">精彩图集</td>
<td align="right"> </td>
</tr>
</table></td>
</tr>
<tr>
<td align="left" valign="top" style="padding:10px"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
//********精彩图集
set pic=Server.CreateObject("adodb.recordset")
Randomize
psql="select id,image from news where class_1='1' and disp='1' order by rnd(-(id+" & rnd() & "))"
pic.open psql,conn,0,2
%>
<tr>
<td><a href="pic_Details.asp?id=<%=pic("id")%>"><%
if pic("image")<>"not" then
response.write "<img src='www/"&pic("image")&"' width='149' height=125 border=0>"
else
response.write "<img src='' width='149' height=125 border=0>"
end if
pic.movenext
%></a></td>
<td width="10"> </td>
<td><a href="pic_Details.asp?id=<%=pic("id")%>"><%
if pic("image")<>"not" then
response.write "<img src='www/"&pic("image")&"' width='149' height=125 border=0>"
else
response.write "<img src='' width='149' height=125 border=0>"
end if
pic.movenext
%></a></td>
</tr>
<tr>
<td height="10" colspan="3"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="pic_Details.asp?id=<%=pic("id")%>"><%
if pic("image")<>"not" then
response.write "<img src='www/"&pic("image")&"' width='149' height=125 border=0>"
else
response.write "<img src='' width='149' height=125 border=0>"
end if
pic.movenext
%></a></td>
<td width="10"> </td>
<td><a href="pic_Details.asp?id=<%=pic("id")%>"><%
if pic("image")<>"not" then
response.write "<img src='www/"&pic("image")&"' width='149' height=125 border=0>"
else
response.write "<img src='' width='149' height=125 border=0>"
end if
pic.movenext
%></a></td>
</tr>
<tr>
<td height="10" colspan="3"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="pic_Details.asp?id=<%=pic("id")%>"><%
if pic("image")<>"not" then
response.write "<img src='www/"&pic("image")&"' width='149' height=125 border=0>"
else
response.write "<img src='' width='149' height=125 border=0>"
end if
pic.movenext
%></a></td>
<td width="10"> </td>
<td><a href="pic_Details.asp?id=<%=pic("id")%>"><%
if pic("image")<>"not" then
response.write "<img src='www/"&pic("image")&"' width='149' height=125 border=0>"
else
response.write "<img src='' width='149' height=125 border=0>"
end if
pic.movenext
%></a></td>
</tr>
<tr>
<td height="10" colspan="3"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="pic_Details.asp?id=<%=pic("id")%>"><%
if pic("image")<>"not" then
response.write "<img src='www/"&pic("image")&"' width='149' height=125 border=0>"
else
response.write "<img src='' width='149' height=125 border=0>"
end if
pic.movenext
%></a></td>
<td width="10"> </td>
<td><a href="pic_Details.asp?id=<%=pic("id")%>"><%
if pic("image")<>"not" then
response.write "<img src='www/"&pic("image")&"' width='149' height=125 border=0>"
else
response.write "<img src='' width='149' height=125 border=0>"
end if
pic.movenext
%></a></td>
</tr>
<tr>
<td height="10" colspan="3"></td>
</tr>
</table>
</td>
</tr>
</table>
<tr>
<td height="27" background="images/righttitle1-bj.jpg" style="padding:0px 10px 0px 10px"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="17"><img src="images/icona.jpg" width="17" height="27"></td>
<td width="10"></td>
<td align="left" style="font-weight:bold; color:#146900; font-size:14px">精彩图集</td>
<td align="right"> </td>
</tr>
</table></td>
</tr>
<tr>
<td align="left" valign="top" style="padding:10px"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
//********精彩图集
set pic=Server.CreateObject("adodb.recordset")
Randomize
psql="select id,image from news where class_1='1' and disp='1' order by rnd(-(id+" & rnd() & "))"
pic.open psql,conn,0,2
%>
<tr>
<td><a href="pic_Details.asp?id=<%=pic("id")%>"><%
if pic("image")<>"not" then
response.write "<img src='www/"&pic("image")&"' width='149' height=125 border=0>"
else
response.write "<img src='' width='149' height=125 border=0>"
end if
pic.movenext
%></a></td>
<td width="10"> </td>
<td><a href="pic_Details.asp?id=<%=pic("id")%>"><%
if pic("image")<>"not" then
response.write "<img src='www/"&pic("image")&"' width='149' height=125 border=0>"
else
response.write "<img src='' width='149' height=125 border=0>"
end if
pic.movenext
%></a></td>
</tr>
<tr>
<td height="10" colspan="3"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="pic_Details.asp?id=<%=pic("id")%>"><%
if pic("image")<>"not" then
response.write "<img src='www/"&pic("image")&"' width='149' height=125 border=0>"
else
response.write "<img src='' width='149' height=125 border=0>"
end if
pic.movenext
%></a></td>
<td width="10"> </td>
<td><a href="pic_Details.asp?id=<%=pic("id")%>"><%
if pic("image")<>"not" then
response.write "<img src='www/"&pic("image")&"' width='149' height=125 border=0>"
else
response.write "<img src='' width='149' height=125 border=0>"
end if
pic.movenext
%></a></td>
</tr>
<tr>
<td height="10" colspan="3"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="pic_Details.asp?id=<%=pic("id")%>"><%
if pic("image")<>"not" then
response.write "<img src='www/"&pic("image")&"' width='149' height=125 border=0>"
else
response.write "<img src='' width='149' height=125 border=0>"
end if
pic.movenext
%></a></td>
<td width="10"> </td>
<td><a href="pic_Details.asp?id=<%=pic("id")%>"><%
if pic("image")<>"not" then
response.write "<img src='www/"&pic("image")&"' width='149' height=125 border=0>"
else
response.write "<img src='' width='149' height=125 border=0>"
end if
pic.movenext
%></a></td>
</tr>
<tr>
<td height="10" colspan="3"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="pic_Details.asp?id=<%=pic("id")%>"><%
if pic("image")<>"not" then
response.write "<img src='www/"&pic("image")&"' width='149' height=125 border=0>"
else
response.write "<img src='' width='149' height=125 border=0>"
end if
pic.movenext
%></a></td>
<td width="10"> </td>
<td><a href="pic_Details.asp?id=<%=pic("id")%>"><%
if pic("image")<>"not" then
response.write "<img src='www/"&pic("image")&"' width='149' height=125 border=0>"
else
response.write "<img src='' width='149' height=125 border=0>"
end if
pic.movenext
%></a></td>
</tr>
<tr>
<td height="10" colspan="3"></td>
</tr>
</table>
</td>
</tr>
</table>
这些图是经过JAVASCRIP处理的,显示时缩小,也许跟图片太大有关系。
后来做这种网页时,就用 “缩略图aspjpeg”组件,先把图片处理小了,再显示,可是每次开网页都会闪一下
也给个链接
http://www.。
也不知是该怎么改。
我看了一些大型的网站,不知他们怎么实现的,很稳定。
比如搜狐这个:
http://pic.