📄 admin.asp
字号:
<!--#include file="conn1.asp"-->
<!--#include file="image/md5.asp"-->
<%
if request.QueryString("action")="save" then
dim admin,password
admin=replace(trim(request("admin")),"'","")
password=replace(trim(request("password")),"'","")
if admin="" or password="" then
response.write "<script language=javascript>alert('您的管理ID或密码有误！');window.location.href='admin.asp';</script>"
response.end
end if
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [admin] where username='"&admin&"' and password='"&password&"' " ,conn,1,3
if not(rs.bof and rs.eof) then
if password=rs("password") then
session("flag")=int(rs("flag"))
session.Timeout=20
rs.Update
rs.Close
set rs=nothing
response.Redirect "Admin.asp"
else
response.write "<script language=javascript> alert('对不起，登陆失败！你的帐号或者密码有误!1');window.location.href='admin.asp';</script>"
end if
else
response.write "<script language=javascript> alert('对不起，登陆失败！你的帐号或者密码有误2');window.location.href='admin.asp';</script>"
end if
end if
if request.QueryString("action")="del" then
conn.execute "delete from book where id in ("&request("selectdel")&")"
response.Redirect "admin.asp"
end if
if request.QueryString("action")="out" then
session("flag")=""
response.Write "<script language=javascript>alert('退出成功！');window.location.href='lyb.asp';</script>"
end if
%>
<html><head><title>杰拍网-留言板</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="image/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
#Layer1 {
position:absolute;
width:200px;
height:115px;
z-index:1;
left: 666px;
top: 275px;
}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" style="filter:progid:DXImageTransform.Microsoft.Gradient(startColorStr='#AEE7B2', endColorStr='#FFFFFF', gradientType='0')">
<table width="100%" border="0" cellspacing="0">
<tr>
<td height="287" align="center" valign="top"><table width="100%" border="0">
<tr>
<td> </td>
</tr>
<tr>
<td align="center"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="760" height="90">
<param name="movie" value="image/menu.swf" />
<param name="quality" value="high" />
<param name="wmode" value="transparent" />
<embed src="image/menu.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="760" height="90"></embed>
</object></td>
</tr>
<tr>
<td align="center">
<%if session("flag")="" then%>
<form name="admininfo" method="post" action="admin.asp?action=save">
<table width="500" border="0">
<tr>
<td width="150" align="right">管理帐号:</td>
<td width="340">
<input name="admin" type="text" size="15"></td>
</tr>
<tr>
<td align="right">管理密码:</td>
<td> <input name="password" type="password" size="15"></td>
</tr>
<tr>
<td> </td>
<td>
<input class="go-wenbenkuang" type="submit" name="Submit" value="确认登陆" >
<input class="go-wenbenkuang" type=reset name="Clear" value="重新填写"></td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
</table>
</form>
<%else%>
<DIV id=divMenu
style="Z-INDEX: 200; RIGHT: 0px; LEFT: 815px; POSITION: absolute; TOP: 110px">
<form name="admin" method="post" action="admin.asp?action=out">
<TABLE cellSpacing=0 cellPadding=0>
<TR><TD>
<input class="go-wenbenkuang" type="submit" name="Submit" value="退出登陆" >
</TD></TR></TABLE>
</form>
</DIV>
<%if session("flag")<>"" then%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="100" valign="top"><%'开始分页
Const MaxPerPage=20
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from book order by adddate desc",conn,1,1
if err.number<>0 then
response.write "数据库中无数据"
end if
if rs.eof And rs.bof then
Response.Write "<p align='center' class='contents'> 数据库中无数据！</p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"admin.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"admin.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"admin.asp"
end if
end if
end if
sub showContent
dim i
i=0
%>
<table width="100%" align="center" cellpadding="2" cellspacing="1" border="0" class="border">
<form name="form1" method="post" action="admin.asp?action=del">
<tr>
<td colspan="5" align="center" class="topbg" height="25"><b>留言信息管理</font></b></td>
</tr>
<tr class="tdbg">
<td width="10%" align="center"><b>留言</b><strong>人</strong></td>
<td width="14%" align="center"><strong>联系QQ</strong></td>
<td width="11%" align="center"><strong>联系信箱</strong></td>
<td width="58%" align="center"><strong>留言内容<留言时间:<%=rs("adddate")%>></strong></td>
<td width="7%" align="center"><strong>选 择</strong></td>
</tr>
<%do while not rs.eof%>
<tr>
<td align="center" class="tdbg" style="PADDING-LEFT: 6px"><%=trim(rs("name"))%></td>
<td class="tdbg" align="center"><%=rs("qq")%></td>
<td align="center" class="tdbg"><%=rs("mail")%></td>
<td align="center" class="tdbg"><%=trim(rs("content"))%></td>
<td class="tdbg" align="center"><input name="selectdel" type="checkbox" id="selectdel" value=<%=rs("id")%>> </td>
</tr>
<%i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing%>
<tr>
<td height="30" colspan="5" class="tdbg" align="center"><input type="submit" name="Submit2" value="删除所选留言信息">
全选
<input type="checkbox" name="checkbox" value="Check All" onClick="mm()"> </td>
</tr>
</form>
</table>
<%
End Sub
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If
Response.Write "<form method=Post action="&filename&">"
Response.Write "<p align='center' class='contents'> "
If CurrentPage<2 Then
Response.Write "<font class='contents'>首页 上一页</font> "
Else
Response.Write "<a href="&filename&"?page=1 class='contents'>首页</a> "
Response.Write "<a href="&filename&"?page="&CurrentPage-1&" class='contents'>上一页</a> "
End If
If n-currentpage<1 Then
Response.Write "<font class='contents'>下一页 尾页</font>"
Else
Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&" class='contents'>"
Response.Write "下一页</a> <a href="&filename&"?page="&n&" class='contents'>尾页</a>"
End If
Response.Write "<font class='contents'> 页次：</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> "
Response.Write "<font class='contents'> 共有"&totalnumber&"条信息 "
Response.Write "<font class='contents'>转到：</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="¤tpage&">"
Response.Write " <input type='submit' class='contents' value='GO' name='cndok'></form>"
End Function
%>
</td>
</tr>
</table>
<%end if%>
<%end if%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -