1个回答
展开全部
这是一段[日历]代码：
<span>
<iframe src='../css_test/rl.asp' width='200' height='170' marginwidth='0' marginheight='0' hspace='0' vspace='0' frameborder='0' scrolling='No'></iframe>
</span>
------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
Dim currdate,currday,currfirstweek,currDayNum,gridnum,days,monthArr,I
currdate=request.QueryString("date")
If currdate="" then currdate=Date()
currfirstday=FormatdateTime(Year(currdate)&"-"&Month(currdate)&"-01")'格式当前月第一日
currfirstweek=Weekday(currfirstday)-1'获取当前月第一日是星期几
currDayNum=DateDiff("d",currfirstday,DateAdd("m",1,currfirstday))'获取当前月总的天数
gridnum=currfirstweek+currDayNum'获取格子数
If gridnum Mod 7 <>0 Then gridnum=((gridnum\7)+1)*7
monthArr=",一月,二月,三月,四月,五月,六月,七月,八月,九月,十月,十一月,十二月"
monthArr=split(monthArr,",")
%>
<table border="1">
<tr>
<td align="center"><a href=""><<</a></td>
<td align="center" colspan="5"><%=monthArr(Month(currdate))%> <%=Year(currdate)%></td>
<td align="center"><a href="">>></a></td>
</tr>
<tr>
<td align="center">日</td>
<td align="center">一</td>
<td align="center">二</td>
<td align="center">三</td>
<td align="center">四</td>
<td align="center">五</td>
<td align="center">六</td>
</tr>
<tr>
<%
For I=1 To gridnum
days=I-currfirstweek
If I>currfirstweek And I<=currfirstweek+currDayNum Then
If days=Day(Now()) And FormatdateTime(Now(),2)=currdate Then
Response.Write("<td align=center bgcolor=""#CCCCCC"">"& days &"</td>")
Else
Response.Write("<td align=center>"& days &"</td>")
End If
Else
Response.Write("<td align=center> </td>")
End If
IF I Mod 7 = 0 Then Response.Write("</tr><tr>")
Next
%>
</tr>
</table>
</body>
</html>
<span>
<iframe src='../css_test/rl.asp' width='200' height='170' marginwidth='0' marginheight='0' hspace='0' vspace='0' frameborder='0' scrolling='No'></iframe>
</span>
------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
Dim currdate,currday,currfirstweek,currDayNum,gridnum,days,monthArr,I
currdate=request.QueryString("date")
If currdate="" then currdate=Date()
currfirstday=FormatdateTime(Year(currdate)&"-"&Month(currdate)&"-01")'格式当前月第一日
currfirstweek=Weekday(currfirstday)-1'获取当前月第一日是星期几
currDayNum=DateDiff("d",currfirstday,DateAdd("m",1,currfirstday))'获取当前月总的天数
gridnum=currfirstweek+currDayNum'获取格子数
If gridnum Mod 7 <>0 Then gridnum=((gridnum\7)+1)*7
monthArr=",一月,二月,三月,四月,五月,六月,七月,八月,九月,十月,十一月,十二月"
monthArr=split(monthArr,",")
%>
<table border="1">
<tr>
<td align="center"><a href=""><<</a></td>
<td align="center" colspan="5"><%=monthArr(Month(currdate))%> <%=Year(currdate)%></td>
<td align="center"><a href="">>></a></td>
</tr>
<tr>
<td align="center">日</td>
<td align="center">一</td>
<td align="center">二</td>
<td align="center">三</td>
<td align="center">四</td>
<td align="center">五</td>
<td align="center">六</td>
</tr>
<tr>
<%
For I=1 To gridnum
days=I-currfirstweek
If I>currfirstweek And I<=currfirstweek+currDayNum Then
If days=Day(Now()) And FormatdateTime(Now(),2)=currdate Then
Response.Write("<td align=center bgcolor=""#CCCCCC"">"& days &"</td>")
Else
Response.Write("<td align=center>"& days &"</td>")
End If
Else
Response.Write("<td align=center> </td>")
End If
IF I Mod 7 = 0 Then Response.Write("</tr><tr>")
Next
%>
</tr>
</table>
</body>
</html>
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
博思aippt
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员，对于Word文档生成PPT的操作，我们有以下建议：1. 使用另存为功能：在Word中编辑完文档后，点击文件->另存为，选择PowerPoint演示文稿（*.pptx）格式，即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
