📄 logininfor.asp
字号:
<!--#INCLUDE FILE="sysinc.asp" -->
<html>
<head>
<script language="JavaScript">
function MM_openBrWindow(theURL,winName,features)
{ //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<LINK href="../style.css" rel=stylesheet>
<title>系统日志信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
</head>
<body text="#000000" bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%sqlstr="select * from 系统日志信息 order by 时间 desc"
my_rs.open sqlstr,my_Conn,1,1
if my_rs.eof and my_rs.bof then
response.write "<p>还 没 有 任 何 工 作 安 排</p>"
else
id=my_rs("日志编号")
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" height="315">
<tr>
<td height="26" background="../image/backhead1.jpg">
<table width="100%" border="0" cellpadding="0" cellspacing="1" height="100%">
<tr>
<td width="13%" height="17">
<div align="center">使用者名称</div>
</td>
<td width="26%" height="17">
<div align="center">时间</div>
</td>
<td width="55%" height="17">
<div align="center"> 所做事件</div>
</td>
<td width="6%" height="17">
<div align="center">删除</div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="279" background="../image/backhead2.jpg">
<table width="100%" border="0" cellpadding="0" cellspacing="1" align="center" height="25">
<%
cc=1
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
my_rs.PageSize=15
my_rs.AbsolutePage=pagecount
For iPage = 1 To my_rs.PageSize
If my_rs.EOF Then Exit For
if cc mod 2=1 then
Response.Write "<tr>"
else
Response.Write "<tr>"
end if
%>
<tr>
<td width="13%" height="22">
<div align="center"><%=my_rs("使用者名称")%></div>
</td>
<td width="26%" height="22">
<div align="center"><%=my_rs("时间")%></div>
</td>
<td width="55%" height="22">
<div align="center"><%=my_rs("所做事件")%></div>
</td>
<td width="6%" height="22">
<div align="center"><a href="#" onClick="MM_openBrWindow('chuli-login.asp?id=<%=id%>','','width=300,height=50')">删除</a></div>
</td>
</tr>
<%
Response.Write "</tr>"
cc=cc+1
my_rs.movenext
Next
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" height="49">
<tr>
<td height="20" colspan="3"> </td>
</tr>
<tr>
<td height="30">
<div align="right">当前是第<%=pagecount%>页
<%
Response.Write "每页15条记录"
response.write " "%>
有<%=int(my_rs.recordcount/15)+1%>页 转到 </div>
</td>
<td height="30">
<div align="bottom"> <form method=post action="logininfor.asp">
<input type="text" name="Page" class="buttonface" size="2">
页
<input type="submit" name="Submit" class="buttonface " value="go">
</form></div></td>
<td height="30">
<%
if my_rs.PageCount>1 Then
If pagecount<>1 Then
Response.Write "<A HREF=logininfor.asp?Page=1>首页</A>"
response.write " "
Response.Write "<A HREF=logininfor.asp?Page="&(pagecount-1)&">前页</A>"
response.write " "
End If
If pagecount<>my_rs.PageCount Then
Response.Write "<A HREF=logininfor.asp?Page="&(pagecount+1)&">后页</A>"
response.write " "
Response.Write "<A HREF=logininfor.asp?Page="&my_rs.PageCount&">尾页</A>"
End If
End If
end if
my_rs.close
set my_rs=nothing
my_Conn.close
set my_Conn=nothing
%>
<a href="javascript:window.close()">关闭窗口</a></td>
</tr>
</table>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -