show_report_sellbyclient.asp

来自「Activity——活动管理模块 Analyse——分析模块 Client—」· ASP 代码 · 共 77 行

ASP
77
字号
<%@ LANGUAGE="VBSCRIPT"%>
<!--#include file="../conn.asp"-->
<!--#include file="../isuser.asp"-->
<!--#include file="../pub_fun.asp"-->
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE>销售统计报表(按客户)</TITLE></HEAD>
<link rel="STYLESHEET" href="../css.css" type="text/css">
<script language="VBScript">
sub page_onclick(page)
	dim str
	str = "<input type=hidden name=movepage value='"& page &"'>"
	str = str & "<input type=hidden name=textsql value='"& window.frmMain.textsql.value &"'>"
	ifmList01.form1.innerHtml = str
	ifmList01.form1.submit()
end sub
</script>
<body >
<%
''获取传递过来的参数组成相应的查询语句
textsql=decrypt(request("sql"))

   sql="select * from sell where (sellCreatorID="&session("Session_User")&"or sellopenflag='1' )"&textsql
   sql=sql&" order by sellclientid,selldate "   
%>
<form method="POST" name="frmMain">
<TABLE border=0 cellPadding=0 cellSpacing=0 width="720">
	<TR >
		<TD height="20"  align="center">
<%

	set rs = server.createobject("adodb.recordset")
   rs.open sql,conn,3
   if not rs.eof then
     rs.pagesize=22
     pcount = rs.pagecount
     for i=1 to pcount 
%>
<a style='cursor:hand'  onclick='javascript:page_onclick("<%=i%>")'><%=i%></a>&nbsp;
<%
     next
%>	
	<input type=hidden name=textsql value="<%=encrypt(textsql)%>">
		<TD>
	</TR>

	<TR>
		<TD align="center">
			<iframe id="ifmList01" frameborder="0" height="610" width="715"  src="show_report_sellbyclient01.asp?textsql=<%=encrypt(textsql)%>" marginwidth="0" marginheight="0" framespacing="0"></iframe>
		</TD>
	</TR>
	<TR >
		<TD height="20" align="center">	
<%
     for i=1 to pcount
%>
<a style='cursor:hand'  onclick='javascript:page_onclick("<%=i%>")'><%=i%></a>&nbsp;
<%
     next
%>	
		<TD>
	</TR>
<%else%>
	<TR >
		<TD >	
	  没有相应纪录
		<TD>
	</TR>
<% end if%>	
</TABLE>
</form>
</BODY>
</HTML>


⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?