<%
sql="select * from link order by ID"
set tiezi=server.CreateObject("adodb.recordset")
tiezi.open sql,lj,1,2
if tiezi.bof and tiezi.eof then
Response.Write("| 欢迎各网站链接 | ")
else
toua=1000
do while not tiezi.eof and toua>0
toua=toua-1
%>
| |
| " target="_blank"><%=(tiezi("name"))%> |
<%tiezi.move 4
loop
end if%>
|
<%
sql="select * from link order by ID"
set tiezi=server.CreateObject("adodb.recordset")
tiezi.open sql,lj,1,2
if tiezi.bof and tiezi.eof then
Response.Write("| 欢迎各网站链接 | ")
else
tiezi.move 1
toua=1000
do while not tiezi.eof and toua>0
toua=toua-1
%>
| |
| " target="_blank"><%=(tiezi("name"))%> |
<%tiezi.move 4
loop
end if%>
|
<%
sql="select * from link order by ID"
set tiezi=server.CreateObject("adodb.recordset")
tiezi.open sql,lj,1,2
if tiezi.bof and tiezi.eof then
Response.Write("| 欢迎各网站链接 | ")
else
tiezi.move 2
toua=1000
do while not tiezi.eof and toua>0
toua=toua-1
%>
| |
| " target="_blank"><%=(tiezi("name"))%> |
<%tiezi.move 4
loop
end if%>
|
<%
sql="select * from link order by ID"
set tiezi=server.CreateObject("adodb.recordset")
tiezi.open sql,lj,1,2
if tiezi.bof and tiezi.eof then
Response.Write("| 欢迎各网站链接 | ")
else
tiezi.move 3
toua=1000
do while not tiezi.eof and toua>0
toua=toua-1
%>
| |
| " target="_blank"><%=(tiezi("name"))%> |
<%tiezi.move 4
loop
end if%>
<%
tiezi.Close
lj.Close
Set tiezi = Nothing
Set lj = Nothing
%>
|