<%
dim db
db="../db/sjxffriend.asa"
    Set Conn = Server.CreateObject("ADODB.Connection")
myconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
    Conn.Open MyConn
%><html>
<head>
<title>首页链接</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
<link rel="stylesheet" href="index.css" type="text/css">
</head>

<body leftmargin="0" topmargin="0">
<table align="center" cellpadding="0" cellspacing="0" width="777">
    <tr>
        <td width="769">
<p align="center"><%
dim lin,linsm
linsm=999
    linksql="SELECT top 999 * FROM link where linkyz=true order by linkid desc"
    Set linkrs = Server.CreateObject("ADODB.Recordset")
    linkrs.OPEN linksql, Conn
if linkrs.eof and linkrs.bof then
       response.write "没有任何友情连接"
else 
do while not linkrs.eof
%> &nbsp;<a href="<%=linkrs("linkurl")%>" target="_blank"><img src="<%=linkrs("linkpic")%>" width="88" height="31" border="0" alt="<%=linkrs("linkname")%>"></a> 
                                                            <%
lin=lin+1
if lin>linsm then exit do
	linkrs.movenext
	loop
	end if
	linkrs.close
%></p>        </td>
    </tr>
</table>
</body></html>