📄 admin_links.asp
字号:
<!-- #include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="javaScript" src="../js/js.js"></script>
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<body>
<div id=topmomo><a href="admin_links.asp?info=add">添加链接</a>
| <a href="admin_links.asp?info=list&cndb=txt">
文字链接</a> |
<a href="admin_links.asp?info=list&cndb=logo">LOGO链接</a>
| <a href="admin_links.asp?info=list&cndb=all">
所有链接</a>
| <a href="admin_links.asp?info=classadd">
添加链接分类</a> | <a href="admin_links.asp?info=classaclass">
合并链接分类</a> | <a href="admin_links.asp?info=classlist">
链接分类列表</a>
</div><br>
<%
Select Case request.querystring("info")
Case "add"
Call add()
Case "list"
Call list()
Case "edit"
Call edit()
Case "classadd"
Call classadd()
Case "classlist"
Call classlist()
Case "classaclass"
Call classaclass()
end select
Sub classadd()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr>
<td class="thead" colspan="9" height="25" align="center"><b>
<font color="#FFFFFF">添加连接分类</font></b></td>
</tr>
<form action="admin_Daily.asp?info=link_class_add" method="post" name="form">
<tr>
<td class="alt3">
<div id=panx>
<table width="98%" border="0" cellspacing="1" cellpadding="1" align="center"class="panel">
<tr>
<td width="40%" height="45" align="right" class="alt2">
<b>分类名称：</b><br>
</td>
<td width="60%" class="alt1">
<input name="link_class" type="text" size="20" class="form" maxlength="14"></td>
</tr>
<tr>
<td width="40%" height="45" align="right" class="alt2">
<b>分类介绍：</b><br>
</td>
<td width="60%" class="alt1">
<textarea name="link_info" class="form" cols="60" rows="5"></textarea></td>
</tr>
</table>
</div>
<div style="MARGIN-TOP: 6px;MARGIN-bottom: 6px" align="center">
<input type="submit" class="button" value="提 交">
<input type="reset" class="button" value="重 置"></div>
</td>
</tr>
</form>
</table>
<%end sub
sub classlist%>
<script language="JavaScript">
<!--
function del(sortname) {
return(confirm('JsIceWeb（今世）提醒：\n\n真的要删除 [ ' + sortname + ' ] 吗？\n\n注意，仅此一次确认！\n'));
}
//-->
</script>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr>
<td class="thead" align="center" height="25" colspan="7"><b>查看所有连接分类</b></td>
</tr>
<tr height="28">
<td width="30%" align="left" class="tcat"><font color="#FFFFFF">
<b>分 类 名 称</b></font></td>
<td width="20%" align="center" class="tcat"><font color="#FFFFFF"><b>修 改
名 称</b></font></td>
<td width="20%" align="center" class="tcat"><font color="#FFFFFF"><b>操作</b>
</font></td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from [link_class]"
rs.open sql,conn,1,1
if not rs.eof and rs.bof then
%>
<tr align="center">
<td colspan="6" height="22" class="alt1"><span class="style1">还没有任何分类请添加！！</span></td>
</tr>
<%else
do while not rs.eof%>
<tr>
<td height="22" class="alt2">
<img src="images/ico.gif" width="10" height="10"> <%=rs("link_class")%></td>
<form action="admin_Daily.asp?info=link_class_edit&classid=<%=rs("id")%>" method="post" name="eform">
<td class="alt1">
<input name="link_class" type="text" size="30" class="form" value="<%=rs("link_class")%>">
<input class="button" type="submit" value="修 改" name="Submit" style="width: 45; height: 20"><br>
<textarea name="classinfo" class="form" cols="39" rows="5"><%=rs("link_info")%></textarea></td>
</form>
<td align="center" class="alt2">
<a href="admin_Daily.asp?info=link_class_del&id=<%=rs("id")%>" onclick="return(del('<%=rs("link_class")%>'))">
删除</a></a>
</td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if%>
</table>
<%end sub
Sub classaclass()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr>
<td class="thead" align="center" height="25" colspan="9"><b>合并分类</b></td>
</tr>
<tr height="22" align="center">
<td width="45%" class="tcat"><b>原 分 类</b></td>
<td width="45%" class="tcat"><b>目标分类</b></td>
</tr>
<form method="POST" action="admin_Daily.asp?info=aclass" name="formaclass">
<tr align="center" height="22">
<td width="45%" class="alt2" valign="center"><select name="oldclass" class="form" size="6">
<%set rs=server.createobject("adodb.recordset")
sql="select * from [link_class]"
rs.open sql,conn,1,1
if rs.eof then
else
do while not rs.eof
response.write "<option value="&rs("id")&"> "&rs("link_class")&"</option>"
rs.movenext
loop
end if
rs.close
set rs=nothing
%></select>
合并到 ==></td>
<td width="45%" class="alt1"><select name="newclass" class="form" size="6">
<%set rs=server.createobject("adodb.recordset")
sql="select * from [link_class]"
rs.open sql,conn,1,1
if rs.eof then
else
do while not rs.eof
response.write "<option value="&rs("id")&"> "&rs("link_class")&"</option>"
rs.movenext
loop
end if
rs.close
set rs=nothing
%></select>
</td>
</tr>
<tr height="22">
<td class="alt3" colspan="2" align="middle" valign="middle">
<input class="button" type="submit" value="合 并" name="Submit"></td>
</tr>
</form>
</table>
<%
set rs=nothing
set rs2=nothing
end sub
Sub list()
Const MaxPerPage=20
If Request("page")<>"" then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End if
dim totalput
dim currentpage
dim totalpages
cndb=request.querystring("cndb")
set rs=server.createobject("adodb.recordset")
if cndb="all" then
sql="select * from link order by id_link desc"
elseif cndb="logo" then
sql="select * from link WHERE class_link=1 order by id_link desc"
elseif cndb="txt" then
sql="select * from link WHERE class_link=2 order by id_link desc"
end if
rs.open sql,conn,1,1
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr>
<td class="thead" align="center" height="25" colspan="9"><b><%
if cndb="all" then
Response.Write "查看所有连接"
elseif cndb="logo" then
Response.Write "查看LOGO连接"
elseif cndb="txt" then
Response.Write "查看TXT连接"
end if
%></b></td>
</tr>
<tr align="center" height="22">
<td width="20%" class="tcat">连接类型</td>
<td width="20%" class="tcat">网站名称</td>
<td width="20%" class="tcat">网站LOGO</td>
<td width="20%" class="tcat">网站状态</td>
<td width="20%" class="tcat">网站操作</td>
</tr>
<%if rs.eof and rs.bof then%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -