📄 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="Namo WebEditor v4.0(Trial)">
</head>
<body>
<div align="center"><table border="0" cellpadding="0" cellspacing="0" width="775"
height="21" background="images/top_bg.gif">
<tr>
<td width="401"></td>
<td width="374"><p><img src="images/nav.gif" width="370" height="21"
border="0" usemap="#FPMap2"></td>
</tr>
</table></div>
<map name="FPMap2">
<area shape="rect" coords="336, 3, 361, 17" href="http://www.go88.net/wzsky/erso">
<area shape="rect" coords="296, 3, 321, 17" href="http://go88.net/wzsky/music">
<area shape="rect" coords="256, 4, 281, 18" href="http://go88.net/wzsky/bbs">
<area shape="rect" coords="213, 3, 238, 17" href="http://go88.net/wzsky/picknet">
<area shape="rect" coords="172, 3, 197, 17" href="http://go88.net/wzsky/club">
<area shape="rect" coords="131, 4, 156, 18" href="http://go88.net/wzsky/web">
<area shape="rect" coords="48, 4, 73, 18" href="http://go88.net/wzsky/game" target="_top">
<area shape="rect" coords="7, 4, 32, 18" href="http://www.wzsky.com" target="_top">
<area shape="rect" coords="90, 3, 115, 17" href="http://go88.net/wzsky/soft">
</map><!------------------------------------------------------------------------------------------------------------------------------>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -