基于WEB的学生综合测评系统(内含源代码)(3)

2019-03-29 12:17

除以上主要功能以外,还提供了以下的辅助功能:

前进、后退:返回的用户当期界面的下一个界面和前一个界面 刷新:用来刷新用户界面显示的数据; 桌面:返回到桌面界面; 退出:退出系统; 七、系统代码:

1、con.asp:(用来连接数据库) <%

set conn=server.createobject(\mypath=server.mappath(\

conn.open \%>

2、day.asp:(用来处理日期信息的)

Date

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: