<%
dim tbsql',b
dim tbrs
tbsql="select TOP 18 * from [vikecn_link] where isok=1 and userid=0 and linktype=1 Order by IsGood desc,addtime desc"
Set tbrs= Server.CreateObject("ADODB.Recordset")
tbrs.open tbsql,connvk,1,1
'b=0
do while not tbrs.eof
%>
" title="<%=tbrs("sitename")%>">" alt="<%=tbrs("SiteName")%>" width="88" height="31" style="border: 0px solid #444448">
<%
'b=b+1
'if b mod 6 = 0 then Response.Write(" ")
tbrs.movenext
loop
tbrs.close
set tbrs=nothing
'文字链接
tbsql="select TOP 18 * from [vikecn_link] where isok=1 and userid=0 and linktype<>1 Order by IsGood desc,addtime desc"
Set tbrs= Server.CreateObject("ADODB.Recordset")
tbrs.open tbsql,connvk,1,1
'b=0
do while not tbrs.eof
%>
" title="<%=tbrs("SiteIntro")%>"><%=tbrs("SiteName")%>
<%
tbrs.movenext
loop
tbrs.close
set tbrs=nothing
%>
