📄 admin_web.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 web_url where id="&request("id")
	conn.execute(sql)
	response.redirect "admin_web.asp?pageno="&request("pageno")
	response.end
end if
if zt="edit" then
	id=request.querystring("id")
	title=request.form("title")
	weburl=request.form("weburl")
	sql="update web_url set title='"&title&"',weburl="&weburl&" where id='"&id&"'"
	conn.execute(sql)
	response.redirect "admin_web.asp?pageno="&request("pageno")
	response.end
end if
if zt="add" then
	title=request.form("title")
	weburl=request.form("weburl")
	sql="INSERT into web_url (title,weburl) values ('"&title&"','"&weburl&"')"
	conn.execute(sql)
	response.redirect "admin_web.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;推荐网站管理<b><font color="#FF0000">（注：首页推荐只能为8个，否则将导致页面错位！！！）</font></b></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,title,weburl from web_url 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_web.asp?zt=edit&id=<%=rs("id")%>&pageno=<%=pageno%>">
		<tr height =30>
		  <td bgcolor="#EAEAEA">·<input type="text" name="title" value="<%=rs("title")%>">
			  <input type="text" name="weburl" value="<%=rs("weburl")%>" />
			<input type="submit" value="修改" name="B1">			<span style="font-size: 7pt"><font color="#FF0000">
			</font></span><a onClick="return confirm('确定要删除此条记录吗？');" href="admin_web.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"><form method="POST" action="admin_web.asp?zt=add">
		    <p>添加网址：<br /> 
		      网站名称：
		        <input type="text" name="title">
网址：
		      <input type="text" name="weburl">
	          <input type="submit" value="添加" name="B2">
	        </p>
		    </form></td>
	  </tr>
		<tr height =30>
			<td bgcolor="#EAEAEA">          
          	<%                                                                                                     
	          tj=""                         
     	      page "admin_web.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 + -