📄 adminsort.asp
字号:
<%on error resume next%>
<!--#include file = "public.asp"-->
<%
if session("admintype")<>"admin" then response.Redirect "index.asp"
SQL="Select * From sort"
Set rs=conn.Execute(SQL)
%>
<%
del=no
del=request("del")
if del="ok" then
Set rsc=Server.CreateObject("ADODB.RecordSet")
rsc.open "Select * From sort where id="&request("id"),Conn,2,3
rsc.delete
rsc.update
rsc.close
set rsc=nothing
response.Redirect("adminsort.asp")
end if
%>
<%
rename=""
rename=request("rename")
id=request("id")
if rename<>"" then
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "Select * From sort where id="&id,Conn,3,3
sourcename=rs("sort")
rs("sort")=rename
rs.update
rs.close
set rs=nothing
sql= "update friend set linktype='"&rename&"'"&" where linktype='"&sourcename&"'"
conn.execute(sql)
response.Redirect "adminsort.asp"
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>自助友情链接</title>
<link rel="stylesheet" href="css.css" type="text/css">
</head>
<body>
<!--#include file = "admintop.asp"-->
<p align="center"><a href="Joinsort.asp" class="9point">点此新添类别</a> <a href="adminindex.asp" class="9point">返回链接首页</a>
<br>
<br>
<div align="center">
<center>
<table width="50%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="" class="9point" >
<tr class="table003" bgcolor="#F4F9FD">
<td>
<p align="center"><B>类别名称</B></td>
<td width="487">
<div align="center"><strong>修改类别</strong></div></td>
<td width="487">
<div align="center"><B><font color="#222222">删除类别</font></B></div></td>
</tr>
<%
DO WHILE NOT rs.EOF
%>
<tr class="table001">
<td width="462" align="center"><div align="center">
<% =rs("sort") %>
</div></td>
<td align="center"><a href="javascript:rename('<%=rs("id")%>','<%=rs("sort")%>');">修改</a></td>
<td height="28" align="center">
<div align="center"><a href="adminsort.asp?del=ok&id=<%=rs("id")%>">删除</a></div>
</td>
</tr>
<%
rs.movenext
loop
%>
</table>
</center>
</div>
<!--#include file = "bottom.asp"-->
</body>
</html>
<script language=javascript>
function rename(id,Name)
{
str=prompt('将类别 '+Name+' 更名为:',Name);
if(!str)return;
url = "adminsort.asp?id="+id+"&rename="+str
window.location.href =url
}
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -