📄 loginlist.asp
字号:
<% Set hdobj = Server.CreateObject("HD.comOpen")'请确保此行在最前
conn = hdobj.WeekaaConn()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="pragma" content="no-cache">
<title>红笛软件</title>
<style type="text/css">
<!--
.tables {
background-image: url(../Image/bigbg.jpg);
background-repeat: no-repeat;
}
.style3 {font-size: 12px}
.style4 { color: #FFFFFF;
font-size: 14px;
}
body,td,th {
font-size: 12px;
}
.STYLE9 {
font-size: 36px;
font-family: "黑体";
font-weight: bold;
color: #FFFF00;
}
.STYLE10 {color: #FF0000}
.STYLE13 {
font-weight: bold;}
a:link {
text-decoration: none;
color: #000066;
}
a:visited {
text-decoration: none;
color: #000066;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.B A:link {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:visited {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:hover {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:active {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.STYLE12 {font-family: "黑体"; font-size: 16px;color: #ffffff;}
body {
background-color: #DEE7FF;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-image: url(../Image/bg.gif);
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
function delpay()
{
if(confirm("确定要删除此吗？"))
return true;
else
return false;
}
function chkall(input1,input2)
{
var objForm = document.forms[input1];
var objLen = objForm.length;
for (var iCount = 0; iCount < objLen; iCount++)
{
if (input2.checked == true)
{
if (objForm.elements[iCount].type == "checkbox")
{
objForm.elements[iCount].checked = true;
}
}
else
{
if (objForm.elements[iCount].type == "checkbox")
{
objForm.elements[iCount].checked = false;
}
}
}
}
</script>
</head>
<body onmouseover="self.status='红笛软件:服务网址[http://weekaa.com/red]';return true">
<table width="1003" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#3399fd">
<tr>
<td height="150" align="center" valign="bottom"><img src="../Image/bigbga.jpg" width="1003" height="150"></td>
</tr>
<tr>
<td height="28" align="center" valign="middle" background="../Image/bg01a.jpg"><span class="b"><a href="LoginList.asp">日志</a> <a href="SQlist.asp">授权</a> <a href="BF.asp">备份</a> <a href="Bak/HFa.asp">恢复</a> <a href="User_Edit.asp">管理密码</a> <a href="User_Edit.asp">老师密码</a> <a href="passstu.asp">学生密码</a> <a href="../Teacher/index.asp">教师管理</a></span></td>
</tr>
<tr>
<td height="400" align="center" valign="top" bgcolor="#3399FD">
<p> </p>
<%
if session("AdminUser")<>"admin" then
response.Redirect("ErrInfo.asp?Info=只有管理员帐号才能进行系统管理!")
end if
call killist
response.write "<form name='form1' method='post' action='?ac=del'>"
response.write "<table width='90%' border='0' align='center' cellspacing='0' bordercolor='#0033CC'>"
response.write "<tr> <td height='15' align='center' background='../Image/bg02.jpg' class='STYLE1'> </td></tr>"
response.write "<tr> <td height='40' align='center' class='STYLE12'>日 志 管 理</td></tr>"
response.write "<tr> <td height='28' align='center' background='../Image/bg01.jpg' class='STYLE1'> </td></tr>"
response.write "<tr><td><table width='100%' border='1' cellpadding='0' cellspacing='0' bordercolor='#E8EBEE'>"
response.write "<tr align='center' bgcolor='#EBECF1'>"
response.write "<td width='5%'>序号</td>"
response.write "<td width='10%'>用户</td>"
response.write "<td width='15%'>时间</td>"
response.write "<td width='15%'>位置</td>"
response.write "<td width='20%'>操作</td>"
response.write "<td width='15%'>IP</td>"
response.write "<td width='5%'><input type='submit' name='Submit2' value='删除'>"
response.write "<input type='checkbox' value='全部选取' onclick='chkall(" & chr(34) & "form1" & chr(34) & ",this)' name=chk> </td></tr>"
Function cacuIp(cnzzz_com_IP)
On Error Resume Next
Dim srIp,aIp,i
srIp=0
aIp = Split(cnzzz_com_IP,".")
If UBound(aIP)<>3 Then
cacuIP=0
Exit Function
End If
For ii=0 To 3
srIp=srIp+(CInt(aIP(ii))*(256^(3-ii)))
Next
cacuIp=srIp-1
If Err Then cacuIp=0
End Function
sub ipcx(cnzzz_com_IP)
dim iIp,SQLIP,rsCnt,sPlace
iIp=cacuIp(cnzzz_com_IP)
Set rsCnt=Server.Createobject("Adodb.RecordSet")
SQLIP = "SELECT * FROM [IP] WHERE a<=" & iIp & " AND b>=" & iIp
rsCnt.Open SQLIP,op,1,3
If rsCnt.Eof Then
sPlace=cnzzz_com_IP
Else
sPlace=rsCnt("c")&rsCnt("d")
End If
Set rsCnt=Nothing
Response.Write sPlace
end sub
Dim rs,sqltext,ipc
Dim a,b,c,bg,BgI,kil
Set rs=Server.Createobject("Adodb.RecordSet")
sqltext = "Select * From [LogInfo] order by ID desc"
rs.Open sqltext,conn,1,3
'=========================================================
Dim i, text, checkpage, page, MaxPerPage, CurrentPage
MaxPerPage = Request.Form("pages")
If MaxPerPage = "" Then
MaxPerPage = 30
End If
If MaxPerPage < 1 Or MaxPerPage > 1000 Then
MaxPerPage = 30
End If
MaxPerPage = MaxPerPage * 1
text = "0123456789"
rs.PageSize = MaxPerPage
GoPage = Request.Form("pagee")
For i = 1 To Len(GoPage)
checkpage = InStr(1, text, Mid(GoPage, i, 1))
If checkpage = 0 Then
Exit For
End If
Next
If checkpage <> 0 Then
If Not IsEmpty(GoPage) Then
CurrentPage = CInt(GoPage)
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > rs.PageCount Then CurrentPage = rs.PageCount
Else
CurrentPage = 1
End If
If Not rs.EOF Then
rs.AbsolutePage = CurrentPage
End If
Else
CurrentPage = 1
End If
RsSum = CStr(rs.RecordCount) '记录总条数
pageOn = CStr(CurrentPage) '当前第几页
pageSum = CStr(rs.PageCount) '总共几页
NextPage = pageOn + 1
pageSum=pageSum + 0
If NextPage > pageSum Then
NextPage = pageSum
End If
'==============================================================
i=0
BgI=1
If rs.Eof Then
Response.Write "<tr><td colspan='8'>没有该记录!</td></tr>"
Else
Do While Not rs.Eof
BgI=BgI*(-1)
if Bgi<0 then '背景色交替
bg="#ffffff"
else
bg="#EBECF1"
end if
ipc=rs("d")
i=i+1
kil="L"&i
Noi=MaxPerPage*(pageOn - 1) + i
rsa= rs("a")
response.write "<tr align='center' bgcolor='" & bg & "'>"
response.write "<td>" & Noi & "</td>"
response.write "<td height='25'>" & rsa & "</td>"
response.write "<td>" & rs("b") & "</td>"
response.write "<td align='left'>" & rs("e") & "</td>"
response.write "<td align='left'>" & rs("c") & "</td>"
response.write "<td align='left'>" & rs("d") & "</td>"
response.write "<td><input name='" & kil& "' type='checkbox' id='" & kil& "' value='" & rs("ID")& "'></td></tr>"
if i >= MaxPerpage then exit do
rs.MoveNext
Loop
End if
Response.Write "</form></table> </td></tr><tr><form name='form2' method='post' action=''><td height='28' align='center' background='../Image/bg01.jpg'>"
Response.Write "<span class='STYLE13'><input type='hidden' name='La' value='" & La & "'><input type='hidden' name='Ld' value='" & Ld & "'>"
Response.Write "<span class='STYLE13'><input type='hidden' name='Lb' value='" & Lb & "'><input type='hidden' name='Lc' value='" & Lc & "'>"
Response.Write "第" & pageOn & "/" & pageSum & "页 共" & RsSum & "条记录 每页"
Response.Write "<input name='pages' type='text' id='pages' value='" & MaxPerPage & "'"
Response.Write " size='2' style='background-color: #DEE7FF; border-color: #FFFFFF; border-style: solid; border-width: 0px 0px 1px 0px, font-family:Verdana,Arial; font-size: 10pt; color: #000000'>"
Response.Write "条记录 转到</span>"
Response.Write "<input name='pagee' type='text' id='pagee' value='" & NextPage & "' size='2' style='background-color: #DEE7FF; border-color: #FFFFFF;"
Response.Write " border-style: solid; border-width: 0px 0px 1px 0px, font-family:Verdana,Arial; font-size: 10pt; color: #000000'>"
Response.Write "<input name='Submit' type='submit' class='STYLE10' value='Go'></td></form></tr></table>"
Response.Write "<br><br>"
sub killist()
If Request.QueryString("ac") = "del" Then
Dim dd,deli,jj,kilo
for jj=1 to 30
kilo="L"&jj
deli=Request.form(kilo)
deli=deli*1
if deli<>"" then
Set ru=Server.Createobject("Adodb.RecordSet")
sqlu = "Select * From [LogInfo] where ID="&deli
ru.Open sqlu,conn,1,3
if not ru.eof then
ru.Delete
ru.Update
end if
end if
deli=""
next
End if
end sub
%>
</td>
</tr>
<tr>
<td height="25" background="../Image/bg01a.jpg" bgcolor="#3399FD"> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -