代码调通立刻给分！！

2002-09-06 01:31:57 154 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

【JS】! !! !!!区别 !是逻辑与运算，并且可以与任何变量进行逻辑与将其转化为布尔值，“!!”则是逻辑与运算的取反运算，尤其后者在判断类型时代码简洁高效，省去了多次判断null、undefined和空字符串的冗余代码。 !!常常用来做类型判断，在第一步!（变量）之后再做逻辑取反运算，在js中新手常常会写这样臃肿的代码：判断变量a为非空，未定义或者非空串才能执行方法体的内容 !!!没有什么意义，和一个感叹号的效果是一样的阅读详情

代码报错！程序员没在！！

disDate = date()
curDate = request("date")
if curDate = "" or not isDate(curDate) then
curDate = date()
end if

curDateShow = Ucase(MonthName(Month(curDate))) & " " & Year(curDate)

iDIM = GetDaysInMonth(Month(curDate), Year(curDate))
iDOW = GetWeekdayMonthStartsOn(curDate)

navDate = CDate(MonthName(month(curdate)) & " 1, " & year(curdate))'这行报错：类型不匹配
navDateLast = CDate(MonthName(Month(navDate)) & " " & iDIM & ", " & Year(navDate))

...全文

Habitat安装全网最详细教程，手把手带你跑通example.py（全网唯一）全网最详细具身智能仿真平台habitat的安装教程阅读详情

unique

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

unique 2002-09-06

打赏
举报

ksy(ASP.Net入门) ( ) 信誉：110
厉害！！一下搞定，谢了！立刻结账！

ksy 2002-09-06

打赏
举报

<%
Function GetDaysInMonth(iMonth, iYear)
Dim dTemp
dTemp = DateAdd("d", -1, DateSerial(iYear, iMonth + 1, 1))
GetDaysInMonth = Day(dTemp)
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 iDIM ' Days In Month
Dim iDOW ' Day Of Week that month starts on
Dim iCurrent ' Variable we use to hold current day of month as we write table
Dim iPosition ' Variable we use to hold current position in table

disDate = date()
curDate = request("date")
if curDate = "" or not isDate(curDate) then
curDate = date()
end if

curDateShow = Ucase(MonthName(Month(curDate))) & " " & Year(curDate)

'iDIM = GetDaysInMonth(Month(curDate), Year(curDate))
'iDOW = GetWeekdayMonthStartsOn(curDate)
iDIM = GetDaysInMonth(Month(cdate(curDate)), Year(cdate(curDate)))
iDOW = GetWeekdayMonthStartsOn(cdate(curDate))
'下两句做改动
navDate = CDate(month(curdate) & ",1," & year(curdate))
navDateLast = CDate(Month(navDate) & " " & iDIM & ", " & Year(navDate))
'
lastMonth = SubtractOneMonth(curDate)
nextMonth = AddOneMonth(curDate) %>

qiushuiwuhen 2002-09-06

打赏
举报

先SetLocale一下，否则是中文的MonthName
SetLocale("en-gb")
curdate=date
navDate = CDate(MonthName(month(curdate)) & " 1, " & Year(curdate))

为什么不用
navDate = CDate( Year(curdate)& "-" & month(curdate) & "-1")
？

fokker 2002-09-06

打赏
举报

Try
curDate = request("date")
改：
curDate = (Request.Form("date"))(1)

zqfleaf 2002-09-06

打赏
举报

navDate = CDate(MonthName(month(curdate)) & " 1, " & year(curdate))'这行报错：类型不匹配
navDateLast = CDate(MonthName(Month(navDate)) & " " & iDIM & ", " & Year(navDate))
不用Cdate

navDate =MonthName(month(curdate)) & " 1, " & year(curdate)
navDateLast = MonthName(Month(navDate)) & " " & iDIM & ", " & Year(navDate)

unique 2002-09-06

打赏
举报

完整代码如下：

<%
Function GetDaysInMonth(iMonth, iYear)
Dim dTemp
dTemp = DateAdd("d", -1, DateSerial(iYear, iMonth + 1, 1))
GetDaysInMonth = Day(dTemp)
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 iDIM ' Days In Month
Dim iDOW ' Day Of Week that month starts on
Dim iCurrent ' Variable we use to hold current day of month as we write table
Dim iPosition ' Variable we use to hold current position in table

disDate = date()
curDate = request("date")
if curDate = "" or not isDate(curDate) then
curDate = date()
end if

curDateShow = Ucase(MonthName(Month(curDate))) & " " & Year(curDate)

'iDIM = GetDaysInMonth(Month(curDate), Year(curDate))
'iDOW = GetWeekdayMonthStartsOn(curDate)

iDIM = GetDaysInMonth(Month(cdate(curDate)), Year(cdate(curDate)))
iDOW = GetWeekdayMonthStartsOn(cdate(curDate))

navDate = CDate(MonthName(month(curdate)) & " 1, " & year(curdate))
navDateLast = CDate(MonthName(Month(navDate)) & " " & iDIM & ", " & Year(navDate))

lastMonth = SubtractOneMonth(curDate)
nextMonth = AddOneMonth(curDate) %>

unique 2002-09-06

打赏
举报

这行还是报错：类型不匹配cdate

unique 2002-09-06

打赏
举报

OK，我试试先

fokker 2002-09-06

打赏
举报

iDIM = GetDaysInMonth(Month(curDate), Year(curDate))
iDOW = GetWeekdayMonthStartsOn(curDate)
改：
iDIM = GetDaysInMonth(Month(cdate(curDate)), Year(cdate(curDate)))
iDOW = GetWeekdayMonthStartsOn(cdate(curDate))

代码调通立刻给分！！

相关推荐