各位大虾，请教个问题啊，基础不好，请多多指教！
Function GetWeek(ThisDay)
If ThisDay<>"" And IsDate(ThisDay) Then
   Dim CharWeek
   CharWeek=Weekday(ThisDay)
   Select Case CharWeek
    Case 1
     GetWeek="星期日"
    Case 2
     GetWeek="星期一"
    Case 3
     GetWeek="星期二"
    Case 4
     GetWeek="星期三"
    Case 5
     GetWeek="星期四"
    Case 6
     GetWeek="星期五"
    Case 7
     GetWeek="星期六"
   End Select
End If
End Function  这段代码怎么用，才能在一个文本里插上当前星期几的结果？请赐教！

<td><%Function GetWeek(ThisDay)
If ThisDay<>"" And IsDate(ThisDay) Then
   Dim CharWeek
   CharWeek=Weekday(ThisDay)
   Select Case CharWeek
    Case 1
     GetWeek="星期日"
    Case 2
     GetWeek="星期一"
    Case 3
     GetWeek="星期二"
    Case 4
     GetWeek="星期三"
    Case 5
     GetWeek="星期四"
    Case 6
     GetWeek="星期五"
    Case 7
     GetWeek="星期六"
   End Select
End If
End Function
          response.write GetWeek(thisday)%> thisday </td>还是不知道怎么用啊？没有结果输出啊？能再详细点吗？如何获取呢？

还是不对啊，提示：
误的参数个数或无效的参数属性值: 'GetWeek'
请想想办法啊！谢谢！

成功了，谢谢老大！以后请多多指教！