一个比较麻烦的日期转换

[dgbuild]

Thu, 10 Jul 2008 01:31:25 GMT

这种日期，怎么转换成 2008-07-10

[liumang945]

0

[liuwanru]

0

[yanniu008]

dim myTime="Thu, 10 Jul 2008 01:31:25 GMT"
myArray1=split(myTime,",")
myTime1=myArray1(1)
myArray2=split(myTime1," ")
myYear=myArray2(2)
myDay=myArray2(0)
select case myArray2(1)
case Jun
myMonth="1"
case Fub
myMonth="2"
.........
end select

[wtogether]

去掉前5个和后4个字符就可以转Date，然后加上中国的时区就可以还原到本地时间
Dim tmp
tmp = "Thu, 10 Jul 2008 01:31:25 GMT"
tmp = Mid(tmp, 6)
tmp = Left(tmp, Len(tmp) - 4)
Response.Write DateAdd("h", 8, CDate(tmp))

[yanniu008]

上面写的有点问题 case Jun 改成 case "Jun" 以此类推

[O_I_O]

0

[dgbuild]

非常感谢