⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 adlink.asp

📁 仿百度搜索程序修正版
💻 ASP
字号:
<%if session("loc")=0 then response.redirect "admin.asp"%>
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>NHHN.NET</title>
<style>
<!--
td           { font-size: 9pt }
     A:link {text-decoration: none; color:#000000}
     A:visited {text-decoration: none; color: #000000}
     A:active {text-decoration: none; color: #FF0000}
     A:hover {text-decoration: underline; color: FF0000}
-->
</style>
</head>

<body topmargin="10" leftmargin="0" bgcolor="#FFFFE6">

<div align="center"> <center> </div>  
  
<div align="center">  
  <table border="0" width="760" cellspacing="0" cellpadding="0" height="65%">  
    <tr>             
      <td width="359" valign="top" align="center">
      <p align="left"><strong><font color="#FF3300">推荐信息管理</font></strong><br>
      <br>
  <center>  
<table border="0" cellspacing="3" cellpadding="0">
      <%set com=server.createobject("adodb.connection")
com.open "DBQ="& Server.MapPath("../data.mdb")  &";Driver={Microsoft Access Driver (*.mdb)}"
set rs=com.execute("select*from link")
do while not rs.eof%>
                <tr>
                  <td width="100"><a href="http://<%response.write rs(2)%>" target="_blank"><%response.write rs(1)%></a></td><td width="46" align="center"> <a href="adlinkd.asp?n=<%response.write rs(1)%>">删</a></td>
                </tr>
<%rs.movenext
loop%>
</table>
</td>             
               
      <td width="392" valign="top">
      <p align="center"> </p>
        <p align="center">添加新推荐信息</p>
      <form method="POST" action="adlinka.asp">
          <p align="center">推荐信息中文: 
            <input type="text" name="webname" size="27"></p>
          <p align="center">推荐信息网址:
            <input name="weburl" type="text" value="http://" size="27">
          </p>
        <p align="center"><input type="submit" value=" 添  加 " name="B1" style="font-size: 9pt; background-color: #FFFFE6; border-style: solid"> 
        <input type="reset" value=" 重  写 " name="B2" style="font-size: 9pt; background-color: #FFFFE6; border-style: solid"></p> 
      </form> 
      <p align="center"> 
        
        <p align="center"><a href="adsel.asp"><font color="#0000FF">&lt;&lt;返回</font></a> 
        <p align="center"> 
    </td>              
    </tr>              
  </table>              
</div>              
              
<div align="center">              
  <center>              
  <table border="0" width="760" cellspacing="1" cellpadding="0">              
    <tr>                  
        <td height="18" align="center"> 
          <%rs.close
      com.close%>
        </td>                       
    </tr>                       
  </table>                       
  </center>                       
</div>                       
                       
</body>                       
                       
</html>                       

⌨️ 快捷键说明

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