Zum Inhalt springen

HttpRequest


Empfohlene Beiträge

Hallo Zusammen,

kann mir bitte jemand helfen, wie ich den HttpRequest(ASP) auslesen kann?

Ich benötige nämlich die IP-Adresse des Absenders, RequestTyp und die RequestMethod.


<%

Class myDateTime

	Public myDate

	Public myFormat


	'Public myDayNames

	'Public myMonthNames


	Public Default Function getDateTime()

		If isDate(myDate) Then

			Dim y

			Dim Ergebniss

			Ergebniss = ""

			Do While len(myFormat) > 0

				select case left(myFormat, 1)

					case "d"

						y = 0

						Do While left(myFormat, 1) = "d"

							myFormat = right(myFormat, len(myFormat) - 1)

							y = y + 1

						Loop

						Select Case y

							Case 1

								Ergebniss = Ergebniss & day(myDate)

							Case 2

								if len(day(myDate)) = 1 then

									Ergebniss = Ergebniss & "0"

								end if

								Ergebniss = Ergebniss & day(myDate)

							Case 3

								Ergebniss = Ergebniss & left(myDayNames(weekday(myDate)-1), 3)

							Case 4

								Ergebniss = Ergebniss & myDayNames(weekday(myDate)-1)

						end select

						if len(myFormat) > 0 then

							do while left(myFormat, 1) <> "d" and left(myFormat, 1) <> "m" and left(myFormat, 1) <> "y" and left(myFormat, 1) <> "h" and left(myFormat, 1) <> "n" and left(myFormat, 1) <> "s" and len(myFormat) > 0

								if left(myFormat, 1) = " " then

									Ergebniss = Ergebniss & left(replace(myFormat, " ", " "), 6)

								else

									Ergebniss = Ergebniss & left(myFormat, 1)

								end if

								myFormat = right(myFormat, len(myFormat) - 1)

							loop

						end if


					case "m"

						y = 0

						Do While left(myFormat, 1) = "m"

							myFormat = right(myFormat, len(myFormat) - 1)

							y = y + 1

						Loop

						Select Case y

							Case 1

								Ergebniss = Ergebniss & month(myDate)

							Case 2

								if len(month(myDate)) = 1 then

									Ergebniss = Ergebniss & "0"

								end if

								Ergebniss = Ergebniss & month(myDate)

							Case 3

								Ergebniss = Ergebniss & left(myMonthNames(month(myDate) - 1), 3)

							Case 4

								Ergebniss = Ergebniss & myMonthNames(month(myDate) - 1)

						end select

						if len(myFormat) > 0 then

							do while left(myFormat, 1) <> "d" and left(myFormat, 1) <> "m" and left(myFormat, 1) <> "y" and left(myFormat, 1) <> "h" and left(myFormat, 1) <> "n" and left(myFormat, 1) <> "s" and len(myFormat) > 0

								if left(myFormat, 1) = " " then

									Ergebniss = Ergebniss & left(replace(myFormat, " ", " "), 6)

								else

									Ergebniss = Ergebniss & left(myFormat, 1)

								end if

								myFormat = right(myFormat, len(myFormat) - 1)

							loop

						end if


					case "y"

						y = 0

						Do While left(myFormat, 1) = "y"

							myFormat = right(myFormat, len(myFormat) - 1)

							y = y + 1

						Loop

						Select Case y

							Case 2

								Ergebniss = Ergebniss & right(year(myDate), 2)

							Case 4

								Ergebniss = Ergebniss & year(myDate)

						end select

						if len(myFormat) > 0 then

							do while left(myFormat, 1) <> "d" and left(myFormat, 1) <> "m" and left(myFormat, 1) <> "y" and left(myFormat, 1) <> "h" and left(myFormat, 1) <> "n" and left(myFormat, 1) <> "s" and len(myFormat) > 0

								if left(myFormat, 1) = " " then

									Ergebniss = Ergebniss & left(replace(myFormat, " ", " "), 6)

								else

									Ergebniss = Ergebniss & left(myFormat, 1)

								end if

								myFormat = right(myFormat, len(myFormat) - 1)

							loop

						end if


					case "h"

						y = 0

						Do While left(myFormat, 1) = "h"

							myFormat = right(myFormat, len(myFormat) - 1)

							y = y + 1

						Loop

						Select Case y

							Case 1

								Ergebniss = Ergebniss & hour(myDate)

							Case 2

								if len(hour(myDate)) = 1 then

									Ergebniss = Ergebniss & "0"

								end if

								Ergebniss = Ergebniss & hour(myDate)

						end select

						if len(myFormat) > 0 then

							do while left(myFormat, 1) <> "d" and left(myFormat, 1) <> "m" and left(myFormat, 1) <> "y" and left(myFormat, 1) <> "h" and left(myFormat, 1) <> "n" and left(myFormat, 1) <> "s" and len(myFormat) > 0

								if left(myFormat, 1) = " " then

									Ergebniss = Ergebniss & left(replace(myFormat, " ", " "), 6)

								else

									Ergebniss = Ergebniss & left(myFormat, 1)

								end if

								myFormat = right(myFormat, len(myFormat) - 1)

							loop

						end if


					case "n"

						y = 0

						Do While left(myFormat, 1) = "n"

							myFormat = right(myFormat, len(myFormat) - 1)

							y = y + 1

						Loop

						Select Case y

							Case 1

								Ergebniss = Ergebniss & minute(myDate)

							Case 2

								if len(minute(myDate)) = 1 then

									Ergebniss = Ergebniss & "0"

								end if

								Ergebniss = Ergebniss & minute(myDate)

						end select

						if len(myFormat) > 0 then

							do while left(myFormat, 1) <> "d" and left(myFormat, 1) <> "m" and left(myFormat, 1) <> "y" and left(myFormat, 1) <> "h" and left(myFormat, 1) <> "n" and left(myFormat, 1) <> "s" and len(myFormat) > 0

								if left(myFormat, 1) = " " then

									Ergebniss = Ergebniss & left(replace(myFormat, " ", " "), 6)

								else

									Ergebniss = Ergebniss & left(myFormat, 1)

								end if

								myFormat = right(myFormat, len(myFormat) - 1)

							loop

						end if


					case "s"

						y = 0

						Do While left(myFormat, 1) = "s"

							myFormat = right(myFormat, len(myFormat) - 1)

							y = y + 1

						Loop

						Select Case y

							Case 1

								Ergebniss = Ergebniss & second(myDate)

							Case 2

								if len(second(myDate)) = 1 then

									Ergebniss = Ergebniss & "0"

								end if

								Ergebniss = Ergebniss & second(myDate)

						end select

						if len(myFormat) > 0 then

							do while left(myFormat, 1) <> "d" and left(myFormat, 1) <> "m" and left(myFormat, 1) <> "y" and left(myFormat, 1) <> "h" and left(myFormat, 1) <> "n" and left(myFormat, 1) <> "s" and len(myFormat) > 0

								if left(myFormat, 1) = " " then

									Ergebniss = Ergebniss & left(replace(myFormat, " ", " "), 6)

								else

									Ergebniss = Ergebniss & left(myFormat, 1)

								end if

								myFormat = right(myFormat, len(myFormat) - 1)

							loop

						end if


					case else

						if len(myFormat) > 0 then

							do while left(myFormat, 1) <> "d" and left(myFormat, 1) <> "m" and left(myFormat, 1) <> "y" and left(myFormat, 1) <> "h" and left(myFormat, 1) <> "n" and left(myFormat, 1) <> "s" and len(myFormat) > 0

								if left(myFormat, 1) = " " then

									Ergebniss = Ergebniss & left(replace(myFormat, " ", " "), 6)

								else

									Ergebniss = Ergebniss & left(myFormat, 1)

								end if

								myFormat = right(myFormat, len(myFormat) - 1)

							loop

						end if


				end select

			loop

		else

			Ergebniss = Ergebniss & "Kein gültiges Datum!!!"

		end if

		getDateTime = Ergebniss

	End Function

End Class


' Deklarieren der Variablen

Dim EntityBody

Dim Stream

Dim OutDirectory

Dim Dateiname

Dim PartnerId

Dim DocumentType

Dim Datum


' Auslesen des aktuellen Timestamp

Set Datum = New myDateTime

'Datum.myDayNames = Array("Sonntag", "Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag", "Samstag")

'Datum.myMonthNames = Array("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember")

Datum.myDate = now

Datum.myFormat = "yyyy-mm-dd_hhnnss"


' Auslesen der Uebergabeparameter(PartnerId, DocumentType und )

PartnerId = Request.QueryString("PartnerId")

DocumentType = Request.QueryString("DocumentType")


'Hier wird das Verzeichnis angegeben, in das die Datei abgelegt werden soll.

'Auf dem Verzeichnis muss aber ASP Schreibrechte haben.

OutDirectory = "C:\Test_Curl\From\"


'Hier wird der Zieldateiname angegeben, der Dateiname setzt sich immer

'aus dem DocumentType+Datum+Uhrzeit zusammen

Dateiname = PartnerId&DocumentType&Datum.getDateTime()&".xml"



	'Option Explicit


	Response.Buffer = True


	EntityBody = Request.BinaryRead (Request.TotalBytes)


	Set Stream = Server.CreateObject("AdoDB.Stream")

	Stream.Type = 1						

	stream.Open

	Stream.Write EntityBody

	Stream.Position = 0


	Stream.SaveToFile OutDirectory & Dateiname


	Response.Status = "202 Accepted"

	Response.End



%>

Link zu diesem Kommentar
Auf anderen Seiten teilen

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...