asptblink.asp

可以做论坛

<!--#include file="conn.asp"-->



<%

casptblinkn="select * from asptblink where nologo=0 order by id desc"
set rlinkn=server.createobject("adodb.recordset")
rlinkn.open casptblinkn,conn,1,1
if not rlinkn.eof then 


asptblink=""
asptblink=asptblink&"<table width=775 border=0 align=center cellspacing=0 class=tdz12><tr><td>"

  
  do while not rlinkn.eof
  
 

asptblink=asptblink&"   [ <a href="&rlinkn("linkurl")&" title="&rlinkn("linkalt")&" target=_blank>"  &rlinkn("linkname")&  "</a>  ] "
  rlinkn.MoveNext
Loop
asptblink=asptblink&"<td></tr></table>"
end if
rlinkn.close
set rlinkn=nothing
'nologo
casptblink="select * from asptblink where nologo=1 order by id desc"
set rlink=server.createobject("adodb.recordset")
rlink.open casptblink,conn,1,1
if not rlink.eof then 

asptblink=asptblink&"<table width=775 border=0 align=center cellspacing=0><tr>"

  li=0
  do while not rlink.eof
  
  li=li+1
  lii= li mod 7
  if lii=0 then
asptblink=asptblink&"</tr><tr>"
  end if

asptblink=asptblink&"<td align=center valign=middle><a href="&rlink("linkurl")&" target=_blank><img src="&rlink("linklogo")&" width=105 height=35 alt="&rlink("linkalt")&" border=0 ></a></td>"

  rlink.MoveNext
Loop
asptblink=asptblink&"</tr></table>"

end if
rlink.close
set rlink=nothing
'response.Write(""&asptblink&"")
%>