中文日期怎么改成英文日期？

[tao2008]

网站上的“中文日期”怎么改成“英文日期“？ eg:“2009-5-7 星期四”改成“2009-5-7 Thursday”

其中一段代码如下，这段代码显示的中文日期：

<td width="120" class="topf"><%=date()%> <%=weekdayname(weekday(now))%></td>


网站上日期的格式是：2009-5-7 星期四 我想改成英文的 2009-5-7 Thursday 大家帮下忙啊

[rqrq]

这有个函数，lz研究一下吧。

Function DateToRFC822(byVal dtaVal)
Dim strCurLocale : strCurLocale = GetLocale()
SetLocale("en-gb")
dtaVal = CDate(dtaVal)
DateToRFC822 = WeekdayName(Weekday(dtaVal),True)&","&_
Right("0"&Day(dtaVal),2)&" "&_
MonthName(Month(dtaVal),True)&" "&_
Year(dtaVal)&" "&_
Right("0"&Hour(dtaVal),2)&":"&_
Right("0"&Minute(dtaVal),2)&":"& _
Right("0"&Second(dtaVal),2)&" "& _
" +0800"
SetLocale(strCurLocale)
End Function

[Msxindl_Com]

简单点:

<%
dim w(7)
w(1)="Sunday"
w(2)="Monday"
w(3)="Tuesday"
w(4)="Wednesday"
w(5)="Thursday"
w(6)="Friday"
w(7)="Saturday"
%>
<td width="120" class="topf"><%=date()%> <%=w(weekday(date()))%></td>

[tao2008]

谢谢各位！！！