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 "
