“JK1.2”的友情链接不使用JS调用的方法！

sub main_center_link()
%>
<table cellspacing=1 cellpadding=4 class=table class=bg_td>
<tr><td class=td><table border=0 cellspacing=0 cellpadding=0 width='100%'><tr><td width='22%' class=ftd> <b> 友情链接</b></td><td align=right width='78%'><a href=links.asp><font color=white>更多..</a></td></tr></table></td></tr>
<table border=0 cellspacing=0 cellpadding=0 width='98%' class=bg_td>
<tr align=center>
<%
  sql="select top 10 id,nname,url,pic from links where sort='fir' and hidden=1 order by id desc"
  set rs=joekoe_cms.exec(sql,1)
if not rs.eof then
i=1
  do while not rs.eof
  url=rs("url")
  pic=rs("pic")
  nname=rs("nname")

%>  
<td align=center>
<table border=0 cellspacing=0 cellpadding=0>
<tr><td height=3></td></tr>
<tr><td><a href='<%=rs("url")%>' target=_blank><img src='<%=rs("pic")%>' border=0 width=88 height=31 alt='<%response.write joekoe_cms.code_js(rs("nname"),1)%>'></a></td></tr>
<tr><td height=3></td></tr>
</table>    
</td>
<%
if i mod 5 = 0 then
response.write vbcrlf&"  </tr>"
end if
rs.movenext
i=i+1
loop
end if
rs.close
%>
</tr></table>
<%
response.write ukong
end sub

sub main_wenzi_link()
%>
<table cellspacing=1 cellpadding=4 class=table class=bg_td>
<tr><td class=td><table border=0 cellspacing=0 cellpadding=0 width='100%'><tr><td width='22%' class=ftd> <b> 友情链接</b></td><td align=right width='78%'><a href=links.asp><font color=white>更多..</a></td></tr></table></td></tr>
<table border=0 cellspacing=0 cellpadding=0 width='98%' class=bg_td>
<tr align=center>
<%
  sql="select top 20 id,nname,url from links where sort='txt' and hidden=1 order by id desc"
  set rs=joekoe_cms.exec(sql,1)
if not rs.eof then
i=1
  do while not rs.eof
  url=rs("url")
  nname=rs("nname")

%>  
<td align=center>
<table border=0 cellspacing=0 cellpadding=0>
<tr><td height=3></td></tr>
<tr align=center><td><a href='<%=rs("url")%>' target=_blank><%response.write joekoe_cms.code_js(rs("nname"),1)%></a></td></tr>
<tr><td height=3></td></tr>
</table>    
</td>
<%
if i mod 5 = 0 then
response.write vbcrlf&"  </tr>"
end if
rs.movenext
i=i+1
loop
end if
rs.close
%>
</tr></table>
<%
response.write ukong
end sub

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: