📄 listhead.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 window_onload(){
try
{
parent.MainFrame.rows=RightHeadTable.clientHeight + ",*";
}
catch(e)
{
}
if(typeof(SelectFilter)!="undefined")
parent.RightData.navigate("list.asp?SelectFilterForSearch=" + SelectFilter.value);
else
parent.RightData.navigate("list.asp?SelectFilterForSearch=0");
}
function FilterSelect()
{
document.frmData.Search.value ="1";
frmData.SelectFilter.value=SelectFilter.value;
frmData.target ="RightData";
frmData.action="list.asp";
frmData.submit();
document.frmData.Search.value ="0"; //打上非查询标志，以便翻页、排序等处理
}
function window_onresize() {
try
{
parent.MainFrame.rows=RightHeadTable.clientHeight + ",*";
}
catch(e)
{
}
}
//-->
</script>
<%
dim WExcel
set WExcel=server.CreateObject("WExcel.Sheet")
dim SheetID,FilterID,FilterOption,SheetHead
SheetID=Request.Cookies("Temp")("PublishSheetID")
'确定当前过滤字段值
FilterID=Request.Cookies("Sheet")("FilterSelect" & SheetID)
if FilterID="" then
FilterID=0
end if
WExcel.GetPublishSheetHead cint(SheetID),cint(FilterID),FilterOption,SheetHead,Title
CheckErr
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onload="window_onload()" onresize="window_onresize()">
<table id="RightHeadTable" name="RightHeadTable" width="100%" border="0" cellPadding=0 cellSpacing=0>
<tr height=50>
<td colspan="3">
<FONT STYLE="font-family:黑体;FONT-SIZE: 15pt;color=#888888; LETTER-SPACING: 5px"><STRONG><%=Title%></STRONG></FONT>
</td>
</tr>
<tr height="20">
<td width="69%">
<p align="left" id="PageNavigate">
</p>
</td>
<td width="31%">
<p align="right">
<%if trim(FilterOption)<>"" then%>
<select name=SelectFilter style='width:113px' LANGUAGE='javascript' onchange='return FilterSelect()'>
<%=FilterOption%>
</select>
<%end if%>
</p>
</td>
</tr>
<tr>
<td colspan="3">
<%=SheetHead%>
</td>
<iframe id="SaveArea" name="SaveArea" style="visibility:hidden" width="0" height="0" frameborder="0" src="">
</iframe>
</tr>
<form METHOD="post" name="frmData">
<input TYPE="hidden" NAME="SheetID" value="<%=SheetID%>">
<input TYPE="hidden" NAME="OrderBy" value="<%=Request.Cookies("Sheet")("OrderBy" & CoID & "-" & SheetID)%>">
<input TYPE="hidden" NAME="CurPage">
<input TYPE="hidden" NAME="RowSelect">
<input TYPE="hidden" NAME="SelectFilter">
<input TYPE="hidden" NAME="Search" value="0">
</form>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -