asp獲取上一周時(shí)間

    response.Write"<BR><BR><BR>"
    dim weekold_B,weekold_E,weekold,weeknum
    weekold=dateadd("d",-7,date())
    response.Write weekold&"<br>"
    weeknum=weekday(date())
    weekold_B=dateadd("d",-(weeknum-1),weekold)
    weekold_E=dateadd("d",7-weekday(date()),weekold)
    response.Write weekold_B&"---"&weekold_E