[求助]Response 对象错误 'ASP 0104 : 80070057' - ASP技术论坛

问题点数：0 回复次数：1

[求助]Response 对象错误 'ASP 0104 : 80070057'

各位GG,JJ.小弟是个新手，搞了个小程序都没搞定。。
希望各位能给小弟帮个忙。。

下面是程序全部的代码。。
出现的错误：Response 对象错误 'ASP 0104 : 80070057' 不允许操作

<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" content="text/html;charset=gb_2312-80">
<TITLE>日历程序</TITLE>
<%
'根据年份及月份得到该月的天数
Function GetDaysInMonth(iMonth,iYear)
Select Case iMonth
Case 1,3,5,7,8,10,12
GetDaysInMonth=31
Case 4,6,9,11
GetDaysInMonth=30
Case 2
If IsDate("February 29,"&iYear)Then
GetDaysInMonth=29
Else
GetDaysInMonth=28
End If
End Select
End Function
'得到一个月开始的日期。
Function GetWeekDayMonthStartsOn(dAnyDayInTheMonth)
Dim dTemp
dTemp=DateAdd("d",-(Day(dAnyDayInTheMonth)-1),dAnyDayInTheMonth)
GetWeekDayMonthStartsOn=Weekday(dTemp)
End Function
'得到当前月的上一个月。
Function SubtractOneMonth(dDate)
SubtractOneMonth=DateAdd("m",-1,dDate)
End Function
'得到当前月的下一个月。
Function AddOneMonth(dDate)
AddOneMonth=DateAdd("m",1,dDate)
End Function

Dim dDate '日历显示的日期
Dim iDOW '每一月开始的日期
Dim iCurrent '当前日期
Dim iPosition '表格中的当前位置

'得到用户选择的日期
If IsDate(Request.QueryString("date"))Then
dDate=CDate(Request.QueryString("date"))
Else
If IsDate(Request.QueryString("month")&"-"&Request.QueryString("day")&"-"&_
Request.QueryString("year"))then
dDate=CDate(Request.QueryString("month")&"-"&Requset.QueryString("day")&"-"&_
Request.QueryString("year"))
Else
dDate=Date()
If Len(Request.QueryString("month"))<>0 Or Len(Request.QueryString("day"))<>0 Or _
Len(Request.QueryString("year"))<>0 Or Len(Request.QueryString("date"))<>0 Then
Request.Write "您所选择的日期格式不正确！<BR><BR>"
End If
End If
End If

'得到这个月的天数及这个月的起始日期。
iDIM=GetDaysInMonth(Month(dDate),Year(dDate))
iDOW=GetWeekDayMonthStartsOn(dDate)

%>
</HEAD>

<table border="1" cellpadding="0" cellspacing="0">
<TR>
<TD><table border="1"cellspacing="0" bgcolor="#FDF8D0">
<TR>
<TD align="center" colspan="7" bgcolor="#000099"><table border="0"cellpadding="0" cellspacing="0"width="100%">
<TR>
<TD align="right"><a href="default.asp?date=<%=SubtractOneMonth(dDate)%>">上一月</a></TD>
<TD align="center"><font color="#FFFF00"><b><%=MonthName(Month(dDate))&" "&Year(dDate)%></b></font></TD>
<TD><a href="default.asp?date=<%=AddOneMonth(dDate)%>">下一月</a></TD>
</TR>
</table>
</TD>
</TR>
<TR>
<TD align="center" bgcolor="#0000CC"><font color="#FF0000"><b>星期日</b></font><BR>
<img src="" width="60" height="1"></TD>
<TD align="center" bgcolor="#0000CC"><font color="#FF0000"><b>星期一</b></font><BR>
<img src="" width="60" height="1"></TD>
<TD align="center" bgcolor="#0000CC"><font color="#FF0000"><b>星期二</b></font><BR>
<img src="" width="60" height="1"></TD>
<TD align="center" bgcolor="#0000CC"><font color="#FF0000"><b>星期三</b></font><BR>
<img src="" width="60" height="1"></TD>
<TD align="center" bgcolor="#0000CC"><font color="#FF0000"><b>星期日</b></font><BR>
<img src="" width="60" height="1"></TD>
<TD align="center" bgcolor="#0000CC"><font color="#FF0000"><b>星期日</b></font><BR>
<img src="" width="60" height="1"></TD>
<TD align="center" bgcolor="#0000CC"><font color="#FF0000"><b>星期日</b></font><BR>
<img src="" width="60" height="1"></TD>
</TR>
<%

'如果这个月的起始日不是周日的话就加空的单元。
If iDOW<>1 then
Response.Write vbTab&"<TR>"&vbCrLf
iPosition=1
Do While iPosition<iDow
Response.Write vbTab&vbTab&"<TD> </TD>"&vbCrLf
iPosotion=iPosition+1
Loop
End If

'显示这个月的日历。
iCurrent =1
iPosition=iDOW
Do While iCurrent<=iDIM
'如果一行的开头就使用TR标记。
If iPosotion=1 Then
Reponse.Write vbTab&"<TR>"&vbCrLf
End If

'如果这一天是我们选择的日期就高亮度显示该日期。
If iCurrent=Day(dDate)Then
Response.Write vbTab&vbTab&"<TD bgcolor=#00FFFF><font size=""-1""><b>"&_
iCurrent&"</b></font><BR><BR></TD>"&vbCrLf
Else
Response.Write vbTab&vbTab&"<TD><a href=""./default.asp?date="&Month(dDate)&"-"&_
iCurrent&"-"&Year(dDate)&"""><font size=""-1"">"&iCurrent&"</font></a><BR><BR></TD>"&vbCrLf
End If

'如果满一周的话表格就另起一行。
If iPosition =7 Then
Response.Write vbTab&"</TR>"&vbCrLf
iPosition=0
End If

iCurrent=iCurrent+1
iPosition=IPosition+1
Loop

'如果一个月不是以周六结束则加上相应的空单元。
If iPosition <>1 Then
Do While iPosition<=7
Response.Write vbTab&vbTab&"<TD> </TD>"&vbCrLf
iPosition=iPosition+1
Loop
Response.Write vbTab&"</TR>"&vbCrLf
End If
%>
</table>
</TD>
</TR>
</table>
</BODY>
</HTML>

搜索更多相关主题的帖子: Response　ASP　对象　