📄 admin_sort.asp

📁 这是一个非常好的留言版程序
💻 ASP
字号:
<!--#include file=conn.asp--> 
<!--#include file=char.asp--> 
<!--#include file=Admin_page.asp--> 

<%

if session("AdminName") = "" then
	Session.Abandon
    response.Redirect "Admin_Login.asp"
end if

if Session("AdminName")<>"admin" then
			response.write"<SCRIPT language=JavaScript>alert('对不起您无权访问本页！');"
			response.write"javascript:location.href='Admin_login.asp';</SCRIPT>"
			response.end
   end if

%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../index.css" rel="stylesheet" type="text/css">
<title>后台管理</title>
</head>

<body>
<br>
<%
zt=request("zt")
if zt="del" then
	sql="delete from sort where sortid='"&request("id")&"'"
	conn.execute(sql)
	response.redirect "admin_sort.asp?pageno="&request("pageno")
	response.end
end if
if zt="edit" then
	sortid=request.querystring("id")
	sortname=request.form("sortname")
	issy=request.form("issy")
	if issy="" then issy=0
	sql="update sort set sortname='"&sortname&"',issy="&issy&" where sortid='"&sortid&"'"
	conn.execute(sql)
	response.redirect "admin_sort.asp"
	response.end
end if
if zt="add" then
	sortid=request.form("sortid")
	sortname=request.form("sortname")
	sql="INSERT into sort (sortid,sortname) values ('"&sortid&"','"&sortname&"')"
	conn.execute(sql)
	response.redirect "admin_sort.asp"
	response.end
end if

%>
<br>
<div align="center">
	<table border="1" width="95%" cellspacing="0" cellpadding="3" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" id="table3">
		<tr height =30>
			<td bgcolor="#C0C0C0">&nbsp;栏目管理</td>
		</tr>
		<%
		pageno=int(request.querystring("pageno"))
		if pageno=0 then pageno=1  
		if pageno="" then pageno=1  

		set rs=server.createobject("adodb.recordset")
		sql="select sortid,SortName,issy from sort order by sortid asc"
		rs.open sql,conn,1,1
		
		if not rs.bof and not rs.eof then                        
			rs.pagesize=20                      
			rs.absolutepage=pageno                        
		
		for i=1 to rs.pagesize
		if rs.eof then exit for		
		%>
		<form method="POST" action="admin_sort.asp?zt=edit&id=<%=rs("sortid")%>">
		<tr height =30>
			<td bgcolor="#EAEAEA">
				<p>
				<input type="text" name="id" size="2" value="<%=rs("sortid")%>">
				:
				<input type="text" name="sortname" size="10" value="<%=rs("sortname")%>">
				该栏目是否出现在首页:<%if rs("issy")=true then%><input type="checkbox" name="issy" value="1" checked><%else%><input type="checkbox" name="issy" value="1"><%end if%>
				<input type="submit" value="修改" name="B1"><b><font color="#575757">
				</font><a onClick="return confirm('确定要删除此条记录吗？');" href="admin_sort.asp?zt=del&id=<%=rs("sortid")%>&pageno=<%=pageno%>"><font color="#575757">删除</font></a><font color="#575757"> 
			</font></p>
			
			</td>
		</tr>
		</form>
		<%
		rs.movenext
		next
		%>
		<form method="POST" action="admin_sort.asp?zt=add">
		<tr height =30>
			<td bgcolor="#EAEAEA">                                                                                                                                 
          	添加栏目：栏目编号：<input type="text" name="sortid" size="10">
			栏目名称 <input type="text" name="sortname" size="10">
			<input type="submit" value="添加" name="B2"></td>
		</tr>
		</form>
		<tr height =30>
			<td bgcolor="#EAEAEA">                                                                                                                                 
                        
          	<%                                                                                                     
	          tj=""                         
     	      page "admin_sort.asp",tj,pageno,rs.pagecount,rs.pagesize,rs.recordcount                        
            %></td>
		</tr>
		<%else%>
		<tr height =30>
			<td bgcolor="#EAEAEA">暂无内容</td>
		</tr>
		<%end if%>
	</table>
</div>
</body>

</html>
⌨️ 快捷键说明

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