form.htm

来自「全方面的OA管理程序代码」· HTM 代码 · 共 52 行

<%
'pyear=year(date())
'pmonth=month(date())
if intThisYear="" then intThisYear=year(date())
if intThisMonth="" then intThisMonth=month(date())
pyear=intThisYear
pmonth=intThisMonth

function checknumber(number1,number2)
if number1=number2 then
response.write " selected"
end if
end function%>
<table border=0 width="100%" cellspacing=0">
<tr>
<td>
<SELECT NAME=MONTH onchange="document.calendar.submit()">
<OPTION VALUE=1 <%checknumber pmonth,1%>>1月
<OPTION VALUE=2 <%checknumber pmonth,2%>>2月
<OPTION VALUE=3 <%checknumber pmonth,3%>>3月
<OPTION VALUE=4 <%checknumber pmonth,4%>>4月
<OPTION VALUE=5 <%checknumber pmonth,5%>>5月
<OPTION VALUE=6 <%checknumber pmonth,6%>>6月
<OPTION VALUE=7 <%checknumber pmonth,7%>>7月
<OPTION VALUE=8 <%checknumber pmonth,8%>>8月
<OPTION VALUE=9 <%checknumber pmonth,9%>>9月
<OPTION VALUE=10 <%checknumber pmonth,10%>>10月
<OPTION VALUE=11 <%checknumber pmonth,11%>>11月
<OPTION VALUE=12 <%checknumber pmonth,12%>>12月
</SELECT>
</td>
<td>
<SELECT NAME=YEAR onchange="document.calendar.submit()">
<OPTION VALUE=1999 <%checknumber pyear,1999%>>1999
<OPTION VALUE=2000 <%checknumber pyear,2000%>>2000
<OPTION VALUE=2001 <%checknumber pyear,2001%>>2001
<OPTION VALUE=2002 <%checknumber pyear,2002%>>2002
<OPTION VALUE=2003 <%checknumber pyear,2003%>>2003
<OPTION VALUE=2004 <%checknumber pyear,2004%>>2004
<OPTION VALUE=2005 <%checknumber pyear,2005%>>2005
<OPTION VALUE=2006 <%checknumber pyear,2006%>>2006
<OPTION VALUE=2007 <%checknumber pyear,2007%>>2007
<OPTION VALUE=2008 <%checknumber pyear,2008%>>2008
<OPTION VALUE=2009 <%checknumber pyear,2009%>>2009
<OPTION VALUE=2010 <%checknumber pyear,2010%>>2010
</SELECT>
</td>
</tr>
</table>