版权声明：原创作品，允许转载，转载时请务必以超链接形式标明文章原始出版、作者信息和本声明。否则将追究法律责任。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> 

发表于 @ 2007年04月22日 08:08:00|评论(loading...)|编辑