top.asp

来自「程序名称：酷虎网校友录 V1.0 （商业版）*(修改版） * 本软体为商业软件」· ASP 代码 · 共 47 行

<!--#include file="online.asp"-->
<!--#include file="function/userinfo.asp"-->
<!--#include file="function/viewpro.asp"-->
<!--#include file="function/function.asp"-->
<!--#include file="inc/const.asp"-->
<div align="center">
  <center>
  <table border="0" width="755" cellspacing="0" cellpadding="0" height="25" style="background-color: #EDEDED; border-left: 1 solid #000000; border-right: 1 solid #000000; border-bottom: 1 solid #000000">
    <tr>
      <td width="188" bgcolor="#000000">
        <p align="center"><a href="http://khoo.kom.cn" class="l17"><font color="#EDEDED"><%=WebSiteName%></font></a></td>
      <td width="561">
        <p align="center"><%
        SQL="Select * From 网站栏目"
        Set ColumnRS=Server.CreateObject("ADODB.Recordset")
        ColumnRS.Open SQL,Connstr,1,1
        I=0
        Do While Not ColumnRS.Eof
        %>
        <a href="<%=ColumnRS("地址")%>"><%=ColumnRS("名称")%></a>
        <%IF ColumnRS.RecordCount-I>1 Then%> | <%End IF%> 
        <%
        ColumnRS.MoveNext
        I=I+1
        Loop
        %></td>                                                        
    </tr>
  </table>
  </center>
</div>


<div align="center">
  <center>
  <table border="0" width="755" cellspacing="0" cellpadding="0">
    <tr>
      <td height="2"></td>
    </tr>
    <tr>
      <td width="100%"><img border="0" src="<%=BigLOGO%>"></td>
    </tr>
    <tr>
      <td height="2"></td>
    </tr>
  </table>
  </center>
</div>