📄 log_admin.asp

📁 物流管理系统
💻 ASP
字号:
<%@ LANGUAGE="VBScript"%>
<% response.buffer=true %>
<%const title="用户日志信息管理 "%>
<html>
<head>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title><%=title%></title>
<link rel=stylesheet type=text/css href=../data/forum.css>
<script language=javascript>
function confirmDel(id,page)
{
if ( confirm("你确定要删除吗？"))
 {
window.location.href = "log_admin.asp?action=delete&id=" + id +"&page=" +page
  }

}
</script>
</head>
<body topmargin="0" >
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<% 
'on error resume next
arra = split(session("username"),";")
UserCompanyid = arra(0)
flag = arra(1)
User = arra(2)
userno = arra(4)
if flag <> 1 then
	call closedatabase
	Response.End 
end if
Showtitle(title)
dim curaction, curid, bedit, founderr, errmsg
curaction = request("action")
curid = request("id")
curid = replace(curid,"'","")
'Response.Write curid
bedit = false
founderr = false
if curaction = "edit" then
	bedit = true
end if

dim sql
	
'删除记录
if curaction = "delete" then
	sql = "DELETE FROM log where log_id=" + cstr(curid)
	conn.execute sql
	if err.number <> 0 then
		call closedatabase
		response.write "数据库操作错误：" + err.description
		err.clear
		Response.End 
	else
		response.write "<center><p>记录已经删除。</p></center>"
	end if
end if

dim rs, rs1, sql1, strtype, strvalue

set rs8=server.CreateObject("ADODB.recordset")
sql = "SELECT * FROM log order by log_id desc"
rs8.open sql, conn, 3, 2
if err.number <> 0 then
				rs8.Close
				set rs8 = nothing
				call closedatabase
				if debug = 1 then
					response.write "无法保存,数据库操作出错:" + err.description
					Response.Write "错误程序：" & Err.Source & "<br>"
				else
					Response.Write "运行出现异常，请稍后再试"
				end if
				Response.End 
	else
		if rs8.eof and rs8.bof then
			response.write "<center>没有记录</center>"
		else
		
 %>

<table border='1' width=80% align='center' cellspacing='0' cellpadding='0' bordercolorlight='#000000'bordercolordark='#FFFFFF'bgcolor='#DADBFC'>
<tr>
 <td colspan=7 align=center bgcolor=red><b><font color=yellow>用户日志信息管理</font></b></td>
</tr>
<tr bgcolor=#0000A0>

<td align=center><font color=white>记录号</font></td>
<td align=center><font color=white>所属公司</font></td>
<td align=center><font color=white>用户名称</font></td>
<td align=center><font color=white>登入时间</font></td>
<td align=center><font color=white>登入IP</font></td>
<td align=center><font color=white>事件</font></td>
<td align=center><font color=white>操作</font></td></tr>
<% 
dim curpage, i
if request("page")="" then
  	curpage = 1
else
	curpage = clng(request("page"))
end if

rs8.pagesize = 5
rs8.absolutepage = curpage
for i = 1 to rs8.pagesize
%>
<tr>
<%
sql = "select company_name from company where company_id = "&rs8("log_companyid")&""
set rs_company = conn.execute(sql)
if not rs_company.eof then
	company_name = rs_company("company_name")
else
	company_name = "&nbsp;" 
end if
rs_company.close
log_id = trim(rs8("log_id"))
log_datetime = trim(rs8("log_datetime"))
log_ip = trim(rs8("log_ip"))
log_user = trim(rs8("log_user"))
log_thing = trim(rs8("log_thing"))

%>
<td align=center><%= rs8("log_id") %></td>
<td align=center><%= company_name %></td>
<td align=center><%= log_user %></td>
<td align=center><%= log_datetime %></td>
<td align=center><%= log_ip %></td>
<td align=center><%= log_thing %></td>
<td align=center> 
<a href='javascript:confirmDel(<%= clng(rs8("log_id")) %>,<%=curpage%>)'>删除</a></td></tr>
<% rs8.movenext
if rs8.eof then
	i = i + 1
	exit for
end if
next %>
</table>
<%		
		response.write "<p align=center>"
		response.write "第" + cstr(curpage) + "页/总" + cstr(rs8.pagecount) + "页 "
		response.write "本页" + cstr(i-1) + "条/总" + cstr(rs8.recordcount) + "条 "
		if curpage = 1 then 
			response.write "首页 前页 "
		else
			response.write "<a href='log_admin.asp?page=1'>首页</a> <a href='log_admin.asp?page=" + cstr(curpage-1) + "'>前页</a> "
		end if
		if  curpage = rs8.pagecount then
			response.write "后页 末页"
		else
			response.write "<a href='log_admin.asp?page=" + cstr(curpage+1) + "'>后页</a> <a href='log_admin.asp?page=" + cstr(rs8.pagecount) + "'>末页</a>"
		end if
	End If
	
end if
rs8.close
set rs8 = nothing
call closedatabase
 %>
<!--#include file=../data/copyright.asp-->
</body>
</FORM>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -