<%@ Language=VBScript %>
<%
Option Explicit
Response.Expires = 0
On Error Resume Next


'*****************************************************************
'Variablendeklarationen


'*****************************************************************
'Variableninitialisierung


'*****************************************************************
'Lokale Prozeduren und Funktionen
Sub proccountrytest(intlcid)
  'Die LCID-Eigenschaft des Session-Objektes legt den Gebietsschemabezeichner 
  'fest, der zum Anzeigen dynamischer Inhalte verwendet wird. 
  'Dies beeinflusst den Text von Funktionen wie WeekdayName und die 
  'Anzeige von Währungen, Datumswerten und Zahlen
  Session.LCID = intlcid
  Response.Write("<p>" & weekdayname(weekday(date()))& ", " &_
    FormatDateTime(Date()) & "<br />" & vbCrLf)
  'langes Datumsformat
  Response.Write(FormatDateTime(Date(), 1) & "<br />" & vbCrLf)
  Response.Write(FormatNumber(493945.45) & "<br />" & vbCrLf)
  Response.Write(FormatCurrency(15.3)& "</p>" & vbCrLf)
End Sub


'*****************************************************************
'Anfang Code


'*****************************************************************
'Anfang <html>
%>
<!--#include virtual="asppages/silvi/_include/preheader.inc" -->
<html>
  <head>
    <title>ASP Diverses: Ländereinstellung wechseln</title>
    <meta name="description" content="" />
    <meta name="keywords" content="ASP, LCID, Ländereinstellung, FormatDateTime" />
<!--#include virtual="asppages/silvi/_include/header.inc" -->
  </head>
<body>
<%
'*****************************************************************
'Code innerhalb der HTML-Seite
'Eine Liste der hexadezimalen LCID-Codes findet sich in 
'Professional Active Server Pages 2.0, Seiten 935 - 938
Dim intlcidVorher
intlcidVorher = Session.LCID

call proccountrytest(4108) 'französische Schweiz
call proccountrytest(2055) 'deutsche Schweiz
call proccountrytest(2064) 'italienische Schweiz
call proccountrytest(&H0409) 'USA Eingabe als Hex-Wert, entspricht 1033
call proccountrytest(&H0416) 'Brasilien 1046

Session.LCID = intlcidVorher 

%>
<!--#include virtual="asppages/silvi/_include/inchtmlnachspann.asp" -->
</body>
</html>

Demo: beispiele/090laendereinstellung.asp
Letzter Update: 26.12.2021 16:48

Zurück zur Liste mit ASP-Beispielen auf  www.ecotronics.ch