px=request("px")
if px="" then px="j_date"
search_txt=request("search_txt")
Set rs_lar = Server.CreateObject("ADODB.Recordset")
sql="select * 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 & "%'"
sql=sql & " or photo 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 lar_id asc"
case "s_article"
sql=sql & " Order by huoli asc"
case "j_article"
sql=sql & " Order by huoli desc"
case "s_piaoshu"
sql=sql & " Order by piaoshu asc"
case "j_piaoshu"
sql=sql & " Order by piaoshu desc"
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 lar_id desc"
case "j_photo"
sql=sql & " Order by photo 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=10
pages=rs_lar.pagecount
records=rs_lar.recordcount
currentpage=request("currentpage")
if currentpage="" or currentpage currentpage=cint(currentpage)
if currentpage>pages then currentpage=pages
rs_lar.absolutepage=currentpage
else
currentpage=1
records=0
pages=1
end if
%>
会员管理
以下是包含关键字的所有网友以下是所有网友的列表
第 页 已加入网友共找到网友 位 共 页
1 then%>
转到页码:[
]
网名↑↓
性别↑↓
来自↑↓
生日↑↓
呼机↑↓
IP↑↓
登记↑↓
人气↑↓
照片↑↓
文章↑↓
登陆
得票↑↓
删除
√
×
删除
1 then%>
上一页
下一页
1 then%>
首页
末页
关键字[高级搜索]
关键字为空列出所有网友
