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
 页面代码分析
 <!--#include file="conn.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 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原创交友网设计(九)相关范文