各位大虾，请教个问题啊，基础不好，请多多指教！
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(yourdate)

<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'
请想想办法啊！谢谢！

看看我写的：

'===判断星期函数===

Function Check_weekday(adate)

  adate=Weekday(adate)

  If adate=1 Then
  
    Week="星期日"

  ElseIf adate=2 Then
  
    Week="星期一"

  ElseIf adate=3 Then
  
    Week="星期二"
  
  ElseIf adate=4 Then
  
    Week="星期三"

  ElseIf adate=5 Then
  
    Week="星期四"

  ElseIf adate=6 Then
  
    Week="星期五"

  ElseIf adate=7 Then
  
    Week="星期六"

  End If
  
Check_Weekday=Week

End Function

'===判断星期函数===

调用：<%=Check_weekday(date())%>

或者是把你的改改：

<%
Function GetWeek(ThisDay)
If 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

%>
<%= GetWeek(Date())%>

注意你的函数里面的参数在函数体中要一致！

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