Create Version 1.0
This commit is contained in:
Administrator
1
README.txt
Normal file
1
README.txt
Normal file
@@ -0,0 +1 @@
|
|||||||
|
Modern UI with edited Paths for the Reverse Proxy.
|
||||||
145
achg.asp
Normal file
145
achg.asp
Normal file
@@ -0,0 +1,145 @@
|
|||||||
|
<%@Language="VBScript"%>
|
||||||
|
<!--#include file = "text.asp"-->
|
||||||
|
<!--#include file = "ui.asp"-->
|
||||||
|
<%
|
||||||
|
On Error goto 0
|
||||||
|
If Request.Form("cancel") <> "" Then
|
||||||
|
If Request.Form("denyifcancel") <> "" Then
|
||||||
|
Response.Status = "401 Unauthorized"
|
||||||
|
Response.End
|
||||||
|
Else
|
||||||
|
Response.Redirect(Request.QueryString)
|
||||||
|
End If
|
||||||
|
Response.End
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Request.Form("new") <> Request.Form("new2") Then
|
||||||
|
Call ShowResult(L_PWDM_Text, "error")
|
||||||
|
Response.End
|
||||||
|
End If
|
||||||
|
|
||||||
|
On Error Resume Next
|
||||||
|
dim domain, posbs, posat, username, pUser, root
|
||||||
|
dim upn_name
|
||||||
|
upn_name = ""
|
||||||
|
|
||||||
|
domain = Trim(Request.Form("domain"))
|
||||||
|
if domain = "" then
|
||||||
|
posbs = Instr(1,Request.Form("acct"),"\")
|
||||||
|
posat = Instr(1,Request.Form("acct"),"@")
|
||||||
|
if posbs > 0 then
|
||||||
|
domain = Left(Request.Form("acct"),posbs-1)
|
||||||
|
username = Right(Request.Form("acct"),len(Request.Form("acct")) - posbs)
|
||||||
|
elseif posat > 0 then
|
||||||
|
upn_name = Request.Form("acct")
|
||||||
|
domain = Right(upn_name, len(upn_name) - posat)
|
||||||
|
username = Left(upn_name, posat-1)
|
||||||
|
else
|
||||||
|
username = Request.Form("acct")
|
||||||
|
set nw = Server.CreateObject("WScript.Network")
|
||||||
|
domain = nw.Computername
|
||||||
|
end if
|
||||||
|
else
|
||||||
|
username = Trim(Request.Form("acct"))
|
||||||
|
end if
|
||||||
|
|
||||||
|
if IsInvalidUsername(username) = true then
|
||||||
|
Call ShowResult(L_InvalidUsername_Text & ".", "error")
|
||||||
|
Response.End
|
||||||
|
end if
|
||||||
|
|
||||||
|
if IsInvalidDomainname(domain) = true then
|
||||||
|
Call ShowResult(L_InvalidDomainname_Text & ".", "error")
|
||||||
|
Response.End
|
||||||
|
end if
|
||||||
|
|
||||||
|
if upn_name = "" then
|
||||||
|
set pUser = GetObject("WinNT://" & domain & "/" & username & ",user")
|
||||||
|
if Not IsObject(pUser) then
|
||||||
|
set root = GetObject("WinNT:")
|
||||||
|
set pUser = root.OpenDSObject("WinNT://" & domain & "/" & username & ",user", username, Request.Form("old"),1)
|
||||||
|
end if
|
||||||
|
if Not IsObject(pUser) then
|
||||||
|
set pUser = Server.CreateObject("IIS.PwdChg")
|
||||||
|
pUser.Domain = domain
|
||||||
|
pUser.User = username
|
||||||
|
end if
|
||||||
|
else
|
||||||
|
set pUser = Server.CreateObject("IIS.PwdChg")
|
||||||
|
if Not IsObject(pUser) then
|
||||||
|
set pUser = GetObject("WinNT://" & domain & "/" & username & ",user")
|
||||||
|
if Not IsObject(pUser) then
|
||||||
|
set root = GetObject("WinNT:")
|
||||||
|
set pUser = root.OpenDSObject("WinNT://" & domain & "/" & username & ",user", username, Request.Form("old"),1)
|
||||||
|
end if
|
||||||
|
else
|
||||||
|
pUser.Domain = domain
|
||||||
|
pUser.User = username
|
||||||
|
pUser.UPN = upn_name
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
|
||||||
|
if Not IsObject(pUser) then
|
||||||
|
if err.number = -2147024843 then
|
||||||
|
Call ShowResult(L_NotExist_Text & ".", "error")
|
||||||
|
else
|
||||||
|
if err.description <> "" then
|
||||||
|
Call ShowResult(L_Error_Text & ": " & err.description, "error")
|
||||||
|
else
|
||||||
|
Call ShowResult(L_Errornumber_Text & ": " & err.number, "error")
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
Response.End
|
||||||
|
end if
|
||||||
|
|
||||||
|
err.Clear
|
||||||
|
pUser.ChangePassword Request.Form("old"), Request.Form("new")
|
||||||
|
|
||||||
|
if err.number <> 0 then
|
||||||
|
if err.number = -2147024810 then
|
||||||
|
Call ShowResult(L_Error_Text & ": " & L_Invalid_Text, "error")
|
||||||
|
elseif err.number = -2147022651 then
|
||||||
|
Call ShowResult(L_PasswordToShort_Text, "error")
|
||||||
|
else
|
||||||
|
Call ShowResult(L_Errornumber_Text & ": " & err.number, "error")
|
||||||
|
end if
|
||||||
|
Response.End
|
||||||
|
else
|
||||||
|
Call ShowResult(L_PasswordChanged_Text & ".", "success")
|
||||||
|
Response.End
|
||||||
|
end if
|
||||||
|
|
||||||
|
Sub ShowResult(msg, cls)
|
||||||
|
Dim subtitle
|
||||||
|
If cls = "success" Then
|
||||||
|
subtitle = "Die Aenderung wurde vom Active Directory bestaetigt."
|
||||||
|
Else
|
||||||
|
subtitle = "Die Aenderung konnte nicht abgeschlossen werden."
|
||||||
|
End If
|
||||||
|
Call RenderPageStart("Kennwort aendern", subtitle)
|
||||||
|
%>
|
||||||
|
<div class="msg <%=cls%>"><%=Server.HTMLEncode(msg)%></div>
|
||||||
|
<div class="actions">
|
||||||
|
<a class="btn-link btn-secondary" href="/aexp4b.asp">Zurueck zum Formular</a>
|
||||||
|
<% If cls = "success" Then %>
|
||||||
|
<a class="btn-link" href="/">Fertig</a>
|
||||||
|
<% End If %>
|
||||||
|
</div>
|
||||||
|
<%
|
||||||
|
Call RenderPageEnd()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
function IsInvalidUsername(username)
|
||||||
|
dim re
|
||||||
|
set re = new RegExp
|
||||||
|
re.Pattern = "[/\\""\[\]:<>\+=;,@]"
|
||||||
|
IsInvalidUsername = re.Test(username)
|
||||||
|
end function
|
||||||
|
|
||||||
|
function IsInvalidDomainname(domainname)
|
||||||
|
dim re
|
||||||
|
set re = new RegExp
|
||||||
|
re.Pattern = "[/\\""\[\]:<>\+=;,@!#$%^&\(\)\{\}\|~]"
|
||||||
|
IsInvalidDomainName = re.Test(domainname)
|
||||||
|
end function
|
||||||
|
%>
|
||||||
81
aexp.asp
Normal file
81
aexp.asp
Normal file
@@ -0,0 +1,81 @@
|
|||||||
|
<%@Language="VBSCRIPT"%>
|
||||||
|
<HTML>
|
||||||
|
<!--#include file = "text.asp"-->
|
||||||
|
|
||||||
|
<title><%=L_Title_Text%></title>
|
||||||
|
|
||||||
|
<FONT COLOR=FFFFFF>
|
||||||
|
<STYLE>
|
||||||
|
</STYLE>
|
||||||
|
</FONT>
|
||||||
|
|
||||||
|
<head>
|
||||||
|
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=Windows-1252">
|
||||||
|
</head>
|
||||||
|
|
||||||
|
|
||||||
|
<BODY BGCOLOR=#FFFFFF LINK=000000 VLINK=000000>
|
||||||
|
|
||||||
|
<!-- Windows NT Server with IIS -->
|
||||||
|
<%if Instr(1,Request.ServerVariables("SERVER_SOFTWARE"), "IIS") > 0 then%>
|
||||||
|
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
|
||||||
|
<TR VALIGN=CENTER>
|
||||||
|
<TD></TD>
|
||||||
|
<TD WIDTH=20> </TD>
|
||||||
|
<TD><FONT SIZE=+3 COLOR=#000000><B><%=L_ISM_Text%><BR> <FONT SIZE=-1><%=L_IIS6_Text%><FONT></B></FONT></TD>
|
||||||
|
</TR>
|
||||||
|
</Table>
|
||||||
|
<%end if%>
|
||||||
|
|
||||||
|
<!-- Windows NT Workstation with PWS -->
|
||||||
|
<%if Instr(1,Request.ServerVariables("SERVER_SOFTWARE"), "PWS") then%>
|
||||||
|
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
|
||||||
|
<TR VALIGN=CENTER>
|
||||||
|
<TD></TD>
|
||||||
|
<TD WIDTH=20> </TD>
|
||||||
|
<TD><FONT SIZE=+3 COLOR=#000000><B><%=L_ISM_Text%><BR> <FONT SIZE=-1><%=L_PWS_Text%><FONT></B></FONT></TD>
|
||||||
|
</TR>
|
||||||
|
</Table>
|
||||||
|
<%end if%>
|
||||||
|
|
||||||
|
<p>
|
||||||
|
<%
|
||||||
|
'W3CRYPTCAPABLE corresponds to HTTP_CFG_ENC_CAPS.
|
||||||
|
'Tells us that the server if SecureBindings are set
|
||||||
|
if Request.ServerVariables("HTTP_CFG_ENC_CAPS") <> 1 then%>
|
||||||
|
<%=L_PasswordExpired_Text%>.<p>
|
||||||
|
<%=L_SSL1_Text%>.<p>
|
||||||
|
<%=L_SSL2_Text%>.<p>
|
||||||
|
<a href="http://<%=Server.HTMLEncode(Request.ServerVariables("Server_Name"))%>/"><%=L_DefDoc_Text%></a> <%=L_OrOther_Text%>.
|
||||||
|
<%Response.End%>
|
||||||
|
<%end if%>
|
||||||
|
|
||||||
|
<%=L_PasswordExpired_Text%>. <%=L_ChangeNow_Text%>.<p><p>
|
||||||
|
|
||||||
|
<form method="POST" action="https://<%=Server.HTMLEncode(Request.ServerVariables("Server_Name"))%>/iisadmpwd/achg.asp?<%=Server.HTMLEncode(Request.QueryString)%>">
|
||||||
|
|
||||||
|
<table>
|
||||||
|
<tr>
|
||||||
|
<td><%=L_Account_Text%></td><td><input type="text" name="acct" value="<%=Server.HTMLEncode(Request.ServerVariables("REMOTE_USER"))%>"></td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td><%=L_OldPassword_Text%></td><td><input type="password" name="old" value=""></td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td><%=L_NewPassword_Text%></td><td><input type="password" name="new" value=""></td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td><%=L_Confirm_Text%></td><td><input type="password" name="new2" value=""></td>
|
||||||
|
</tr>
|
||||||
|
</table>
|
||||||
|
|
||||||
|
<p>
|
||||||
|
|
||||||
|
<input type="hidden" name="denyifcancel" value="">
|
||||||
|
<input type="submit" value="<%=L_OK_Text%>">
|
||||||
|
<input type="submit" name="cancel" value="<%=L_Cancel_Text%>">
|
||||||
|
<input type="reset" value="<%=L_Reset_Text%>">
|
||||||
|
|
||||||
|
</form>
|
||||||
|
</body>
|
||||||
|
</html>
|
||||||
87
aexp2.asp
Normal file
87
aexp2.asp
Normal file
@@ -0,0 +1,87 @@
|
|||||||
|
<%@Language="VBSCRIPT"%>
|
||||||
|
<HTML>
|
||||||
|
<!--#include file = "text.asp"-->
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<title><%=L_Title_Text%></title>
|
||||||
|
|
||||||
|
<FONT COLOR=FFFFFF>
|
||||||
|
<STYLE>
|
||||||
|
</STYLE>
|
||||||
|
</FONT>
|
||||||
|
|
||||||
|
<head>
|
||||||
|
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=Windows-1252">
|
||||||
|
</head>
|
||||||
|
|
||||||
|
<BODY BGCOLOR=#FFFFFF LINK=000000 VLINK=000000>
|
||||||
|
|
||||||
|
<%On Error goto 0%>
|
||||||
|
<%if Request.Form("cancel") <> "" then
|
||||||
|
if Request.Form("denyifcancel") <> "" then
|
||||||
|
Response.Status = "401 Unauthorized"
|
||||||
|
Response.End
|
||||||
|
else
|
||||||
|
Response.Redirect(Request.QueryString)
|
||||||
|
end if
|
||||||
|
Response.End
|
||||||
|
end if
|
||||||
|
%>
|
||||||
|
|
||||||
|
<!-- Windows NT Server with IIS -->
|
||||||
|
<%if Instr(1,Request.ServerVariables("SERVER_SOFTWARE"), "IIS") > 0 then%>
|
||||||
|
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
|
||||||
|
<TR VALIGN=CENTER>
|
||||||
|
<TD></TD>
|
||||||
|
<TD WIDTH=20> </TD>
|
||||||
|
<TD><FONT SIZE=+3 COLOR=#000000><B><%=L_ISM_Text%><BR> <FONT SIZE=-1><%=L_IIS6_Text%><FONT></B></FONT></TD>
|
||||||
|
</TR>
|
||||||
|
</Table>
|
||||||
|
<%end if%>
|
||||||
|
|
||||||
|
<!-- Windows NT Workstation with PWS -->
|
||||||
|
<%if Instr(1,Request.ServerVariables("SERVER_SOFTWARE"), "PWS") then%>
|
||||||
|
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
|
||||||
|
<TR VALIGN=CENTER>
|
||||||
|
<TD></TD>
|
||||||
|
<TD WIDTH=20> </TD>
|
||||||
|
<TD><FONT SIZE=+3 COLOR=#000000><B><%=L_ISM_Text%><BR> <FONT SIZE=-1><%=L_PWS_Text%><FONT></B></FONT></TD>
|
||||||
|
</TR>
|
||||||
|
</Table>
|
||||||
|
<%end if%>
|
||||||
|
|
||||||
|
<p>
|
||||||
|
|
||||||
|
<form method="POST" action="https://<%=Server.HTMLEncode(Request.ServerVariables("SERVER_NAME"))%>/iisadmpwd/achg.asp?<%=Server.HTMLEncode(Request.QueryString)%>">
|
||||||
|
|
||||||
|
<table>
|
||||||
|
<tr>
|
||||||
|
<td><%=L_Account_Text%></td><td><input type="text" name="acct" value="
|
||||||
|
<%if Request.Form("acct") <> "" then%>
|
||||||
|
<%=Server.HTMLEncode(Request.Form("acct"))%>
|
||||||
|
<%else%>
|
||||||
|
<%=Server.HTMLEncode(Request.ServerVariables("REMOTE_USER"))%>
|
||||||
|
<%end if%>"></td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td><%=L_OldPassword_Text%></td><td><input type="password" name="old" value=""></td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td><%=L_NewPassword_Text%></td><td><input type="password" name="new" value=""></td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td><%=L_Confirm_Text%></td><td><input type="password" name="new2" value=""></td>
|
||||||
|
</tr>
|
||||||
|
</table>
|
||||||
|
|
||||||
|
<p>
|
||||||
|
|
||||||
|
<input type="submit" value="<%=L_OK_Text%>">
|
||||||
|
<input type="submit" name="cancel" value="<%=L_Cancel_Text%>">
|
||||||
|
<input type="reset" value="<%=L_Reset_Text%>">
|
||||||
|
|
||||||
|
</form>
|
||||||
|
|
||||||
|
</body>
|
||||||
|
</html>
|
||||||
117
aexp2b.asp
Normal file
117
aexp2b.asp
Normal file
@@ -0,0 +1,117 @@
|
|||||||
|
<%@Language="VBSCRIPT"%>
|
||||||
|
<HTML>
|
||||||
|
<!--#include file = "text.asp"-->
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<title><%=L_Title_Text%></title>
|
||||||
|
|
||||||
|
<FONT COLOR=FFFFFF>
|
||||||
|
<STYLE>
|
||||||
|
</STYLE>
|
||||||
|
</FONT>
|
||||||
|
|
||||||
|
<head>
|
||||||
|
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=Windows-1252">
|
||||||
|
</head>
|
||||||
|
|
||||||
|
|
||||||
|
<BODY BGCOLOR=#FFFFFF LINK=000000 VLINK=000000>
|
||||||
|
|
||||||
|
<%
|
||||||
|
On Error goto 0
|
||||||
|
if Request.Form("cancel") <> "" then
|
||||||
|
Response.Redirect(Request.QueryString)
|
||||||
|
end if
|
||||||
|
|
||||||
|
dim domain, username, posbs, posat
|
||||||
|
|
||||||
|
username = Request.Form("acct")
|
||||||
|
if username <> "" then
|
||||||
|
username = Server.HTMLEncode(username)
|
||||||
|
else
|
||||||
|
username = Server.HTMLEncode(Request.ServerVariables("REMOTE_USER"))
|
||||||
|
end if
|
||||||
|
|
||||||
|
domain = Request.Form("domain")
|
||||||
|
if domain <> "" then
|
||||||
|
domain = Server.HTMLEncode(domain)
|
||||||
|
else
|
||||||
|
posbs = Instr(1, username, "\")
|
||||||
|
posat = Instr(1, username, "@")
|
||||||
|
if posbs > 0 then
|
||||||
|
domain = Left(username, posbs - 1)
|
||||||
|
username = Right(username, len(username) - posbs)
|
||||||
|
elseif posat > 0 then
|
||||||
|
domain = Right(username, len(username) - posat)
|
||||||
|
username = Left(username, posat - 1)
|
||||||
|
else
|
||||||
|
set nw = Server.CreateObject("WScript.Network")
|
||||||
|
domain = nw.UserDomain
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
|
||||||
|
%>
|
||||||
|
|
||||||
|
|
||||||
|
<!-- Windows NT Server with IIS -->
|
||||||
|
<%if Instr(1,Request.ServerVariables("SERVER_SOFTWARE"), "IIS") > 0 then%>
|
||||||
|
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
|
||||||
|
<TR VALIGN=CENTER>
|
||||||
|
<TD></TD>
|
||||||
|
<TD WIDTH=20> </TD>
|
||||||
|
<TD><FONT SIZE=+3 COLOR=#000000><B><%=L_ISM_Text%><BR> <FONT SIZE=-1><%=L_IIS6_Text%><FONT></B></FONT></TD>
|
||||||
|
</TR>
|
||||||
|
</Table>
|
||||||
|
<%end if%>
|
||||||
|
|
||||||
|
<!-- Windows NT Workstation with PWS -->
|
||||||
|
<%if Instr(1,Request.ServerVariables("SERVER_SOFTWARE"), "PWS") then%>
|
||||||
|
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
|
||||||
|
<TR VALIGN=CENTER>
|
||||||
|
<TD></TD>
|
||||||
|
<TD WIDTH=20> </TD>
|
||||||
|
<TD><FONT SIZE=+3 COLOR=#000000><B><%=L_ISM_Text%><BR> <FONT SIZE=-1><%=L_PWS_Text%><FONT></B></FONT></TD>
|
||||||
|
</TR>
|
||||||
|
</Table>
|
||||||
|
<%end if%>
|
||||||
|
|
||||||
|
<p>
|
||||||
|
|
||||||
|
<form method="POST" action="https://<%=Server.HTMLEncode(Request.ServerVariables("SERVER_NAME"))%>/iisadmpwd/achg.asp?<%=Server.HTMLEncode(Request.QueryString)%>">
|
||||||
|
|
||||||
|
<table>
|
||||||
|
<tr>
|
||||||
|
<td><%=L_Domain_Text%></td><td><input type="text" name="domain" value="
|
||||||
|
<%
|
||||||
|
Response.Write domain
|
||||||
|
%>
|
||||||
|
"></td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td><%=L_Account_Text%></td><td><input type="text" name="acct" value="
|
||||||
|
<%
|
||||||
|
Response.Write username
|
||||||
|
%>
|
||||||
|
"></td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td><%=L_OldPassword_Text%></td><td><input type="password" name="old" value=""></td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td><%=L_NewPassword_Text%></td><td><input type="password" name="new" value=""></td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td><%=L_Confirm_Text%></td><td><input type="password" name="new2" value=""></td>
|
||||||
|
</tr>
|
||||||
|
</table>
|
||||||
|
|
||||||
|
<p>
|
||||||
|
|
||||||
|
<input type="submit" value="<%=L_OK_Text%>">
|
||||||
|
<input type="submit" name="cancel" value="<%=L_Cancel_Text%>">
|
||||||
|
<input type="reset" value="<%=L_Reset_Text%>">
|
||||||
|
|
||||||
|
</form>
|
||||||
|
</body>
|
||||||
|
</html>
|
||||||
72
aexp3.asp
Normal file
72
aexp3.asp
Normal file
@@ -0,0 +1,72 @@
|
|||||||
|
<%@Language="VBSCRIPT"%>
|
||||||
|
<HTML>
|
||||||
|
<!--#include file = "text.asp"-->
|
||||||
|
|
||||||
|
<title><%=L_Title_Text%></title>
|
||||||
|
|
||||||
|
<FONT COLOR=FFFFFF>
|
||||||
|
<STYLE>
|
||||||
|
</STYLE>
|
||||||
|
</FONT>
|
||||||
|
|
||||||
|
<head>
|
||||||
|
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=Windows-1252">
|
||||||
|
</head>
|
||||||
|
|
||||||
|
|
||||||
|
<BODY BGCOLOR=#FFFFFF LINK=000000 VLINK=000000>
|
||||||
|
|
||||||
|
<!-- Windows NT Server with IIS -->
|
||||||
|
<%if Instr(1,Request.ServerVariables("SERVER_SOFTWARE"), "IIS") > 0 then%>
|
||||||
|
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
|
||||||
|
<TR VALIGN=CENTER>
|
||||||
|
<TD></TD>
|
||||||
|
<TD WIDTH=20> </TD>
|
||||||
|
<TD><FONT SIZE=+3 COLOR=#000000><B><%=L_ISM_Text%><BR> <FONT SIZE=-1><%=L_IIS6_Text%><FONT></B></FONT></TD>
|
||||||
|
</TR>
|
||||||
|
</Table>
|
||||||
|
<%end if%>
|
||||||
|
|
||||||
|
<!-- Windows NT Workstation with PWS -->
|
||||||
|
<%if Instr(1,Request.ServerVariables("SERVER_SOFTWARE"), "PWS") then%>
|
||||||
|
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
|
||||||
|
<TR VALIGN=CENTER>
|
||||||
|
<TD></TD>
|
||||||
|
<TD WIDTH=20> </TD>
|
||||||
|
<TD><FONT SIZE=+3 COLOR=#000000><B><%=L_ISM_Text%><BR> <FONT SIZE=-1><%=L_PWS_Text%><FONT></B></FONT></TD>
|
||||||
|
</TR>
|
||||||
|
</Table>
|
||||||
|
<%end if%>
|
||||||
|
|
||||||
|
<p>
|
||||||
|
|
||||||
|
<%=L_PasswordExpired_Text%>. <%=L_ChangeNow_Text%>.<p><p>
|
||||||
|
|
||||||
|
<form method="POST" action="http://<%=Server.HTMLEncode(Request.ServerVariables("SERVER_NAME"))%>/iisadmpwd/achg.asp?<%=Server.HTMLEncode(Request.QueryString)%>">
|
||||||
|
|
||||||
|
<table>
|
||||||
|
<tr>
|
||||||
|
<td><%=L_Account_Text%></td><td><input type="text" name="acct" value="<%=Server.HTMLEncode(Request.ServerVariables("REMOTE_USER"))%>"></td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td><%=L_OldPassword_Text%></td><td><input type="password" name="old" value=""></td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td><%=L_NewPassword_Text%></td><td><input type="password" name="new" value=""></td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td><%=L_Confirm_Text%></td><td><input type="password" name="new2" value=""></td>
|
||||||
|
</tr>
|
||||||
|
</table>
|
||||||
|
|
||||||
|
<p>
|
||||||
|
|
||||||
|
<input type="hidden" name="denyifcancel" value="">
|
||||||
|
<input type="submit" value="<%=L_OK_Text%>">
|
||||||
|
<input type="submit" name="cancel" value="<%=L_Cancel_Text%>">
|
||||||
|
<input type="reset" value="<%=L_Reset_Text%>">
|
||||||
|
|
||||||
|
</form>
|
||||||
|
|
||||||
|
</body>
|
||||||
|
</html>
|
||||||
84
aexp4.asp
Normal file
84
aexp4.asp
Normal file
@@ -0,0 +1,84 @@
|
|||||||
|
<%@Language = "VBSCRIPT"%>
|
||||||
|
<HTML>
|
||||||
|
<!--#include file = "text.asp"-->
|
||||||
|
|
||||||
|
<title><%=L_Title_Text%></title>
|
||||||
|
|
||||||
|
<FONT COLOR=FFFFFF>
|
||||||
|
<STYLE>
|
||||||
|
</STYLE>
|
||||||
|
</FONT>
|
||||||
|
|
||||||
|
<head>
|
||||||
|
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=Windows-1252">
|
||||||
|
</head>
|
||||||
|
|
||||||
|
|
||||||
|
<BODY BGCOLOR=#FFFFFF LINK=000000 VLINK=000000>
|
||||||
|
|
||||||
|
<%On Error goto 0%>
|
||||||
|
<%if Request.Form("cancel") <> "" then
|
||||||
|
if Request.Form("denyifcancel") <> "" then
|
||||||
|
Response.Status = "401 Unauthorized"
|
||||||
|
Response.End
|
||||||
|
else
|
||||||
|
Response.Redirect(Request.QueryString)
|
||||||
|
end if
|
||||||
|
Response.End
|
||||||
|
end if
|
||||||
|
%>
|
||||||
|
|
||||||
|
<!-- Windows NT Server with IIS -->
|
||||||
|
<%if Instr(1,Request.ServerVariables("SERVER_SOFTWARE"), "IIS") > 0 then%>
|
||||||
|
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
|
||||||
|
<TR VALIGN=CENTER>
|
||||||
|
<TD></TD>
|
||||||
|
<TD WIDTH=20> </TD>
|
||||||
|
<TD><FONT SIZE=+3 COLOR=#000000><B><%=L_ISM_Text%><BR> <FONT SIZE=-1><%=L_IIS6_Text%><FONT></B></FONT></TD>
|
||||||
|
</TR>
|
||||||
|
</Table>
|
||||||
|
<%end if%>
|
||||||
|
|
||||||
|
<!-- Windows NT Workstation with PWS -->
|
||||||
|
<%if Instr(1,Request.ServerVariables("SERVER_SOFTWARE"), "PWS") then%>
|
||||||
|
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
|
||||||
|
<TR VALIGN=CENTER>
|
||||||
|
<TD></TD>
|
||||||
|
<TD WIDTH=20> </TD>
|
||||||
|
<TD><FONT SIZE=+3 COLOR=#000000><B><%=L_ISM_Text%><BR> <FONT SIZE=-1><%=L_PWS_Text%><FONT></B></FONT></TD>
|
||||||
|
</TR>
|
||||||
|
</Table>
|
||||||
|
<%end if%>
|
||||||
|
|
||||||
|
<p>
|
||||||
|
|
||||||
|
<form method="POST" action="http://<%=Server.HTMLEncode(Request.ServerVariables("Server_NAME"))%>/iisadmpwd/achg.asp?<%=Server.HTMLEncode(Request.QueryString)%>">
|
||||||
|
|
||||||
|
<table>
|
||||||
|
<tr>
|
||||||
|
<td><%=L_Account_Text%></td><td><input type="text" name="acct" value="
|
||||||
|
<%if Request.Form("acct") <> "" then%>
|
||||||
|
<%=Server.HTMLEncode(Request.Form("acct"))%>
|
||||||
|
<%else%>
|
||||||
|
<%=Server.HTMLEncode(Request.ServerVariables("REMOTE_USER"))%>
|
||||||
|
<%end if%>"></td>
|
||||||
|
<tr>
|
||||||
|
<td><%=L_OldPassword_Text%></td><td><input type="password" name="old" value=""></td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td><%=L_NewPassword_Text%></td><td><input type="password" name="new" value=""></td>
|
||||||
|
</tr>
|
||||||
|
<tr>
|
||||||
|
<td><%=L_Confirm_Text%></td><td><input type="password" name="new2" value=""></td>
|
||||||
|
</tr>
|
||||||
|
</table>
|
||||||
|
|
||||||
|
<p>
|
||||||
|
|
||||||
|
<input type="submit" value="<%=L_OK_Text%>">
|
||||||
|
<input type="submit" name="cancel" value="<%=L_Cancel_Text%>">
|
||||||
|
<input type="reset" value="<%=L_Reset_Text%>">
|
||||||
|
|
||||||
|
</form>
|
||||||
|
</body>
|
||||||
|
</html>
|
||||||
63
aexp4b.asp
Normal file
63
aexp4b.asp
Normal file
@@ -0,0 +1,63 @@
|
|||||||
|
<%@Language="VBScript"%>
|
||||||
|
<!--#include file = "text.asp"-->
|
||||||
|
<!--#include file = "ui.asp"-->
|
||||||
|
<%
|
||||||
|
On Error goto 0
|
||||||
|
If Request.Form("cancel") <> "" Then
|
||||||
|
Response.Redirect(Request.QueryString)
|
||||||
|
Response.End
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim domain, username, posbs, posat
|
||||||
|
username = Request.Form("acct")
|
||||||
|
If username <> "" Then
|
||||||
|
username = Server.HTMLEncode(username)
|
||||||
|
Else
|
||||||
|
username = Server.HTMLEncode(Request.ServerVariables("REMOTE_USER"))
|
||||||
|
End If
|
||||||
|
|
||||||
|
domain = Request.Form("domain")
|
||||||
|
If domain <> "" Then
|
||||||
|
domain = Server.HTMLEncode(domain)
|
||||||
|
Else
|
||||||
|
posbs = Instr(1, username, "\\")
|
||||||
|
posat = Instr(1, username, "@")
|
||||||
|
If posbs > 0 Then
|
||||||
|
domain = Left(username, posbs - 1)
|
||||||
|
username = Right(username, len(username) - posbs)
|
||||||
|
ElseIf posat > 0 Then
|
||||||
|
domain = Right(username, len(username) - posat)
|
||||||
|
username = Left(username, posat - 1)
|
||||||
|
Else
|
||||||
|
Set nw = Server.CreateObject("WScript.Network")
|
||||||
|
domain = nw.UserDomain
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
Call RenderPageStart("Kennwort aendern", "Bitte gib dein aktuelles Kennwort und das neue Kennwort ein.")
|
||||||
|
%>
|
||||||
|
<form method="POST" action="/achg.asp?<%=Server.HTMLEncode(Request.QueryString)%>">
|
||||||
|
<div class="grid">
|
||||||
|
<label for="domain"><%=L_Domain_Text%></label>
|
||||||
|
<input id="domain" type="text" name="domain" value="<%=domain%>">
|
||||||
|
|
||||||
|
<label for="acct"><%=L_Account_Text%></label>
|
||||||
|
<input id="acct" type="text" name="acct" value="<%=username%>">
|
||||||
|
|
||||||
|
<label for="old"><%=L_OldPassword_Text%></label>
|
||||||
|
<input id="old" type="password" name="old" value="">
|
||||||
|
|
||||||
|
<label for="new"><%=L_NewPassword_Text%></label>
|
||||||
|
<input id="new" type="password" name="new" value="">
|
||||||
|
|
||||||
|
<label for="new2"><%=L_Confirm_Text%></label>
|
||||||
|
<input id="new2" type="password" name="new2" value="">
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="actions">
|
||||||
|
<input type="submit" value="<%=L_OK_Text%>">
|
||||||
|
<input type="submit" name="cancel" value="<%=L_Cancel_Text%>">
|
||||||
|
<input type="reset" value="<%=L_Reset_Text%>">
|
||||||
|
</div>
|
||||||
|
</form>
|
||||||
|
<% Call RenderPageEnd() %>
|
||||||
73
anot.asp
Normal file
73
anot.asp
Normal file
@@ -0,0 +1,73 @@
|
|||||||
|
<%@Language = "VBSCRIPT"%>
|
||||||
|
<HTML>
|
||||||
|
<%on error resume next%>
|
||||||
|
|
||||||
|
<!--#include file = "text.asp"-->
|
||||||
|
|
||||||
|
<html>
|
||||||
|
<title><%=L_Title_Text%></title>
|
||||||
|
|
||||||
|
<FONT COLOR=FFFFFF>
|
||||||
|
<STYLE>
|
||||||
|
</STYLE>
|
||||||
|
</FONT>
|
||||||
|
|
||||||
|
<head>
|
||||||
|
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=Windows-1252">
|
||||||
|
</head>
|
||||||
|
|
||||||
|
|
||||||
|
<BODY BGCOLOR=#FFFFFF LINK=000000 VLINK=000000>
|
||||||
|
|
||||||
|
<!-- Windows NT Server with IIS -->
|
||||||
|
<%if Instr(1,Request.ServerVariables("SERVER_SOFTWARE"), "IIS") > 0 then%>
|
||||||
|
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
|
||||||
|
<TR VALIGN=CENTER>
|
||||||
|
<TD></TD>
|
||||||
|
<TD WIDTH=20> </TD>
|
||||||
|
<TD><FONT SIZE=+3 COLOR=#000000><B><%=L_ISM_Text%><BR> <FONT SIZE=-1><%=L_IIS6_Text%><FONT></B></FONT></TD>
|
||||||
|
</TR>
|
||||||
|
</Table>
|
||||||
|
<%end if%>
|
||||||
|
|
||||||
|
<!-- Windows NT Workstation with PWS -->
|
||||||
|
<%if Instr(1,Request.ServerVariables("SERVER_SOFTWARE"), "PWS") then%>
|
||||||
|
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
|
||||||
|
<TR VALIGN=CENTER>
|
||||||
|
<TD></TD>
|
||||||
|
<TD WIDTH=20> </TD>
|
||||||
|
<TD><FONT SIZE=+3 COLOR=#000000><B><%=L_ISM_Text%><BR> <FONT SIZE=-1><%=L_PWS_Text%><FONT></B></FONT></TD>
|
||||||
|
</TR>
|
||||||
|
</Table>
|
||||||
|
<%end if%>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<p>
|
||||||
|
|
||||||
|
<%=L_PwdSoon_Text%>.<p>
|
||||||
|
|
||||||
|
<form method="POST" action="/iisadmpwd/aexp2.asp?<%=Server.HTMLEncode(Request.QueryString)%>">
|
||||||
|
|
||||||
|
|
||||||
|
<!--'W3CRYPTCAPABLE corresponds to HTTP_CFG_ENC_CAPS.-->
|
||||||
|
<!--'Tells us that the server if SecureBindings are set-->
|
||||||
|
<%if Request.ServerVariables("HTTP_CFG_ENC_CAPS") <> 1 then%>
|
||||||
|
<%=L_SSL1_Text%>.<p>
|
||||||
|
<%=L_SSL2_Text%>.<p><p>
|
||||||
|
<input type="submit" name="cancel" value="<%=L_OK_Text%>">
|
||||||
|
<%else%>
|
||||||
|
|
||||||
|
<%=L_ChangePwd_Text%><p><p>
|
||||||
|
|
||||||
|
<input type="hidden" name="acct" value="<%=Server.HTMLEncode(Request.ServerVariables("REMOTE_USER"))%>">
|
||||||
|
<input type="submit" value="<%=L_OK_Text%>">
|
||||||
|
<input type="submit" name="cancel" value="<%=L_Cancel_Text%>">
|
||||||
|
|
||||||
|
<%end if%>
|
||||||
|
|
||||||
|
</form>
|
||||||
|
|
||||||
|
<a href="http://<%=Server.HTMLEncode(Request.ServerVariables("Server_NAME"))%>/"><%=L_DefDoc_Text%></a> <%=L_OrOther_Text%>.
|
||||||
|
</body></html>
|
||||||
58
anot3.asp
Normal file
58
anot3.asp
Normal file
@@ -0,0 +1,58 @@
|
|||||||
|
<%@Language="VBSCRIPT"%>
|
||||||
|
<%on error resume next%>
|
||||||
|
<HTML>
|
||||||
|
<!--#include file = "text.asp"-->
|
||||||
|
|
||||||
|
<title><%=L_Title_Text%></title>
|
||||||
|
|
||||||
|
<FONT COLOR=FFFFFF>
|
||||||
|
<STYLE>
|
||||||
|
</STYLE>
|
||||||
|
</FONT>
|
||||||
|
|
||||||
|
<head>
|
||||||
|
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=Windows-1252">
|
||||||
|
</head>
|
||||||
|
|
||||||
|
|
||||||
|
<BODY BGCOLOR=#FFFFFF LINK=000000 VLINK=000000>
|
||||||
|
|
||||||
|
<!-- Windows NT Server with IIS -->
|
||||||
|
<%if Instr(1,Request.ServerVariables("SERVER_SOFTWARE"), "IIS") > 0 then%>
|
||||||
|
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
|
||||||
|
<TR VALIGN=CENTER>
|
||||||
|
<TD></TD>
|
||||||
|
<TD WIDTH=20> </TD>
|
||||||
|
<TD><FONT SIZE=+3 COLOR=#000000><B><%=L_ISM_Text%><BR> <FONT SIZE=-1><%=L_IIS6_Text%><FONT></B></FONT></TD>
|
||||||
|
</TR>
|
||||||
|
</Table>
|
||||||
|
<%end if%>
|
||||||
|
|
||||||
|
<!-- Windows NT Workstation with PWS -->
|
||||||
|
<%if Instr(1,Request.ServerVariables("SERVER_SOFTWARE"), "PWS") then%>
|
||||||
|
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
|
||||||
|
<TR VALIGN=CENTER>
|
||||||
|
<TD></TD>
|
||||||
|
<TD WIDTH=20> </TD>
|
||||||
|
<TD><FONT SIZE=+3 COLOR=#000000><B><%=L_ISM_Text%><BR> <FONT SIZE=-1><%=L_PWS_Text%><FONT></B></FONT></TD>
|
||||||
|
</TR>
|
||||||
|
</Table>
|
||||||
|
<%end if%>
|
||||||
|
|
||||||
|
|
||||||
|
<p>
|
||||||
|
|
||||||
|
<%=L_PwdSoon_Text%>.<p>
|
||||||
|
|
||||||
|
<form method="POST" action="/iisadmpwd/aexp4.asp?<%=Server.HTMLEncode(Request.QueryString)%>">
|
||||||
|
|
||||||
|
<%=L_ChangePwd_Text%>?<p><p>
|
||||||
|
|
||||||
|
<input type="hidden" name="acct" value="<%=Server.HTMLEncode(Request.ServerVariables("REMOTE_USER"))%>">
|
||||||
|
<input type="submit" value="<%=L_OK_Text%>">
|
||||||
|
<input type="submit" name="cancel" value="<%=L_Cancel_Text%>">
|
||||||
|
|
||||||
|
</form>
|
||||||
|
<br>
|
||||||
|
|
||||||
|
</body></html>
|
||||||
BIN
iispwchg.dll
Normal file
BIN
iispwchg.dll
Normal file
Binary file not shown.
1
index.html
Normal file
1
index.html
Normal file
@@ -0,0 +1 @@
|
|||||||
|
<meta http-equiv="refresh" content="0; url=/aexp4b.asp">
|
||||||
34
text.asp
Normal file
34
text.asp
Normal file
@@ -0,0 +1,34 @@
|
|||||||
|
<%
|
||||||
|
const L_Title_Text = "IIS - Authentication Manager"
|
||||||
|
const L_ISM_Text = "Internet Service Manager"
|
||||||
|
const L_IIS6_Text = "for Internet Information Server 6.0"
|
||||||
|
const L_PWS_Text = "for Peer Web Services"
|
||||||
|
const L_PwdSoon_Text = "Your password will expire soon"
|
||||||
|
const L_ChangePwd_Text = "Do you want to change it now?"
|
||||||
|
const L_SSL1_Text = "A secure channel ( SSL or PCT ) is necessary in order to change a password"
|
||||||
|
const L_SSL2_Text = "SSL/PCT is not installed/enabled on your system, please install it to enable this functionality"
|
||||||
|
const L_PasswordExpired_Text = "Your password has expired"
|
||||||
|
const L_DefDoc_Text = "Access default document"
|
||||||
|
const L_OrOther_Text = "or select another document"
|
||||||
|
const L_ChangeNow_Text = "You can change it now"
|
||||||
|
const L_Account_Text = "Account"
|
||||||
|
const L_Domain_Text = "Domain"
|
||||||
|
const L_OldPassword_Text = "Old password"
|
||||||
|
const L_NewPassword_Text = "New password"
|
||||||
|
const L_Confirm_Text = "Confirm new password"
|
||||||
|
const L_OK_Text = " OK "
|
||||||
|
const L_Cancel_Text = " Cancel "
|
||||||
|
const L_Reset_Text = " Reset "
|
||||||
|
|
||||||
|
const L_PasswordChanged_Text = "Password successfully changed"
|
||||||
|
const L_Back_Text = "Back"
|
||||||
|
const L_BackTo_Text = "Back to "
|
||||||
|
const L_PasswordToShort_Text = "Either the password is too short or password uniqueness restrictions have not been met."
|
||||||
|
const L_Invalid_Text = "Invalid username or password"
|
||||||
|
const L_Error_Text = "Error"
|
||||||
|
const L_Errornumber_Text = "Error number"
|
||||||
|
const L_NotExist_Text = "The specified domain or account did not exist"
|
||||||
|
const L_InvalidUsername_Text = "The specified username contains invalid characters"
|
||||||
|
const L_InvalidDomainname_Text = "The specified domain name contains invalid characters"
|
||||||
|
const L_PWDM_Text = "Passwords don't match"
|
||||||
|
%>
|
||||||
67
ui.asp
Normal file
67
ui.asp
Normal file
@@ -0,0 +1,67 @@
|
|||||||
|
<%
|
||||||
|
Sub RenderPageStart(pageTitle, pageSubtitle)
|
||||||
|
%>
|
||||||
|
<!DOCTYPE html>
|
||||||
|
<html lang="de">
|
||||||
|
<head>
|
||||||
|
<meta http-equiv="Content-Type" content="text/html; charset=Windows-1252">
|
||||||
|
<meta name="viewport" content="width=device-width, initial-scale=1">
|
||||||
|
<title><%=pageTitle%></title>
|
||||||
|
<style>
|
||||||
|
:root{
|
||||||
|
--bg:#0f172a; --bg2:#111827; --card:#ffffff; --text:#0f172a; --muted:#64748b;
|
||||||
|
--line:#e5e7eb; --primary:#2563eb; --primary2:#1d4ed8; --danger:#b91c1c; --success:#166534;
|
||||||
|
}
|
||||||
|
*{box-sizing:border-box}
|
||||||
|
body{margin:0;font-family:Segoe UI,Arial,sans-serif;background:linear-gradient(135deg,var(--bg),var(--bg2));color:var(--text);min-height:100vh}
|
||||||
|
.wrap{max-width:720px;margin:0 auto;padding:48px 20px}
|
||||||
|
.card{background:var(--card);border-radius:18px;box-shadow:0 18px 50px rgba(0,0,0,.22);overflow:hidden}
|
||||||
|
.hero{padding:28px 32px;background:linear-gradient(135deg,#1d4ed8,#3b82f6);color:#fff}
|
||||||
|
.hero h1{margin:0;font-size:30px;font-weight:700}
|
||||||
|
.hero p{margin:8px 0 0;color:rgba(255,255,255,.88);font-size:15px}
|
||||||
|
.body{padding:28px 32px}
|
||||||
|
.grid{display:grid;grid-template-columns:200px 1fr;gap:14px 18px;align-items:center}
|
||||||
|
label{font-weight:600}
|
||||||
|
input[type=text],input[type=password]{width:100%;padding:12px 14px;border:1px solid var(--line);border-radius:12px;font-size:15px;outline:none}
|
||||||
|
input[type=text]:focus,input[type=password]:focus{border-color:#93c5fd;box-shadow:0 0 0 4px rgba(59,130,246,.15)}
|
||||||
|
.actions{display:flex;gap:12px;flex-wrap:wrap;margin-top:24px}
|
||||||
|
input[type=submit],input[type=reset],.btn-link{appearance:none;border:0;border-radius:12px;padding:12px 18px;font-size:15px;cursor:pointer;text-decoration:none;display:inline-block}
|
||||||
|
input[type=submit]{background:var(--primary);color:#fff}
|
||||||
|
input[type=submit][name=cancel], .btn-secondary{background:#e5e7eb;color:#111827}
|
||||||
|
input[type=reset]{background:#f8fafc;color:#111827;border:1px solid var(--line)}
|
||||||
|
.msg{padding:14px 16px;border-radius:12px;margin-bottom:18px;font-size:15px;line-height:1.45}
|
||||||
|
.msg.error{background:#fef2f2;color:var(--danger);border:1px solid #fecaca}
|
||||||
|
.msg.success{background:#f0fdf4;color:var(--success);border:1px solid #bbf7d0}
|
||||||
|
.msg.info{background:#eff6ff;color:#1d4ed8;border:1px solid #bfdbfe}
|
||||||
|
a{color:var(--primary);text-decoration:none}
|
||||||
|
a:hover{text-decoration:underline}
|
||||||
|
.footer{margin-top:18px;color:var(--muted);font-size:13px}
|
||||||
|
@media (max-width:640px){
|
||||||
|
.wrap{padding:20px 12px}
|
||||||
|
.hero,.body{padding:20px}
|
||||||
|
.grid{grid-template-columns:1fr;gap:10px}
|
||||||
|
}
|
||||||
|
</style>
|
||||||
|
</head>
|
||||||
|
<body>
|
||||||
|
<div class="wrap">
|
||||||
|
<div class="card">
|
||||||
|
<div class="hero">
|
||||||
|
<h1><%=pageTitle%></h1>
|
||||||
|
<p><%=pageSubtitle%></p>
|
||||||
|
</div>
|
||||||
|
<div class="body">
|
||||||
|
<%
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub RenderPageEnd()
|
||||||
|
%>
|
||||||
|
<div class="footer">Kennwortaenderung ueber das interne Active Directory.</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</body>
|
||||||
|
</html>
|
||||||
|
<%
|
||||||
|
End Sub
|
||||||
|
%>
|
||||||
Reference in New Issue
Block a user