Текущая дата / время в RFC 2822 Функция даты с vb / classic asp

Question

Я пытаюсь написать скрипт для отправки данных в корзину Amazon S3, и мне нужно сгенерировать, как мне кажется, дату RFC 2822 для отправки в запросе заголовка.

Дата выглядит так: "Вт, 12 июня 2012 г. 23:41:58 +0000"

Мне просто нужна функция для генерации правильного формата времени, поскольку я получаю следующую ошибку.

RequestTimeTooSkewed The difference between the request time and the current time is too large.

Это то, что я до сих пор...

<%
sTimeStamp = "Tue, 12 June 2012 23:41:58 +00002012-06-12T22:45:47Z"
sAWSAccessKeyId = "AESDQWDQWD"
sSignature=Encrypt("SecretQWEQWEQWEQWEYAYAY")

AWSServiceUrl = "https://s3.amazonaws.com/"
Set oXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
oXMLHTTP.open "GET", AWSServiceUrl, False
oXMLHTTP.setRequestHeader "Authorization", "AWS " & sAWSAccessKeyId & ":" & sSignature
oXMLHTTP.setRequestHeader "x-amz-date", sTimeStamp
on error resume next
oXMLHTTP.send sRequest
Response.Write oXMLHTTP.responseText
%>

Есть идеи?

Answer 1

Самый простой способ сделать это - заставить JScript помочь:

<script runat="server" language="javascript">
    function JSNow() { return new Date(); }
</script>

Теперь вы можете получить формат строки для времени, требуемого с:

Dim sTimeStamp: sTimeStamp = JSNow().toString()