aa_log.asp

台讯企业全站管理系统V2006 供下载时经过了严格的测试

 <%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 产品名称：台讯企业全站管理系统（V2006简体中文版）
' 程序开发：HECHENn（QQ：34103037　Emial：[e-mail]）
' Copyright 2006 txcodes.com - All Rights Reserved. 
'***********************************************************************************

PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->

<%
Call Page_formBody()
Call Page_Spane(5)
Dim Error_Name,xError_Name,cError_Name
Select Case Action
Case ""
Call Page_AdminFlag(7)
Page_BootmName="管理登陆日志"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
Set Rs_Manage=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Log order by Log_Date desc"
Rs_Manage.open Sql,Conn,1,1
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center><TD WIDTH=6% HEIGHT=23 CLASS=Table6>ID</TD><TD WIDTH=12% CLASS=Table6>用户名/密码</TD><TD WIDTH=18% CLASS=Table6>来自地区</TD><TD WIDTH=12% CLASS=Table6>IP地址</TD><TD CLASS=Table6>说明</TD><TD WIDTH=17% CLASS=Table6>登陆时间</TD><TD WIDTH=11% CLASS=Table6>操作</TD></TR>"
Rs_Manage.PageSize = 25
totalrec=Rs_Manage.RecordCount 
iPageSize=Rs_Manage.PageSize
currentPage=request("page")
IF currentpage="" THEN
currentpage=1
Else
IF Not isChkInteger(currentPage) THEN
response.Redirect "javascript:history.go(-1);"
End IF
currentpage=clng(currentpage)
End IF
IF totalrec mod Cint(iPageSize)=0 THEN
n= totalrec \ Cint(iPageSize)
Else
n= totalrec \ Cint(iPageSize)+1
End IF
IF not (Rs_Manage.bof and Rs_Manage.eof) THEN
Rs_Manage.MoveFirst
IF currentpage > n THEN currentpage = n
IF currentpage<1 THEN currentpage=1
Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
While Not Rs_Manage.Eof and page_count<Cint(iPageSize)
page_count=page_count+1
Error_Name=split(Rs_Manage("Log_Result"),",")
IF Error_Name(0)=1 THEN xError_Name="前台未登陆 "
IF Error_Name(1)=1 THEN xError_Name=xError_Name & "用户名空 "
IF Error_Name(2)=1 THEN xError_Name=xError_Name & "密码空 "
IF Error_Name(3)=1 THEN xError_Name=xError_Name & "验证码错 "
IF Error_Name(4)=1 THEN xError_Name=xError_Name & "用户不匹配 "
IF Error_Name(5)=1 THEN xError_Name=xError_Name & "用户名错 "
IF Error_Name(6)=1 THEN xError_Name=xError_Name & "密码错"
IF xError_Name<>"" THEN
cError_Name="FF0000"
Else
cError_Name="006600"
xError_Name="正常登陆"
End IF
strIfa = strIfa & "<Form NAME=inbox method=post action=Aa_Log.asp?Action=Delall>"&_
                  "<TR CLASS=Table8 onmouseout=" & CHR(34) & "this.style.backgroundColor=''" & CHR(34) & " onmouseover=" & CHR(34) & "this.style.backgroundColor='#799ae1'" & CHR(34) & ">"&_
                  "<TD HEIGHT=25 ALIGN=center STYLE='color: #" & cError_Name & "'>" & Rs_Manage("Log_Id") & "</TD>"&_
                  "<TD STYLE='color: #" & cError_Name & "'>" & Rs_Manage("Log_Name") & "/" & Rs_Manage("Log_Pass") & "</TD>"&_
                  "<TD STYLE='color: #" & cError_Name & "'>" & Rs_Manage("Log_Ress") & "</TD>"&_
                  "<TD STYLE='color: #" & cError_Name & "'>" & Rs_Manage("Log_Ip") & "</TD>"&_
                  "<TD STYLE='color: #" & cError_Name & "'>" & xError_Name & "</TD>"&_
                  "<TD STYLE='color: #" & cError_Name & "'>" & Rs_Manage("Log_Date") & "</TD>"&_
                  "<TD ALIGN=center>"&_
                  "<A HREF=Aa_Log.asp?Action=Del&Id=" & Rs_Manage("Log_Id") & " onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'>删除</A> | "&_
                  "<INPUT TYPE=checkbox CLASS=radio_all NAME=Id VALUE=" & Rs_Manage("Log_Id") & ">"&_
				  "</TD>"&_
                  "</TR>"
xError_Name=""
Rs_Manage.MoveNext
Wend 
End IF
Rs_Manage.close
Set Rs_Manage=Nothing
strIfa = strIfa & "<TR>"&_
                  "<TD HEIGHT=30 colspan=7 ALIGN=center CLASS=Table9>"&_
                  "<INPUT TYPE=checkbox NAME=chkall CLASS=radio_all VALUE=on onclick=CheckAll(this.form)>"&_
                  " 选择全部　"&_
                  "<INPUT TYPE=submit NAME=Del CLASS=submit_all VALUE=' 删除 ' onClick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'> "&_
                  "</TD>"&_
                  "</TR>"&_
                  "</form>"&_
                  "<TR>"&_
                  "<TD HEIGHT=25 colspan=7 ALIGN=center CLASS=Table8>"
strIfb = "</TD></TR>"&_
         "</TABLE>"
Call Page_aTable(0,1)
Case "Delall"
IF request.form("Id")="" THEN
Errorst="请选择要删除的对象！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else	
    Conn.Execute "Delete From Tx_Log Where Log_Id in (" & request.form("Id") & ")"
		ToHistory=VisitorsForm
    saveok="删除成功！"
    Call Form_Saveok()
End IF
Case "Del"
    Conn.Execute "Delete From Tx_Log Where Log_Id=" & Id
	ToHistory=VisitorsForm
    saveok="删除成功！"
    Call Form_Saveok()
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>