友情文字链接站点
<% set rs10=server.CreateObject("ADODB.RecordSet") rs10.Source="select * from link where linktype=0 and pass=1 order by ID DESC " rs10.Open rs10.Source,conn,1,1 if not rs10.EOF then while not rs10.EOF %> <% rs10.MoveNext wend %> <% else Response.Write "
目前还没有
" end if rs10.Close set rs10=nothing %>
鲁ICP备05032511号 本站访问量: