ASP单双周计算,VBScript

版权声明：原创作品，允许转载，转载时请务必以超链接形式标明文章原始出版、作者信息和本声明。否则将追究法律责任。http://blog.csdn.net/mayongzhan - 马永占,myz,mayongzhan

<%
SQL = "Select Top 1 * From M_Date"
Conn.Execute(SQL)
Set RsD = Conn.Execute(SQL)
if err<>0 then
response.Write("数据库出错"&err.description&"<br>")
response.End()
end if
%>
<script language="VBScript" type="text/VBScript">
function xl()
Dim MyDate1 //取原来设置时间
MyDate1 = DateValue("<%=RsD("D_date")%>")
Dim MyDate2 //取当前时间
MyDate2 = Date
DiffDate = DateDiff("d", MyDate1, MyDate2) //计算当前差多少天
DiffDate = DiffDate+1
DiffDate = "本学期第" & DiffDate & "天,"
document.write(DiffDate)
DiffDate2 = DateDiff("ww", MyDate1, MyDate2) //计算当前差多少周
DiffDate2 = DiffDate2+1
DiffDate2 = "第" & DiffDate2 & "周"
document.write(DiffDate2)
End function
</script>

<script language="vbscript">Call xl()</script>