【www.gdgbn.com--报表/图形】

<%
pagenum=55"指定打印行数
%>



销售利润明细报表打印


<script language="javascript">
window.print()
</script>

<script language="VbScript">
dim hkey_root,hkey_path,hkey_key
hkey_root="HKEY_CURRENT_USER"
hkey_path="SoftwareMicrosoftInternet ExplorerPageSetup"
function pagesetup_default()
on error resume next
Set RegWsh = CreateObject("WScript.Shell")
hkey_key="header"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&b页&p/&P"
hkey_key="footer"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""
end function
</script>
<%
kdname1=trim(request("kdname1"))
kdname2=trim(request("kdname2"))
keyword1=trim(request("keyword1"))
keyword2=trim(request("keyword2"))
if keyword1<>"" then
today=keyword1
else
if kdname1="" then
today=year(date())&"-"&month(date())
else
today=kdname1&"至"&kdname2
end if
end if
%>


销售利润汇总报表

本文来源:http://www.gdgbn.com/asp/7558/