link.asp

模块及功能： 1.汽车新闻 分类.查询.翻页 2.出售信息 搜索.评估.地区展示.发布.展示.固顶.刷新 3.求购信息 发布.展示.固顶.刷新 3.加盟商家管理 注册.登录.信

<table border="0" width="778" id="table3" cellspacing="0" cellpadding="0">
	<tr>
		<td  background="images/byshop_bg.jpg" height="1"></td>
	</tr>
</table>
<table border="0" width="778" id="table1" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
	<tr>
		<td width="2" valign="top" background="images/byshop_bg.jpg" rowspan="3"></td>
		<td>
		<table border="0" width="100%" id="table2">
		<tr>
		<td colspan="8">
		友情链接
		
		</td>
		</tr>
	
			
	<%

	set rs=server.CreateObject("adodb.recordset")
    rs.Open "select * from imageslinks where by_tongguo=1 order by linkidorder",conn,1,1
      do while not rs.EOF
 %>
			<tr height=35>
				<%
	if   not rs.eof  then
    response.Write "<td  width=96.75><p align='center'><a href="&trim(rs("linkurl"))&" target=_blank><img height='31' src="&trim(rs("linkimages"))&" width='88' border='0' alt="&trim(rs("linkname"))&"></a></td>"
    else
       response.Write "<td  width=96.75><p align='center'><img height='31' src='images/nologo.gif' width='88' border='0' alt='您的位置'></td>"
 end if   
  rs.MoveNext
if   not rs.eof  then
    response.Write "<td  width=96.75><p align='center'><a href="&trim(rs("linkurl"))&" target=_blank><img height='31' src="&trim(rs("linkimages"))&" width='88' border='0' alt="&trim(rs("linkname"))&"></a></td>"
    else
       response.Write "<td  width=96.75><p align='center'><img height='31' src='images/nologo.gif' width='88' border='0' alt='您的位置'></td>"
 end if
    
    rs.MoveNext
    if   not rs.eof  then
    response.Write "<td  width=96.75><p align='center'><a href="&trim(rs("linkurl"))&" target=_blank><img height='31' src="&trim(rs("linkimages"))&" width='88' border='0' alt="&trim(rs("linkname"))&"></a></td>"
    else
       response.Write "<td  width=96.75><p align='center'><img height='31' src='images/nologo.gif' width='88' border='0' alt='您的位置'></td>"
 end if
    
    rs.MoveNext
    if   not rs.eof  then
    response.Write "<td  width=96.75><p align='center'><a href="&trim(rs("linkurl"))&" target=_blank><img height='31' src="&trim(rs("linkimages"))&" width='88' border='0' alt="&trim(rs("linkname"))&"></a></td>"
    else
       response.Write "<td  width=96.75><p align='center'><img height='31' src='images/nologo.gif' width='88' border='0' alt='您的位置'></td>"
 end if
    
    rs.MoveNext
    if   not rs.eof  then
    response.Write "<td  width=96.75><p align='center'><a href="&trim(rs("linkurl"))&" target=_blank><img height='31' src="&trim(rs("linkimages"))&" width='88' border='0' alt="&trim(rs("linkname"))&"></a></td>"
    else
       response.Write "<td  width=96.75><p align='center'><img height='31' src='images/nologo.gif' width='88' border='0' alt='您的位置'></td>"
 end if
    
    rs.MoveNext
    if   not rs.eof  then
    response.Write "<td  width=96.75><p align='center'><a href="&trim(rs("linkurl"))&" target=_blank><img height='31' src="&trim(rs("linkimages"))&" width='88' border='0' alt="&trim(rs("linkname"))&"></a></td>"
    else
       response.Write "<td  width=96.75><p align='center'><img height='31' src='images/nologo.gif' width='88' border='0' alt='您的位置'></td>"
 end if
    
    rs.MoveNext
    if   not rs.eof  then
    response.Write "<td  width=96.75><p align='center'><a href="&trim(rs("linkurl"))&" target=_blank><img height='31' src="&trim(rs("linkimages"))&" width='88' border='0' alt="&trim(rs("linkname"))&"></a></td>"
    else
       response.Write "<td  width=96.75><p align='center'><img height='31' src='images/nologo.gif' width='88' border='0' alt='您的位置'></td>"
 end if
    
    rs.MoveNext  
        if   not rs.eof  then
    response.Write "<td  width=96.75><p align='center'><a href="&trim(rs("linkurl"))&" target=_blank><img height='31' src="&trim(rs("linkimages"))&" width='88' border='0' alt="&trim(rs("linkname"))&"></a></td>"
    else
       response.Write "<td  width=96.75><p align='center'><img height='31' src='images/nologo.gif' width='88' border='0' alt='您的位置'></td>"
 end if
    
    rs.MoveNext  
    
        loop
    rs.Close
    set rs=nothing
   %>

			</tr>
			      <tr>
        <td height="19"  colspan="8"><%set rs=server.CreateObject("adodb.recordset")
    rs.Open "select * from links where by_tongguo=1 order by linkidorder",conn,1,1
    if not rs.eof then
       response.Write "&nbsp;<a href="&trim(rs("linkurl"))&" target=_blank>"&trim(rs("linkname"))&"</a>"
rs.movenext
end if
    do while not rs.EOF
    response.Write "&nbsp;&nbsp;&nbsp;<a href="&trim(rs("linkurl"))&" target=_blank>"&trim(rs("linkname"))&"</a>"
    rs.MoveNext
    loop
    rs.Close
    set rs=nothing
   %></td>
      </tr>
		</table>
		</td>
		<td width="2" valign="top" background="images/byshop_bg.jpg" rowspan="3"></td>
	</tr>
</table>