Заранее спасибо. Может ли кто-нибудь помочь мне с этой проблемой, мне нужно получить значение из URL-адреса обратного вызова. URL-адрес обратного вызова выглядит следующим образом. что параметры из URL-адреса обратного вызова отправлены третьей стороной.
"https://www.viewmyrecord.com/Texting/GetReply.asp?from=1561234567&to=15698745642&text=Hi
Kid,Reminder November 22, 2019 w/ REN, MD at 11:00 am&datetime=Nov 11 2019 10:17PM&cost=0.00"
Мне нужно проанализировать значение "от", "до", "текст", "дата и время" и "стоимость". И сохраните его в текстовый файл. Я понятия не имею об этом. но мой "GetReply.asp" выглядит так.
<%
If Request.TotalBytes > 0 Then
Dim lngBytesCount,try
lngBytesCount = Request.TotalBytes
Response.Write BytesToStr(Request.BinaryRead(lngBytesCount))
dim fs,tfile,loc,locadd,loctime,loctime1,nameFile,datename
datDate = Now()
locadd = Trim(FormatDateTime(datDate, 1))
loctime = FormatDateTime(datDate, 4)
loctime1 = stripNonNumeric(FormatDateTime(Now, 3))
nameFile = "\\85new\Accts85new\Texting\Reply\"
datename = Trim(loctime1&"-"&locadd&".txt")
loc = "\\85new\Accts85new\Texting\Reply\"&loctime1&"-"&locadd&".txt"
set fs=Server.CreateObject("Scripting.FileSystemObject")
set tfile=fs.CreateTextFile(loc)
tfile.WriteLine(try)
tfile.close
set tfile=nothing
set fs=nothing
end if
Function BytesToStr(bytes)
Dim Stream
Set Stream = Server.CreateObject("Adodb.Stream")
Stream.Type = 1 'adTypeBinary
Stream.Open
Stream.Write bytes
Stream.Position = 0
Stream.Type = 2 'adTypeText
Stream.Charset = "iso-8859-1"
BytesToStr = Stream.ReadText
try = BytesToStr
Stream.Close
Set Stream = Nothing
End Function
Function stripNonNumeric(inputString)
Set regEx = New RegExp
regEx.Global = True
regEx.Pattern = "\D"
stripNonNumeric = regEx.Replace(inputString,"")
End Function
%>
На этот "GetReply.asp" я получаю ответ "200 ok" Может ли кто-нибудь сказать мне, что мне не хватает или чего не хватает в этом коде. Я буду очень признателен. Огромное спасибо заранее.
1 ответ
Как я сказал в своем комментарии, я не уверен, почему вы проходите через всю боль ADO Stream. Насколько я могу судить из вашего кода, все, что вам нужно сделать, это что-то вроде этого:
dim strFrom, strTo, strText, strDatetime
strFrom = request.querystring("from")
strTo = request.querystring("to")
strText = request.querystring("text")
strDatetime = request.querystring("datetime")
Затем используйте FileSystemObject, как вы это делаете сейчас, чтобы записать эти значения в файл.
Но если вы получите эти значения от третьей стороны, я ожидаю, что по крайней мере параметр «текст» будет закодирован в URL...
Похожие вопросы
Новые вопросы
json
JSON (нотация объектов JavaScript) — это сериализуемый формат обмена данными, который может быть прочитан машиной и человеком. Не используйте этот тег для собственных объектов JavaScript или литералов объектов JavaScript. Прежде чем задать вопрос, подтвердите свой JSON с помощью валидатора JSON, такого как JSONLint (https://jsonlint.com).