📄 adlink.asp
字号:
<%if session("loc")=0 then response.redirect "admin.asp"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>DaDaYu </TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Window-target content=_top>
<META content= name=AUTHOR>
<META content="大大鱼工作室，E天工作室，网站设计，徐州信息网，徐州114信息网，徐州房产" name=KEYWORDS>
<META content="home page" name=CATEGORY>
<META content=all name=ROBOTS>
<LINK href="../images/style.css" type=text/css rel=stylesheet>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<body leftmargin="0" topmargin="0">
<table border="0" width="100%" height="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<p align="center"><table width="500" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr align="center" bgcolor="#CCCCCC">
<td height="50" bgcolor="#CCCCCC">DaDaYu信息发布系统
V1.0</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="500" align="right" height="30">
<p align="center"><font color="#FF0000">推荐信息管理</font></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td height="100">
<table border="0" width="100%" cellspacing="5" cellpadding="5">
<%set com=server.createobject("adodb.connection")
com.open "DBQ="& Server.MapPath("../data.asp") &";Driver={Microsoft Access Driver (*.mdb)}"
set rs=com.execute("select*from link")
do while not rs.eof%>
<tr>
<td width="100%" align="center" colspan="2"></td>
</tr>
<tr>
<td width="86%" align="center"><a href="http://<%response.write rs(2)%>" target="_blank"><%response.write rs(1)%></a></td>
<td width="14%" align="center"><a href="adlinkd.asp?n=<%response.write rs(1)%>">删除</a></td>
</tr>
<%rs.movenext
loop%>
<tr>
<td width="100%" align="center" colspan="2"></td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="500" align="right" height="30">
<p align="center"><font color="#FF0000">添加推荐信息</font></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td height="100">
<table border="0" width="100%" cellspacing="5" cellpadding="5">
<tr>
<td width="100%" align="center"></td>
</tr>
<tr>
<td width="100%" align="center"><form method="POST" action="adlinka.asp">
<p align="center">推荐信息中文：
<input type="text" name="webname" size="27" maxlength="11"></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></td>
</tr>
<tr>
<td width="100%" align="center"><a href="adsel.asp"><font color="#FF0000">返回管理首页</font></a></td>
</tr>
</table>
<%rs.close
com.close%>
</td>
</tr>
<tr align="center" bgcolor="#CCCCCC">
<td height="50"><p align="center"><font color="#000000"><FONT face="Arial">Copyright ©
2003-2010 </FONT> <FONT face="Arial">2VG.NET</FONT> <FONT face=Arial>
Inc. All rights reserved. </FONT> <b><br>
</b></font></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -