📄 khtj_yftj.asp
字号:
<title></title>
<link rel="stylesheet" href="other/customer.css">
<style>
.drag{position:relative;cursor:hand}
</style>
<script language="JavaScript">
var dragapproved=false
var eventsource,x,y
function move()
{
if (event.button==1&&dragapproved) //改变被拖动元素在页面上的位置
{
self.moveBy (event.clientX-x,event.clientY-y); //改变窗体位置
return false
}
}
function drags()
{
if (!document.all)
return
if (event.srcElement.className=="drag") //捕捉鼠标当前位置
{
dragapproved=true//确信当前鼠标是按下
x=event.clientX//鼠标当前位置
y=event.clientY//鼠标当前位置
document.onmousemove=move//调动move函数
}
}
document.onmousedown=drags //鼠标左键按下时,准备拖动
document.onmouseup=new Function("dragapproved=false")//鼠标左键放开时,拖动停止
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table border="0" cellpadding="0" cellspacing="0" width="619">
<tr>
<td><img src="images/spacer.gif" width="5" height="1" border="0"></td>
<td><img src="images/spacer.gif" width="609" height="1" border="0"></td>
<td><img src="images/spacer.gif" width="5" height="1" border="0"></td>
<td><img src="images/spacer.gif" width="1" height="1" border="0"></td>
</tr>
<tr>
<td colspan="3" background="images/cx_r1_c1.gif" class="title" valign="middle"> 『晨景软体』-客户统计-月份统计
<div id="Layer1" style="position:absolute; width:22px; height:21px; z-index:3; left: 598px; top: 6px"><a href="javascript:window.close()"><img src="images/xx.gif" width="13" height="13" border="0"></a></div>
</td>
<td><img src="images/spacer.gif" width="1" height="26" border="0"></td>
</tr>
<tr>
<td rowspan="2"><img name="cx_r2_c1" src="images/cx_r2_c1.gif" width="5" height="423" border="0"></td>
<td bgcolor="#cdd5e4">
<%
if request("nian")="" and request("yue")="" then
request_nian="2001"
request_yue=month(date)
else
request_nian=request("nian")
request_yue=request("yue")
end if
dim ri_id(31)
'打开数据库
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};pwd=webcool_2000;dbq=" & Server.MapPath("../database/customer.mdb")
for aaa=1 to 31
'建立rs对象
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT id FROM company where nian='"&request_nian&"' and yue='"&request_yue&"' and ri='"&cstr(aaa)&"'"
'发送一条SQL的指令
rs.Open sql, conn, 3
ri1=0
while not rs.eof
ri1=ri1+1
rs.movenext
wend
ri_id(aaa)=ri1
next
if ri_id(1)=0 and ri_id(2)=0 and ri_id(3)=0 and ri_id(4)=0 and ri_id(5)=0 and ri_id(6)=0 and ri_id(7)=0 and ri_id(8)=0 and ri_id(9)=0 and ri_id(10)=0 and ri_id(11)=0 and ri_id(12)=0 and ri_id(13)=0 and ri_id(14)=0 and ri_id(15)=0 and ri_id(16)=0 and ri_id(17)=0 and ri_id(18)=0 and ri_id(19)=0 and ri_id(20)=0 and ri_id(21)=0 and ri_id(22)=0 and ri_id(23)=0 and ri_id(24)=0 and ri_id(25)=0 and ri_id(26)=0 and ri_id(27)=0 and ri_id(28)=0 and ri_id(29)=0 and ri_id(30)=0 and ri_id(31)=0 then
total=2
else
total=ri_id(1) + ri_id(2) + ri_id(3) + ri_id(4) + ri_id(5) + ri_id(6) + ri_id(7) + ri_id(8) +ri_id(9) + ri_id(10) + ri_id(11)+ ri_id(12) + ri_id(13) + ri_id(14) + ri_id(15)+ ri_id(16)+ ri_id(17)+ ri_id(18)+ ri_id(19)+ ri_id(20)+ ri_id(21)+ ri_id(22)+ ri_id(23)+ ri_id(24)+ ri_id(25)+ ri_id(26)+ ri_id(27)+ ri_id(28)+ ri_id(29)+ ri_id(30)+ ri_id(31)
end if
%>
<table width="100%" cellspacing="1" height="415">
<tr>
<td height="37" colspan="2">
<table width="100%" bordercolor="#000000" border="1" cellspacing="0">
<form method=POST action="khtj_yftj.asp" >
<tr bgcolor="#657cb1" bordercolor="#657cb1">
<td class="big" valign="bottom" height="2" width="36%">
<div align="right"><span class="small">请选择要统计的年月</span></div>
</td>
<td class="small" valign="middle" height="2" width="28%">
<select name="nian">
<!-- 设置默认时间 -->
<%response.write"<option selected>"&year(date)&"</option>"%>
<%if request("nian")="1999" then%>
<option selected>1999</option>
<%else%>
<option>1999</option>
<%end if%>
<%if request("nian")="2000" then%>
<option selected>2000</option>
<%else%>
<option>2000</option>
<%end if%>
<%if request("nian")="2001" then%>
<option selected>2001</option>
<%else%>
<option>2001</option>
<%end if%>
<%if request("nian")="2002" then%>
<option selected>2002</option>
<%else%>
<option>2002</option>
<%end if%>
<%if request("nian")="2003" then%>
<option selected>2003</option>
<%else%>
<option>2003</option>
<%end if%>
<%if request("nian")="2004" then%>
<option selected>2004</option>
<%else%>
<option>2004</option>
<%end if%>
<%if request("nian")="2005" then%>
<option selected>2005</option>
<%else%>
<option>2005</option>
<%end if%>
<%if request("nian")="2006" then%>
<option selected>2006</option>
<%else%>
<option>2006</option>
<%end if%>
<%if request("nian")="2007" then%>
<option selected>2007</option>
<%else%>
<option>2007</option>
<%end if%>
<%if request("nian")="2008" then%>
<option selected>2008</option>
<%else%>
<option>2008</option>
<%end if%>
<%if request("nian")="2009" then%>
<option selected>2009</option>
<%else%>
<option>2009</option>
<%end if%>
<%if request("nian")="2010" then%>
<option selected>2010</option>
<%else%>
<option>2010</option>
<%end if%>
</select>
年
<select name="yue">
<%response.write"<option selected>"&month(date)&"</option>"%>
<%if request("yue")="1" then%>
<option selected>1</option>
<%else%>
<option>1</option>
<%end if%>
<%if request("yue")="2" then%>
<option selected>2</option>
<%else%>
<option>2</option>
<%end if%>
<%if request("yue")="3" then%>
<option selected>3</option>
<%else%>
<option>3</option>
<%end if%>
<%if request("yue")="4" then%>
<option selected>4</option>
<%else%>
<option>4</option>
<%end if%>
<%if request("yue")="5" then%>
<option selected>5</option>
<%else%>
<option>5</option>
<%end if%>
<%if request("yue")="6" then%>
<option selected>6</option>
<%else%>
<option>6</option>
<%end if%>
<%if request("yue")="7" then%>
<option selected>7</option>
<%else%>
<option>7</option>
<%end if%>
<%if request("yue")="8" then%>
<option selected>8</option>
<%else%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -