📄 admin_tag.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 xsort where id="&request("id")
	conn.execute(sql)
	response.redirect "admin_tag.asp?pageno="&request("pageno")
	response.end
end if
if zt="edit" then
	id=request.querystring("id")
	xsort=Trim(request.form("xsort"))
	XSort=replace(xsort,"  ","")
	XSort=replace(xsort," ","")
	sql="update xsort set xsort='"&xsort&"' where id="&id
	conn.execute(sql)
	response.redirect "admin_tag.asp?pageno="&request("pageno")
	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 id,XSort,hits from xsort order by id desc"
		rs.open sql,conn,1,1
		
		if not rs.bof and not rs.eof then                        
			rs.pagesize=12                      
			rs.absolutepage=pageno                        
		
		for i=1 to rs.pagesize
		if rs.eof then exit for		
		%>
		<form method="POST" action="admin_tag.asp?zt=edit&id=<%=rs("id")%>&pageno=<%=pageno%>">
		<tr height =30>
			<td bgcolor="#EAEAEA">·<input type="text" name="XSort" size="27" value="<%=rs("XSort")%>">
			<input type="submit" value="修改" name="B1"> (<%=rs("hits")%>)<span style="font-size: 7pt"><font color="#FF0000">
			</font></span><a onClick="return confirm('确定要删除此条记录吗？');" href="admin_tag.asp?zt=del&id=<%=rs("ID")%>&pageno=<%=pageno%>">
			<font color="#575757">删除</font></a><font color="#575757"> 
			</font></td>
		</tr>
		</form>
		<%
		rs.movenext
		next
		%>
		<tr height =30>
			<td bgcolor="#EAEAEA">                                                                                                                                 
                        
          	<%                                                                                                     
	          tj=""                         
     	      page "admin_tag.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 + -