📄 link.asp
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp"-->
<!--#include file="fyasp_mange_check.asp"-->
<%
'┌─ 风云ASP在线 ────────────────────────┐
'│ │
'│ 作者：赵振波. http://www.fyasp.com │
'│ │
'│ Q Q：185623333 │
'│ │
'│ Email：fy96@163.com │
'│ │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│ │
'│ │
'└─────────────────── http://www.fyasp.com ──┘
opendataconn
action=changechr(request("action"))
%>
<html>
<head>
<title>后台管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../ht.css" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<script language="javascript">
function CheckAll()
{
for (var i=0;i<document.form1.elements.length;i++)
{
document.form1.elements[i].checked=document.form1.chkall.checked
}
}
</script>
</head>
<body bgcolor="#d6dff7" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="../inc/top.asp" -->
<br>
<%if session("link")="1" then
Select case action
Case "del"
call del
Case "add"
call add
Case "saveadd"
call saveadd
Case "pic"
call pic
Case else
call list
End Select
else
Response.Write "权限不足!"
Response.end
end if
sub list%>
<form method="post" action="?action=del" name="form1">
<div align="center">
<center>
<font color="#FFCC99"> </font><br>
<div align="center">
<center>
<table border="0" width="93%" cellspacing="1" cellpadding="0">
<tr bgcolor="#AABFEC" align="center">
<td width="6%" height="28"> </td>
<td width="38%">公司名称</td>
<td width="38%">链接网址</td>
<td width="18%">添加时间</td>
</tr>
<%
dim curpage
if request("curpage")="" then
curpage=1
else
curpage=request("curpage")
end if
const numperpage=15
opendataconn
set rs=server.createobject("adodb.recordset")
sql="select * from link order by dateandtime desc "
rs.open sql,conn,1,1
if rs.eof then
response.write "<table><tr><td><br></br><center>现在还没有记录！</center><br></br></td></tr></table>"
response.end
end if
if not rs.eof then
rs.pagesize=numperpage
dim totalpages
totalpages=rs.pagecount
rs.absolutepage=curpage
end if
dim count
count=0
do while not rs.eof and count<numperpage
%>
<tr bgcolor="#fcfcfc" align="center">
<td width="6%" height="28"> <input name="linkid" type="checkbox" id="linkid" value="<%=trim(rs("id"))%>"></td>
<td width="38%"><%=left(rs("company"),25)%> </td>
<td width="38%"><%=rs("link")%> </td>
<td width="18%"><%=year(rs("dateandtime"))%>-<%=month(rs("dateandtime"))%>-<%=day(rs("dateandtime"))%> </td>
</tr>
<%
rs.movenext
count=count+1
loop
rs.close
set rs=nothing
%>
<tr bgcolor="#DEF0FA">
<td width="100%" colspan="8"> <input type="checkbox" name="chkall" value="on" onClick="CheckAll()" class="mul">
选取以上全部记录
<input type="submit" value="删除" name="B2"></td>
</tr>
<tr>
<td colspan="4" align="center" height="50">
<div align="center">
<% if cint(curpage)<>1 then %>
<a href="link.asp?curpage=1">首页 </a>
<% else %>
首页
<% end if %>
<% if cint(curpage)>1 then %>
<a href="link.asp?curpage=<%=curpage-1%>">上一页 </a>
<% else %>
上一页
<% end if %>
<% if cint(curpage)<>cint(totalpages) then %>
<a href="link.asp?curpage=<%=curpage+1%>"> 下一页
<% else %>
下一页
<% end if %>
<% if cint(curpage)<>cint(totalpages) then %>
</a><a href="link.asp?curpage=<%=totalpages%>"> 末页
<% else %>
末页
<% end if %>
</a> 第<font color="#FFCC00"><%=curpage%></font>页/共<%=totalpages%>页 </div></td>
</tr>
</table>
</center>
</div>
</center>
</div>
</form>
<%end sub
sub add
%><form action="?action=saveadd" method="post" name="form3">
<div align="center">
<center>
添加友情链接<br>
<br>
<table border="0" width="93%" cellspacing="1" cellpadding="0" class="black">
<tr>
<td width="100%" valign="top">
<div align="center">
<table width="77%" height="108" border="0" cellpadding="0" cellspacing="1" bgcolor="#DEF0FA">
<tr>
<td width="100%" height="29" class="black">
公司名称：
<input name="company" type="text" id="company" size="35" maxlength=99>
</td>
</tr>
<tr>
<td width="100%" height="25" class="black">
链接网址：
<input name="link" type="text" id="link" size="35" maxlength=99>
</td>
</tr>
<tr>
<td width="100%" valign="middle" height="50" class="black">
如果没有网址，请用#代替。
<div align="center">
<input type="submit" value=" 添加 " name="B1" onclick="javascript:return saveexit();">
<script language="JavaScript">
function saveexit()
{
if (chk()==0)
{
return false;
};
return true;
}
function chk()
{
if (document.form3.company.value.length==0)
{
alert("请填写公司名称。");
document.form3.company.focus();
return 0;
};
if (document.form3.link.value.length==0)
{
alert("请填写链接网址。");
document.form3.link.focus();
return 0;
};
return 1;
}
</script>
</div></td>
</tr>
</table></div>
</td>
</tr>
</table>
</center>
</div>
</form>
<%
end sub
sub pic
%><div align="center">
<table border="0" width="80%" id="table1" cellspacing="0" cellpadding="0" bgcolor="#CAD6F4">
<tr>
<td> </td>
</tr>
<tr>
<td align="center">图片友情链接请到<a href="ad_default.asp"><font color="#FF0000">广告管理</font></a>页面,管理图片友情链接一项</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</div><%
end sub
sub del
id=trim(request("linkid"))
ids=split(id,",")
for i=0 to ubound(ids)
tt=ids(i)
conn.execute "delete from link where id="&tt&""
next
response.redirect "link.asp"
end sub
sub saveadd
company=changechr(request("company"))
company=replace(company,"'","''")
link=changechr(request("link"))
link=replace(link,"'","''")
sql="insert into link(company,link) values('"&company&"','"&link&"')"
conn.execute sql
response.redirect"link.asp"
end sub
conn.close
set conn=nothing%>
<!--#include file="end.asp" -->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -