ASP原创交友网设计(九)

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

ASP原创交友网设计(九) ite "alert('账号或密码错误！');"
    response.write "history.go(-1);"
    response.write "</script>"
    response.end
end if
rs_admin.close
session("admin_pass")="ok"
response.redirect "admin.asp"
%>
     管理员管理用户页admin.asp
     涉及数据库
     Larchives
页面代码分析

<%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 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 "

首页上一页 6 7 8 9 10 11 下一页尾页 9/11/11

ASP原创交友网设计(九)由毕业论文网（www.huoyuandh.com）会员上传。