📄 admin_link.asp

📁 完整的网址站
💻 ASP
字号:
<!--#include file="config.asp"-->
<%
dim founderr,errmsg
founderr=false
errmsg=""
if session("adminlogin")<>sessionvar then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你尚未登录，或者超时了！请<a href='index.asp'>重新登录</a>！"
  call diserror()
  response.end
end if
  if session("flag")>1 then
  errmsg=errmsg+"<br>"+"<li>你的管理权限不够！！</a>！"
  call diserror()
  response.end
  end if

%>
<script id=clientEventHandlersJS language=javascript>
<!--
function CheckForm()
{
if (document.form.title.value==""){
alert("友情链接标题不能为空！");
document.form.Name.focus();
return false;
}
if (document.form.url.value==""){
alert("友情链接地址不能为空！");
document.form.HomePage.focus();
return false;
}
}-->
</script>
<html>
<head>
<title>管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css" type="text/css">
<style type="text/css">
<!--
.STYLE1 {color: #FFFFFF}
-->
</style>
</head>
<body LEFTMARGIN="0" TOPMARGIN="0" MARGINWIDTH="0" MARGINHEIGHT="0"><script>if(top==self)top.location="index.asp" </script>
<%
action=Request("action")
title=Request("title")
url=Request("url")
logo=Request("logo")
if Request("action")="del" then
if Request("id")="" then
response.write"<SCRIPT language=JavaScript>alert('没有该友情链接，或者该友情链接已经删除。！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
conn.execute "delete * from happywz_LINK where id=" & Request("id")

response.write"<SCRIPT language=JavaScript>alert('友情链接删除成功，返回！');"
response.write"location.href='admin_link.asp'</SCRIPT>"
response.end
end if
if Request("action")="editd" then
set r=server.createobject("adodb.recordset")
		r.open "select * from happywz_LINK where id="&Request("id"),conn,1,3
		if not r.eof then
			r("title")=title
			r("url")=url
			r("logo")=logo
			r.update
			r.close
set r=nothing
response.write"<SCRIPT language=JavaScript>alert('友情链接修改成功，返回！');"
response.write"location.href='admin_link.asp'</SCRIPT>"
response.end
end if
end if
if Request("action")="edit" then

if Request("id")="" then
response.write"<SCRIPT language=JavaScript>alert('没有该友情链接，或者该友情链接已经删除。！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
set r=server.createobject("adodb.recordset")
r.open "select * from happywz_LINK where id="&Request("id"),conn,1,3
if not r.eof then
%>
<br>
<form action="admin_link.asp" method="get">
<table width="96%"  border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#0099CF" style="border-collapse: collapse">
  <tr>
    <td height="30" colspan="2" bgcolor="#0099CF"><div align="center"><span class="STYLE1">修改友情链接</span></div></td>
  </tr>
    <tr bgcolor="#ffffff">
    <td width="25%">友情链接ID：</td>
    <td width="75%"><input name="id" id="id" value="<%=r("id")%>" disabled>
	<input name="id" value='<%=r("id")%>' type='hidden'>
	</td>	
  </tr>
  <tr bgcolor="#ffffff">
    <td width="25%">友情链接标题：</td>
    <td width="75%"><input name="title" id="title" value="<%=r("title")%>"></td>
  </tr>
  <tr bgcolor="#ffffff">
    <td width="25%">友情链接logo：</td>
    <td width="75%"><input name="logo" id="logo" value="<%=r("logo")%>" size="35"></td>
  </tr>
  <tr bgcolor="#ffffff">
    <td>友情链接url：</td>
    <td><input name="url" id="url" value="<%=r("url")%>" size="35"></td>
  </tr>
  <tr bgcolor="#ffffff">
    <td colspan="2"><div align="center">
        <input type="hidden" name="action" value="editd">
        <input name="submit" type="submit" style="FONT-SIZE: 9pt" value="确认修改">
    </div></td>
  </tr>
</form>
</table>
<%
end if
Response.End
end if
if action="add_wz" then
	if title="" or url="" then
		errmsg="<li>表单填写不完整！！"
call diserror()	
Response.End
	end if
	if Session("lastaddedwz")<>title then
		set rss=server.createobject("adodb.recordset")
		rss.open "select * from happywz_LINK",conn,1,3
		rss.addnew
		rss("title")=title
		rss("url")=url
		rss("logo")=logo
		rss.update
		rss.close
		set rss=nothing
		Session("lastaddedwz")=title
		errmsg="<li>友情链接信息已经提交成功！"
call disok()	
		Response.End
	end if
end if
%>
<div align="center"><br>
<p align="center"></p>
<table width="96%"  border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#0099CF" style="border-collapse: collapse">
<form name="form" method="post" action="" onSubmit="return CheckForm()">
  <tr>
    <td height="30" colspan="2" bgcolor="#0099CF"><div align="center"><span class="STYLE1">添加友情链接</span></div></td>
  </tr>
  <tr bgcolor="#ffffff">
    <td width="25%">友情链接标题：</td>
    <td width="75%"><input name="title" id="title"></td>
  </tr>
  <tr bgcolor="#ffffff">
    <td>友情链接logo：</td>
    <td><input name="logo" id="logo" value="http://" size="35"></td>
  </tr>
  <tr bgcolor="#ffffff">
    <td>友情链接url：</td>
    <td><input name="url" id="url" value="http://" size="35"></td>
  </tr>
  <tr bgcolor="#ffffff">
    <td colspan="2"><div align="center">
        <input type="hidden" name="action" value="add_wz">
        <input name="submit" type="submit" style="FONT-SIZE: 9pt" value="添加">
    </div></td>
  </tr>
</form>
</table>
<table width="96%" border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#0099CF" bgcolor="#ffffff" style="border-collapse: collapse">
  <tr align="center" bgcolor="#0099CF">
    <td height="25" colspan="5"><span class="STYLE1">友情链接列表</span></td>
 
  </tr>
  <tr align="center">
    <td width="6%">编号</td>
    <td width="19%">名称</td>
    <td width="13%" height="22">logo</td>
    <td width="39%">地址</td>
    <td width="23%">操作</td>
  </tr>
  <%
set r=server.createobject("adodb.recordset")
r.open "select * from happywz_LINK",conn,1,3
do while not r.eof 
  %> <tr align="center" >
    <td><%=r("id")%></td>
    <td><a href="<%=r("url")%>" target="_blank"><%=r("title")%></a></td>
    <td><a href="<%=r("url")%>" target="_blank"><img src="<%=r("logo")%>" width="88" height="31" border="0"></a></td>
    <td><a href="<%=r("url")%>" target="_blank"><%=r("url")%></a></td>
    <td><a href="admin_link.asp?id=<%=r("id")%>&action=edit">修改</a> <a href="admin_link.asp?id=<%=r("id")%>&action=del">删除</a></td>
  </tr>
  <%
r.movenext
loop
if r.eof and r.bof then
%>
  <tr>
    <td colspan="5"><div align="center">当前没有友情链接！</div></td>
  </tr>
</table>
<%end if%>
<br>
<br>
</BODY>
</HTML>
⌨️ 快捷键说明

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