📄 top.asp

📁 不错的一个网站哦, 不错的一个网站哦

💻 ASP

字号:

<%sql = "SELECT logo FROM admin " 
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,0,1
if not(rs.eof and rs.bof) then
logo=rs("logo")
end if
rs.close
Set rs=nothing

%>
<body topmargin="0">
<table width=778 height="154" border=0 align=center cellpadding=0 cellspacing=0 
      class=unnamed1>
  <tbody>
    <tr>
      <td height=154 width="778" ><img src="love1.jpg" width="780" height="350"></td>
    </tr>
  </tbody>
</table>
<table width="778"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td height="41" valign="bottom"><table width="766" height="29" border="0" align="center" cellpadding="3" cellspacing="0" ">
        <tr>
          <td bgcolor="" width="500"> <a href="INDEX.asp">网站首页</a>
              <%
sql = "SELECT * FROM type ORDER BY id ASC" 
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,0,1
if rs.eof and rs.bof then
Response.Write"还没有分类"
else
do while not rs.eof
Response.Write"| <a href='type.asp?typeid="&rs("id")&"'>"&rs("name")&"</a>"
rs.movenext
loop
end if
rs.close
Set rs=Nothing
%>
          | <a href="ly/index.asp" target="_blank">留言</a> |              <a href="LOGIN.ASP">管理</a> </td>
          <td width="278" align="right"><table border="0" cellspacing="0" cellpadding="3">
              <form name="form1" method="get" action="search.asp">
                <tr>
                  <td>搜索文件 </td>
                  <td align="center">　</td>
                  <td align="left"><input type="text" name="key" size="15">
                      <input type="submit" name="Submit" value="确定">
                  </td>
                </tr>
              </form>
              
          </table></td>
        </tr>
        
    </table></td>
  </tr>

</table>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -