📄 admin_link.asp
字号:
<!--#include file="mdb.asp"-->
<%Admin="link"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/FORMAT.asp"-->
<HTML><HEAD><title>管理系统——链接管理</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="inc/admin.css" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey)) >
<%
'****************************************************
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='admin.asp';</script>")
response.end
end if
if request.querystring("action")="" then
sql="select * from flcat"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr class=Hxcmsss>
<td colspan="3">链接分类管理</font></td>
</tr>
<tr class=Hxcmsqs align="center">
<td width="10%">编号</td>
<td width="70%">分类名称</td>
<td width="20%">操作</td>
</tr>
<%do while not rs.eof%>
<tr class=Hxcmsds>
<td align="center"><%=rs("flcat_id")%> </td>
<td><%=rs("flcat_name")%><font color="#ff6600"><%if rs("isimage")=1 then response.write "[文本链接]" end if%></font></td>
<td align="center"><a href="admin_link.asp?id=<%=rs("flcat_id")%>&action=editflcat">编辑</a>
<a href="admin_link.asp?id=<%=rs("flcat_id")%>&action=delflcat">删除</a></td>
</tr>
<%rs.movenext
loop
if rs.bof and rs.eof then%>
<tr class=Hxcmsds align="center">
<td colspan="3">当前没有链接分类！</td>
</tr>
<%end if
rs.close
set rs=nothing
%>
</table>
<br>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<form name="form1" method="post" action="">
<tr class=Hxcmsss>
<td>新增链接分类</font></td>
</tr>
<tr class=Hxcmsds>
<td>分类名称-<input type="text" name="flcat_name" size="40" class="textarea">
<input type="checkbox" name="isimage" value="1" class="textarea">文本链接</td>
</tr>
<tr class=Hxcmsqs>
<td align="center"><input type="submit" name="Submit" value="确定新增" class="button">
<input type="reset" name="Reset" value="清空重填" class="button"></td>
</tr>
<input type="hidden" name="action" value="newflcat">
<input type="hidden" name="MM_insert" value="true"></form>
</table>
<%end if
'================www.ynsky.com.cn===============
if request.querystring("action")="editflcat" then
if request.querystring("id")="" then
Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
response.end
else
if not isinteger(request.querystring("id")) then
Response.Write("<script language=javascript>alert('非法的链接分类ID参数！');history.back(1);</script>")
response.end
end if
end if
sql="select * from flcat where flcat_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<form name="form1" method="post" action="">
<tr class=Hxcmsss>
<td>修改链接分类</font></td>
</tr>
<tr class=Hxcmsds>
<td>分类名称-<input type="text" name="flcat_name" size="40" value="<%=rs("flcat_name")%>">
<input type="checkbox" name="isimage" value="1" <%if rs("isimage")=1 then response.write "checked" end if%>>文本链接</td>
</tr>
<tr class=Hxcmsqs>
<td align="center">
<input type="submit" name="Submit" value="确定修改" class="button">
<input type="reset" name="Reset" value="清空重填" class="button">
</td>
</tr>
<input type="hidden" name="id" value="<%=rs("flcat_id")%>">
<input type="hidden" name="action" value="editflcat">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%
rs.close
set rs=nothing
end if
'================www.ynsky.com.cn===============
if request.querystring("action")="delflcat" then
if request.querystring("id")="" then
Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
response.end
else
if not isinteger(request.querystring("id")) then
Response.Write("<script language=javascript>alert('非法的链接分类ID参数！');history.back(1);</script>")
response.end
end if
end if
sql="select * from flcat where flcat_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<form name="form1" method="post" action="">
<tr class=Hxcmsss>
<td>删除链接分类</font></td>
</tr>
<tr class=Hxcmsds>
<td>分类名称- <%=rs("flcat_name")%>
</td>
</tr>
<tr class=Hxcmsqs>
<td align="center">
<input type="submit" name="Submit" value="确定删除" class="button">
</td>
</tr>
<input type="hidden" name="id" value="<%=rs("flcat_id")%>">
<input type="hidden" name="action" value="delflcat">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%end if
'================www.ynsky.com.cn===============
if request.querystring("action")="newfl" then%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<form name="form1" method="post" action="">
<tr class=Hxcmsss>
<td colspan="2">添加新链接</font></td>
</tr>
<tr class=Hxcmsds><td align="right" width="30%">选择类别 </td><td width="70%">
<select name="flcat_id" id="flcat_id">
<%sql="select * from flcat"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof%>
<option value="<%=rs("flcat_id")%>"><%=rs("flcat_name")%></option>
<%rs.movenext
loop
rs.close
set rs=nothing
%></select></td></tr>
<tr class=Hxcmsds><td align="right" width="30%">站点名称 </td><td width="70%"><input type="text" name="fl_name" size="40" class="textarea" value=""></td></tr>
<tr class=Hxcmsds><td align="right" width="30%">站点地址 </td><td width="70%">
<input type="text" name="fl_url" size="40" value=""></td></tr>
<tr class=Hxcmsds><td align="right" width="30%">Logo地址 </td><td width="70%">
<input type="text" name="fl_logo" size="40" value=""> *文本连接时请留空。
</td>
</tr>
<tr class=Hxcmsds>
<td align="right">上传LOGO： </td>
<td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=link"></iframe></td>
</tr>
<tr class=Hxcmsqs>
<td colspan="2" align="center">
<input type="submit" name="Submit" value="确定添加" class="button"></td>
</tr>
<input type="hidden" name="action" value="newfl">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%end if
'================www.ynsky.com.cn===============
if request.querystring("action")="editfl" then
if request.querystring("id")="" then
Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
response.end
else
if not isinteger(request.querystring("id")) then
Response.Write("<script language=javascript>alert('非法的分类ID参数！');history.back(1);</script>")
response.end
end if
end if
sql="select * from friendlink where fl_id="&cint(request.querystring("id"))
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<form name="form1" method="post" action="">
<tr class=Hxcmsss>
<td colspan="2">修改链接</font></td>
</tr>
<tr class=Hxcmsds><td align="right" width="30%">选择类别 </td><td width="70%">
<select name="flcat_id" id="flcat_id">
<%sql="select * from flcat"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%><option value="<%=rs("flcat_id")%>" <%if rs("flcat_id")=rs2("flcat_id") then response.write "selected" end if%>><%=rs("flcat_name")%></option><%rs.movenext
loop
rs.close
set rs=nothing
%></select></td></tr>
<tr class=Hxcmsds><td align="right" width="30%">站点名称 </td><td width="70%"><input type="text" name="fl_name" size="40" class="textarea" value="<%=rs2("fl_name")%>"></td></tr>
<tr class=Hxcmsds><td align="right" width="30%">站点地址 </td><td width="70%">
<input type="text" name="fl_url" size="40" class="textarea" value="<%=rs2("fl_url")%>"></td></tr>
<tr class=Hxcmsds><td align="right" width="30%">Logo地址 </td><td width="70%">
<input type="text" name="fl_logo" size="40" class="textarea" value="<%=rs2("fl_logo")%>">
</td>
</tr>
<tr class=Hxcmsds>
<td align="right">上传LOGO： </td>
<td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=link"></iframe></td>
</tr>
<tr class=Hxcmsqs>
<td colspan="2" align="center">
<input type="submit" name="Submit" value="确定修改" class="button">
<input type="button" value="返回" onClick="location.href='<%=request.serverVariables("Http_REFERER")%>'" class="button">
</td>
</tr>
<input type="hidden" name="id" value="<%=rs2("fl_id")%>">
<input type="hidden" name="flcatid" value="<%=rs2("flcat_id")%>">
<input type="hidden" name="action" value="editfl">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%
rs2.close
set rs2=nothing
end if
'================www.ynsky.com.cn===============
if request.querystring("action")="link" then%>
<SCRIPT LANGUAGE=javascript>
<!--
function SelectAll() {
for (var i=0;i<document.selform.selID.length;i++) {
var e=document.selform.selID[i];
e.checked=!e.checked;
}
}
//-->
</script>
<%dim j,selID
if not isempty(request("selID")) then
selID=request("selID")
if request("hx66")="删除" then
Conn.execute("delete * from friendlink where fl_id in ("&selID&")")
elseif request("hx66")="取消推荐" then
Conn.execute("update friendlink set istop=0 where fl_id in ("&selID&")")
elseif request("hx66")="设为推荐" then
Conn.execute("update friendlink set istop=1 where fl_id in ("&selID&")")
elseif request("hx66")="拉入黑名单" then
Conn.execute("update friendlink set lk=1 where fl_id in ("&selID&")")
elseif request("hx66")="取消黑名单" then
Conn.execute("update friendlink set lk=0 where fl_id in ("&selID&")")
elseif request("hx66")="通过审核" then
Conn.execute("update friendlink set passed=0 where fl_id in ("&selID&")")
elseif request("hx66")="取消通过" then
Conn.execute("update friendlink set passed=1 where fl_id in ("&selID&")")
else
response.write "无效参数！"
response.end
end if
response.Write"<script language=javascript>alert(' 恭喜您 ！ 操作成功 ！');this.location.href='admin_link.asp?action=link';</script>"
end if
Dim CurPage,Url_Add
Url_Add="?action=link&"
If Request.QueryString("Page")<>"" Then
Curpage=Request.QueryString("Page")
If IsInteger(Curpage)=False OR Curpage<0 Then Curpage=1
Else
Curpage=1
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -