Classic ASP から Amazon の Route 53 サーバー API を使用しようとしていますが、リクエストを投稿するとHTTP 404 Not Found
、送信された URL が有効であってもブラウザに貼り付けてもエラーが返されます。Classic ASP は Route 53 を呼び出すことができないのでしょうか? それとも私のコードにエラーがありますか?
Dim linebreak, gmt, timestamp, urlparams, amazonserver, stringtosign, signature, signedURL, sha256
const versionDate="2009-07-01"
amazonserver="https://route53.amazonaws.com/2012-02-29/xxxxxxxxxx"
linebreak=chr(13)
const secretkey="my secret key"
gmt=DateAdd("H", 0, Now)
timestamp = return_RFC822_Date(Now(), "GMT")
set sha256=GetObject("script:"&Server.MapPath("sha256.wsc"))
stringtosign = timestamp
signature=sha256.b64_hmac_sha256(secretkey, stringtosign)
header = "AWS3-HTTPS AWSAccessKeyId=ky access id,Algorithm=HMANSHA256,Signature="&signature
Set sha256=nothing
signedURL=amazonserver&"/onca/xml?"&urlparams&"&Signature="&Server.URLEncode(signature)
response.write signedURL
Set xmlHttp = Server.Createobject("Microsoft.XMLHTTP")
xmlHttp.Open "POST", signedUrl, False
response.write strURL&"<br>"
xmlHttp.setRequestHeader "User-Agent", "asp httprequest"
xmlHttp.setRequestHeader "Host", "route53.amazonaws.com"
xmlHttp.setRequestHeader "content-type", "text/plain"
xmlHttp.setRequestHeader "X-Amzn-Authorization", signature
xmlHttp.Send()
if xmlHttp.Status >= 400 And xmlHttp.Status <= 599 Then
response.write "Error Occurred : " & xmlHttp.Status & " - " & xmlHttp.statusText
else
getXML = xmlHttp.responseText
end if
xmlHttp.abort()
set xmlHttp = Nothing