除以上主要功能以外,还提供了以下的辅助功能:
前进、后退:返回的用户当期界面的下一个界面和前一个界面 刷新:用来刷新用户界面显示的数据; 桌面:返回到桌面界面; 退出:退出系统; 七、系统代码:
1、con.asp:(用来连接数据库) <%
set conn=server.createobject(\mypath=server.mappath(\
conn.open \%>
2、day.asp:(用来处理日期信息的)
oldDate=request(\
if not isDate(oldDate) then oldDate=date yy=year(cdate(oldDate)) mm=month(cdate(oldDate))
if request(\if request(\if yy=\if mm=\if mm>12 then mm=1:yy=yy+1 if mm<1 then mm=12:yy=yy-1
dim m(12) m(1)=31 m(3)=31 m(5)=31 m(7)=31 m(8)=31 m(10)=31 m(12)=31 m(2)=28 m(4)=30 m(6)=30 m(9)=30 m(11)=30
if (yy mod 4=0 and yy mod 100<>0) or yy mod 400=0 then m(2)=29 mms=m(mm)
week1=(weekday(cdate(yy & \%>
<%=yy%> 年 <%=mm%> 月
一 二 三 四 五 六 <%
if week1<>0 then
response.write \for i=1 to week1
response.write \next end if
for i=1 to mms
if (i+week1-1) mod 7=0 then response.write \response.write \width=35 height=20 align=center bgcolor=#ffffff onmousemove=this.bgColor='#ececec' onmouseout=this.bgColor='#ffffff'>\if cdate(yy & \%>
style=\1px groove;width:30;height:16;font-size:9pt;background-color:#FFD9D9;color:#CD0101\onclick=\title=\年<%=mm%>月<%=i%>日(今天)\<% else %>
style=\1px groove;width:30;height:16;font-size:9pt;background-color:#ffffff;color:#000000\
onclick=\年<%=mm%>月<%=i%>日\<% end if next
if (mms+week1) mod 7<>0 then
for i=1 to (7-((mms+week1) mod 7))
response.write \next end if %>
3、desk.asp:(桌面实现代码)
注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信: QQ: