📄 xzkhtj.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>商品销售查询</title><link href="../cread.css" rel="stylesheet" type="text/css">
<%xsbm=request("xsbm")
dyear=request("dyear")
dmonth=request("dmonth")
dday=request("dday")
eyear=request("eyear")
emonth=request("emonth")
eday=request("eday")
if dyear<>"" then
ddate=dyear&"-"&dmonth&"-"&dday
edate=eyear&"-"&emonth&"-"&eday
else
ddate=""
edate=""
end if
bz=request("bz")
'response.write bz
if request("currentpage")<>"" then
currentpage=cint(request.querystring("currentpage"))
else
currentpage=1
end if
%>
</head>
<script language="vbscript">
sub win()
dyear=document.myform.dyear.value
dmonth=document.myform.dmonth.value
dday=document.myform.dday.value
eyear=document.myform.eyear.value
emonth=document.myform.emonth.value
eday=document.myform.eday.value
xsbm=document.myform.xsbm.value
window.location="xzkhtj.asp?currentpage="+document.myform.page1.value+"&dyear="+dyear+"&dmonth="+dmonth+"&dday="+dday+"&eyear="+eyear+"&emonth="+emonth+"&eday="+eday+"&bz="+document.myform.bz.value+"&xsbm="+xsbm
end sub
sub win1()
dyear=document.myform.dyear.value
dmonth=document.myform.dmonth.value
dday=document.myform.dday.value
eyear=document.myform.eyear.value
emonth=document.myform.emonth.value
eday=document.myform.eday.value
xsbm=document.myform.xsbm.value
window.location="xzkhtj.asp?currentpage="+document.myform.page1.value+"&dyear="+dyear+"&dmonth="+dmonth+"&dday="+dday+"&eyear="+eyear+"&emonth="+emonth+"&eday="+eday+"&xsbm="+xsbm
end sub
</script>
<body bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif" width="34" height="15">
</font><font size="2">新增客户数统计</font></b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<form method="post" action="xzkhtj.asp" name=myform>
<table border="1" cellspacing="0" width="100%" height="45">
<tr>
<td width="6%" align="right" height="2" bgcolor="#F1E8DA" bordercolorlight="#F1E8DA" bordercolor="#F1E8DA"><font size="2">部门</font></td>
<td width="1%" height="2" bgcolor="#F1E8DA" bordercolorlight="#F1E8DA" bordercolor="#F1E8DA">
<select size="1" name="xsbm" >
<option selected value="">全部</option>
<% sql1="select * from a_departinfo where delflag='0'"
set rs1 = pubconn.Execute (sql1)
if xsbm<>"" then
do while not rs1.eof
if rs1("departcode")=xsbm then
%>
<option selected value="<%=trim(rs1("departcode"))%>" ><%=trim(rs1("name"))%></option>
<%end if
rs1.movenext
loop
rs1.movefirst
end if
do while not rs1.eof
%>
<option value="<%=trim(rs1("departcode"))%>"><%=trim(rs1("name"))%></option>
<%
rs1.movenext
loop %>
</select> </td>
<td width="8%" height="2" bgcolor="#F1E8DA" bordercolorlight="#F1E8DA" bordercolor="#F1E8DA">
时间段 </td>
<td width="33%" height="2" bgcolor="#F1E8DA" bordercolorlight="#F1E8DA" colspan="2" bordercolor="#F1E8DA">
<%if dyear<>"" then%>
<input type=text name=dyear value=<%=dyear%> class="botton" size="4">
<%else%>
<input type=text name=dyear value=<%=year(date())%> class="botton" size="4">
<%end if%>年<select name=dmonth >
<%if dmonth<>"" then %>
<option value=<% =dmonth%> selected> <% =dmonth %> </option>
<%end if %>
<% for i=1 to 12
if i<=9 then
i="0"&i
end if%>
<option value=<% =i%>> <% =i %> </option>
<%next%>
</select>月<select name=dday >
<%if dday<>"" then %>
<option value=<% =dday%> selected> <% =dday %> </option>
<%end if%>
<% for i=1 to 31
if i<=9 then
i="0"&i
end if%>
<option value=<% =i %>> <% =i%> </option>
<%next%>
</select>日至<%if eyear<>"" then %>
<input type=text name=eyear value=<%=eyear%> class="botton" size="4">
<%else%>
<input type=text name=eyear value=<%=year(date())%> class="botton" size="4">
<%end if%>年<select name=emonth ><%if emonth<>"" then
emonth=emonth
else
emonth=month(date())
if len(emonth)=1 then
emonth="0"&emonth
end if
end if%>
<option value=<% =emonth%> selected> <% =emonth %> </option>
<% for i=1 to 12
if i<=9 then
i="0"&i
end if%>
<option value=<% =i%>> <% =i %> </option>
<%next%>
</select>月<select name=eday >
<%if eday<>"" then
eday=eday
else
eday=day(date())
if len(eday)=1 then
eday="0"&eday
end if
end if%>
<option value=<% =eday%> selected> <% =eday %> </option>
<% for i=1 to 31
if i<=9 then
i="0"&i
end if%>
<option value=<% =i %>> <% =i%> </option>
<%next%>
</select>日 </td>
</tr>
<tr>
<td width="15%" align="right" height="2" bgcolor="#F1E8DA" bordercolorlight="#F1E8DA" colspan="3" bordercolor="#F1E8DA"> </td>
<td width="21%" height="2" bgcolor="#F1E8DA" bordercolorlight="#F1E8DA" bordercolor="#F1E8DA">
</td>
<td width="12%" height="2" bgcolor="#F1E8DA" bordercolorlight="#F1E8DA" bordercolor="#F1E8DA">
<input type="submit" value="查询" style="background-color: #D1D1D1; border-style: solid; border-width: 1">
</td>
</tr>
</table>
<br>
<input type=hidden name=bz value="1">
<%
set rs=server.createobject("adodb.recordset")
rs.CursorLocation=3
rs.CursorType = adOpenStatic
if bz="1" then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -