📄 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) {
if(window.showModalDialog ("frame.asp?Target=edit.asp?RowID=" + RowID,"","dialogwidth:520px;dialogheight:395px;Status:0;center:1;resizable=1;")==true)
{
window.navigate("list.asp");
}
}
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.btnDel.disabled =false;
}
else
{
window.parent.RightHead.btnDel.disabled =true;
}
window.parent.RightHead.SetRows();
}
//-->
</script>
<%
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=""
strOrderBy=Request.Form("OrderBy")
CurPage=Request.Form("CurPage")
WExcel.GetRelationList cint(UserID),cstr(strWhere),cstr(strOrderBy),CurPage,NoField,PageCount,RecordCount,CurFromRecord,CurToRecord,PageNavigate,RowIDs,CanDeleteRowIDs,ListCount,ListData
Response.Cookies("System")("RelationOrderBy")=strOrderBy
Response.Cookies("System")("RelationCurPage")=CurPage
Response.Cookies("System").Expires = CookieLife
else
'来自于录入、删除、修改操作
strWhere=""
strOrderBy=Request.Cookies("System")("RelationOrderBy")
CurPage=Request.Cookies("System")("RelationCurPage")
WExcel.GetRelationList cint(UserID),cstr(strWhere),cstr(strOrderBy),CurPage,NoField,PageCount,RecordCount,CurFromRecord,CurToRecord,PageNavigate,RowIDs,CanDeleteRowIDs,ListCount,ListData
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="RowIDs" value="<%=RowIDs%>">
<input TYPE="hidden" NAME="CanDeleteRowIDs" value="<%=CanDeleteRowIDs%>">
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -