| |
 |
|
| |
启德资源配套 |
|
| |
|
|
 |
 |
|
|
免费在线咨询
|
|
|
文字链接：对于不守信用的友情连接，本站将不定时清理，并不再收录
<%
set conn=server.createobject("ADODB.CONNECTION")
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("links.mdb")
conn.open connstr
set rs=server.CreateObject("ADODB.RecordSet")
%>
| ·首页链接区[请点击 查看] |
|
需首页友情链接Ｑ我(PR=>3,注册香港公司) |
| ·文字链接区 [来我站查询链接的朋友,如果您的链接失效或被误删,请及时QQ:45612267 通知我并予以更正,谢谢!] |
|
|
|
|
<%
sql="select * from links where flag=0 "
rs.open sql,conn,1,1
%>
<%if rs.eof then
response.Write("| 数据库中没有记录！ | ")
end if
do while not rs.eof
%>
<%=rs("linkname")%> |
<%if j mod 6 =0 then %>
<%
end if
rs.movenext
j=j+1
loop
rs.close
%>
|
| |
|
|
|
|
|
|
<%
sql="select * from links where flag=1 "
rs.open sql,conn,1,1
if rs.eof then
response.Write("| 数据库中没有记录！ | ")
end if
do while not rs.eof
%>
![](http://<%=rs("imgpath")%>) |
<%if j mod 7 =0 then %>
<%
end if
rs.movenext
j=j+1
loop
rs.close
%>
|
| |
|
|
|
|
|
| |
|
|
<%
set rs=nothing
conn.close
set conn=nothing
%>
|
打印本页
