📄 list.asp
字号:
<!-- #include file = "../../include/asphead.asp" -->
<!-- #include file = "../../include/function.asp" -->
<%CheckUser()%>
<link href="../../include/main.css" rel="stylesheet" type="text/css">
<script src="../../include/function.js" type="text/javascript"></script>
<script ID="clientEventHandlersJS" LANGUAGE="javascript">
<!--
function View(RowID) {
window.showModalDialog ("frame.asp?Target=view.asp?RowID=" + RowID,"","dialogwidth:360px;dialogheight:365px;Status:0;center:1;resizable=1;");
}
function window_onload() {
window.parent.RightHead.frmData.CurPage.value=CurPage.value;
window.parent.RightHead.PageNavigate.innerHTML=PageNavigate.value;
window.parent.RightHead.SetRows();
window.parent.RightHead.frmData.RecordCount.value=RecordCount.value;
if(RecordCount.value>0)
{
if(typeof(window.parent.RightHead.btnDel)!="undefined")
{
window.parent.RightHead.btnDel.disabled =false;
}
window.parent.RightHead.btnExport.disabled =false;
}
else
{
if(typeof(window.parent.RightHead.btnDel)!="undefined")
{
window.parent.RightHead.btnDel.disabled =true;
}
window.parent.RightHead.btnExport.disabled =true;
}
}
//-->
</script>
<%
dim WExcel
set WExcel=server.CreateObject("WExcel.System")
dim i
dim strWhere,strWhereDesc,strOrderBy,Success
dim CurPage,NoField,PageCount,RecordCount,CurFromRecord,CurToRecord,PageNavigate,RowIDs,CanDeleteRowIDs
dim LogCount,LogData
if instr(1,Request.ServerVariables("HTTP_REFERER"),"search.asp")>0 then
'来自于查询操作
strWhere=""
strWhereDesc=""
Success=WExcel.GetLogSQLWhere(cint(UserID),strWhere,strWhereDesc)
Response.Cookies("System")("LogWhere")=strWhere
strOrderBy=Request.Cookies("System")("LogOrderBy")
CurPage=1
WExcel.GetLogList cint(UserID),cstr(strWhere),cstr(strWhereDesc),cstr(strOrderBy),CurPage,NoField,PageCount,RecordCount,CurFromRecord,CurToRecord,PageNavigate,RowIDs,CanDeleteRowIDs,LogCount,LogData
Response.Cookies("System")("LogCurPage")=CurPage
Response.Cookies("System").Expires = CookieLife
elseif instr(1,Request.ServerVariables("HTTP_REFERER"),"listhead.asp")>0 then
'来自于排序、翻页操作
strWhereDesc=""
strWhere=Request.Cookies("System")("LogWhere")
strOrderBy=Request.Form("OrderBy")
CurPage=Request.Form("CurPage")
WExcel.GetLogList cint(UserID),cstr(strWhere),cstr(strWhereDesc),cstr(strOrderBy),CurPage,NoField,PageCount,RecordCount,CurFromRecord,CurToRecord,PageNavigate,RowIDs,CanDeleteRowIDs,LogCount,LogData
Response.Cookies("System")("LogOrderBy")=strOrderBy
Response.Cookies("System")("LogCurPage")=CurPage
Response.Cookies("System").Expires = CookieLife
end if
CheckErr
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" LANGUAGE="javascript" onload="return window_onload()">
<%if LogCount<=0 then%>
<table width=100%>
<TR height=230 valign="center">
<TD align=center>
没有符合查询条件的日志。
</TD>
</TR>
</table>
<%else%>
<table width=100% cellspacing=1 bgcolor=999999>
<%
for i=1 to LogCount
Response.Write LogData(i-1)
next
%>
</table>
<%end if%>
<input TYPE="hidden" NAME="RecordCount" value="<%=RecordCount%>">
<input TYPE="hidden" NAME="CurPage" value="<%=CurPage%>">
<input TYPE="hidden" NAME="NoField" value="<%=NoField%>">
<input TYPE="hidden" NAME="PageNavigate" value="<%=PageNavigate%>">
<input TYPE="hidden" NAME="RowIDs" value="<%=RowIDs%>">
<input TYPE="hidden" NAME="CanDeleteRowIDs" value="<%=CanDeleteRowIDs%>">
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -