📄 list.asp
字号:
<!-- #include file = "../../../include/asphead.asp" -->
<!-- #include file = "../../../include/function.asp" -->
<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:560px;dialogheight:255px;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.chkAll.status=false;
if(CurPage.value>0)
{
window.parent.RightHead.btnFresh.disabled =false;
if (Admin.value=="1")
window.parent.RightHead.btnDown.disabled =false;
else
window.parent.RightHead.btnDown.disabled =true;
}
window.parent.RightHead.SetRows();
}
//-->
</script>
<%
if Request.Cookies("Login")("UserID")="" then
dim LoginFrom
LoginFrom=Request.Cookies("Temp")("LoginFrom")
Response.Redirect(LoginFrom)
Response.End
end if
dim ErrNo,ErrDesc
set WExcelEnv=server.CreateObject("WExcel.UserAuth")
if not WExcelEnv.CheckDBConn(ErrNo,ErrDesc) then
GoExceptPage("/hcgis/error.asp?ErrNo=" & ErrNo)
else
dim WExcel
set WExcel=server.CreateObject("WExcel.System")
dim i
dim ListCount,ListData
dim strOrderBy
dim CurPage,NoField,PageCount,RecordCount,CurFromRecord,CurToRecord,PageNavigate,RowIDs,CanDeleteRowIDs
if instr(1,Request.ServerVariables("HTTP_REFERER"),"listhead.asp")>0 then
'来自于排序、翻页、刷新、强制下线操作
strWhere=Request.Cookies("System")("OnlineUserWhere")
strOrderBy=Request.Form("OrderBy")
CurPage=Request.Form("CurPage")
WExcel.GetOnlineUserList cint(UserID),cstr(strWhere),cstr(strOrderBy),CurPage,NoField,PageCount,RecordCount,CurFromRecord,CurToRecord,PageNavigate,RowIDs,CanDeleteRowIDs,ListCount,ListData
Response.Cookies("System")("OnlineUserOrderBy")=strOrderBy
Response.Cookies("System")("OnlineUserCurPage")=CurPage
Response.Cookies("System").Expires = CookieLife
else
'来自于其它操作
strOrderBy=Request.Cookies("System")("OnlineUserOrderBy")
CurPage=Request.Cookies("System")("OnlineUserCurPage")
WExcel.GetOnlineUserList cint(UserID),cstr(strWhere),cstr(strOrderBy),CurPage,NoField,PageCount,RecordCount,CurFromRecord,CurToRecord,PageNavigate,RowIDs,CanDeleteRowIDs,ListCount,ListData
end if
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()">
<table width=100% cellspacing=1 bgcolor=999999>
<%
for i=1 to ListCount
Response.Write ListData(i-1)
next
%>
</table>
<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="Admin" value="<%=Admin%>">
<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 + -