📄 admin.asp
字号:
<%
if session("admin_pass")<>"ok" then
response.redirect "adminlogin.asp"
response.end
end if
px=request("px")
if px="" then px="j_date"
search_txt=request("search_txt")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("friend.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs_lar = Server.CreateObject("ADODB.Recordset")
sql="select user_id,netname,sex,netcall,britherday,ip,renqi,home,date from larchives"
if search_txt<>"" then
sql=sql & " where netname like '%" & search_txt & "%'"
sql=sql & " or sex like '%" & search_txt & "%'"
sql=sql & " or netcall like '%" & search_txt & "%'"
sql=sql & " or britherday like '%" & search_txt & "%'"
sql=sql & " or ip like '%" & search_txt & "%'"
sql=sql & " or renqi like '%" & search_txt & "%'"
sql=sql & " or date like '" & search_txt & "'"
sql=sql & " or home like '%" & search_txt & "%'"
end if
Select case px
case "s_netname"
sql=sql & " Order by time asc"
case "s_sex"
sql=sql & " Order by sex asc"
case "s_britherday"
sql=sql & " Order by britherday asc"
case "s_netcall"
sql=sql & " Order by netcall asc"
case "s_ip"
sql=sql & " Order by ip asc"
case "s_renqi"
sql=sql & " Order by renqi asc"
case "s_home"
sql=sql & " Order by home asc"
case "s_date"
sql=sql & " Order by date asc"
case "j_netname"
sql=sql & " Order by name desc"
case "j_sex"
sql=sql & " Order by sex desc"
case "j_britherday"
sql=sql & " Order by britherday desc"
case "j_netcall"
sql=sql & " Order by netcall desc"
case "j_ip"
sql=sql & " Order by ip desc"
case "j_renqi"
sql=sql & " Order by renqi desc"
case "j_home"
sql=sql & " Order by home desc"
case "j_date"
sql=sql & " Order by time desc"
End Select
rs_lar.open sql,conn,3,2
if rs_lar.eof and rs_lar.bof then str="此交友系统还没有一个网友!"
'分页设置
if str="" then
rs_lar.PageSize=8
pages=rs_lar.pagecount
records=rs_lar.recordcount
currentpage=request("currentpage")
if currentpage="" or currentpage<1 then currentpage=1
currentpage=cint(currentpage)
if currentpage>pages then currentpage=pages
rs_lar.absolutepage=currentpage
else
currentpage=1
records=0
pages=1
end if
%>
<html>
<head>
<style>
<!--
.x:link { color: white; text-decoration: none }
.x:visited { color: white; text-decoration: none }
.x:active { color: red; text-decoration: none }
.x:hover { color: red;text-decoration:nome}
tr { font-size: 10pt }
body { font-size: 10pt }
a:link { color: blue; text-decoration: none }
a:visited { color: blue; text-decoration: none }
a:active { color: red; text-decoration: none }
a:hover { color: red; text-decoration: none }
-->
</style>
<meta name="generator" content="Microsoft FrontPage 4.0">
</head>
<body>
<!------------------------------------------------------------------------------------------------------------------------------>
<!------------------------------------------------------------------------------------------------------------------------------>
<table border="0" width="750" cellspacing="0" cellpadding="3">
<tr>
<td bgcolor="#336699" style="border-bottom-style: solid" bordercolor="#336699" width="88" height="19"><a href="default.asp"><font color="white">交友首页</font></a></td>
<td style="border-bottom-style: solid" bordercolor="#336699" width="75" height="19" bgcolor="#000000"><b><a href="adminreg.asp" class="x"><font color="white">入会管理</font></a></b></td>
<td style="border-bottom-style: solid" bordercolor="#336699" width="75" height="19" bgcolor="#000000"><b><a href="admin.asp" class="x"><font color="white">档案管理</font></a></b></td>
<td style="border-bottom-style: solid" bordercolor="#336699" width="75" height="19" bgcolor="#000000"><b><a href="no.htm" class="x"><font color="white">相片管理</font></a></b></td>
<td style="border-bottom-style: solid" bordercolor="#336699" width="75" height="19" bgcolor="#000000"><b><a href="no.htm" class="x"><font color="white">留言管理</font></a></b></td>
<td style="border-bottom-style: solid" bordercolor="#336699" width="76" height="19" bgcolor="#000000"><b><a href="no.htm" class="x"><font color="white">启事管理</font></a></b></td>
<td style="border-bottom-style: solid" bordercolor="#336699" width="76" height="19" bgcolor="#000000"><a href="exitadmin.asp" class="x"><b><font color="white">退出管理</font></b></a></td>
<td style="border-bottom-style: solid" bordercolor="#336699" width="125" height="19" bgcolor="#000000"><font color="white"> </font></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -