📄 link.asp

📁 个人网站系统毕业论文大家可以借鉴下
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="page.asp"-->
<!--#include file="jbsz.asp"-->

<body oncontextmenu="return false" onselectstart="return false"  leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="633" height="103" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr bgcolor="#FFFFFF"> 
    <td height="34" colspan="3"><%if session("oursky")="oursky" then%><a href="admin_link.asp">添加连接</a><%end if%></td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td width="182" height="39" align="left" valign="top"><table width="180" height="71" border="0" cellpadding="0" cellspacing="1">
        <tr> 
          <td height="20" align="center" bgcolor="#009900"><font color="#FFFFFF">本站LOGO</font></td>
        </tr>
        <tr> 
          <td height="23" align="left" valign="top"><table width="180" height="87" border="0" cellpadding="0" cellspacing="0">
              <tr align="center"> 
                <td colspan="2"><img src="<%=dy_logo%>"></td>
              </tr>
              <tr> 
                <td width="48" align="right"><font color="#FF6633">站点:</font></td>
                <td width="132"><%=dy_title%></td>
              </tr>
              <tr> 
                <td align="right" valign="top"><font color="#FF6633">LOGO:</font></td>
                <td align="right">
<form >
                    <input name="logo" type="text" value="<%=logo_url%>" size="20">
                  </form></td>
              </tr>
            </table>&nbsp; </td>
        </tr>
      </table></td>
    <td width="438" colspan="2" align="left" valign="top">
	<% set rs=server.CreateObject("adodb.recordset")
  sql="select * from dy_link order by dy_id desc"
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then%>
	<table width="100%" height="67" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
        <tr bgcolor="#FFFFFF"> 
          <td width="100%"  align="center">当前没有连接！！</td>
  </tr></table> 
  <%else
  page=request.querystring("page")   
  rs.PageSize = 10 
  if Not IsEmpty(page) then  
    if Not IsNumeric(page) then  
       page=1
    else
    Page = cint(page)  
    end if   
    if Page > rs.PageCount then  
        rs.AbsolutePage = rs.PageCount     
    elseif Page <= 0 then  
        rs.AbsolutePage = 1  
    else
        rs.AbsolutePage = Page  
    end if
else
rs.AbsolutePage=1
end if
Page = rs.AbsolutePage 
  
For i = 1 to rs.PageSize  
 if rs.EOF then
  Exit For 
 end if 
%>

      <table width="100%" height="39" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
        <tr bgcolor="#FFFFFF"> 
          <td width="20%">序号：<%=rs("dy_id")%></td>
          <td width="46%"><a href="<%=rs("dy_place")%>" target="_blank"><img src="<%=rs("dy_logo")%>" width="88" height="31" border="0" alt="<%=rs("dy_place")%> "></a> 
            <%if session("oursky")="oursky" then%><a href="link_edi.asp?id=<%=rs("dy_id")%>">修改</a> <script language="JavaScript">
<!--
function suredo(src,q)
    {
      var ret;
      ret = confirm(q);
      if(ret!=false)window.location=src;
    }
//-->
</script>

<a href='javascript:suredo("link_del.asp?id=<%=rs("dy_id")%>","确定删除?")'>删除</a><%end if%></td>
          <td width="34%">站长：<%=rs("dy_author")%></td>
        </tr>
      </table>
	  <%
  rs.movenext
  next
  end if
%></td>
  </tr>
  <tr align="center" bgcolor="#FFFFFF"> 
    <td height="25" colspan="3"><%
	call pagination(rs.pagecount,rs.pagesize,page,rs.recordcount)
	  
	 rs.close
  set rs=nothing
  conn.close
  set conn=nothing %></td>
  </tr>
</table>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -