Som jeg skrev er det ikke det hele der virker, eller jeg er sikker på virker, det er også lidt svært at give koden her, men jeg kan poste det vigtige af det, så kan du selv sætte det sammen og ændre det som du ønsker.
Koden til siden der læser fra filen og viser baggrunds billedet, så det er bare en alm. asp fil.
Beskrivelse: Første del går ned finder filen background.txt i mappen backgroundfile og læser den, den sætter så variablen Line og det er denne der indsættes nede som baggrundsbillede, da indholdet af filen bare er en linie med et billede navn.
Næste del er så bare scripts og styling, der er script for at baggrunden er responsive og ændre størrelse så den passer på skærmen hvis man resizer sit vindue op eller ned.
Sidste del er selve baggrundsbilledet der indsættes med parametren fra filen.
<%
Const Filename = "background.txt" ' file to read
Const ForReading = 1
Const TristateUseDefault = -2
' Create a filesystem object
Dim FSO
set FSO = server.createObject("Scripting.FileSystemObject")
' Map the logical path to the physical system path
Dim Filepath
Filepath = Server.MapPath("\") & "/background/backgroundsfile/" & Filename
'Filepath = Server.MapPath(Filename)
if FSO.FileExists(Filepath) Then
' Get a handle to the file
Dim file
set file = FSO.GetFile(Filepath)
' Open the file
Dim TextStream
Set TextStream = file.OpenAsTextStream(ForReading, TristateUseDefault)
' Read the file line by line
Do While Not TextStream.AtEndOfStream
Dim Line
Line = TextStream.readline
' Do something with "Line"
Line = Line & vbCRLF
Loop
Set TextStream = nothing
End If
%>
<html>
<head>
<title>Test Background</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="robots" content="noindex, nofollow" />
<style type="text/css">
body,td,th {
font-size: 11px;
font-family: Arial, Helvetica, sans-serif;
color: #000000;
}
body {
background-color: #333;
margin: 0px;
}
#bg { position: fixed; top: 0; left: 0; }
.bgwidth { width: 100%; }
.bgheight { height: 100%; }
</style>
<script type="text/javascript" src="
https://ajax.googleapis.com/ajax/libs/jquery/1.9.1/jquery.min.js"></script><script type="text/javascript" language="javascript">
$(window).load(function() {
var theWindow = $(window),
$bg = $("#bg"),
aspectRatio = $bg.width() / $bg.height();
function resizeBg() {
if ( (theWindow.width() / theWindow.height()) < aspectRatio ) {
$bg
.removeClass()
.addClass('bgheight');
} else {
$bg
.removeClass()
.addClass('bgwidth');
}
}
theWindow.resize(function() {
resizeBg();
}).trigger("resize");
});
</script>
</head>
<body>
<img src="backgrounds/<%= Line %>" id="bg" class="bgwidth" />
</body>
</html>
Login til administrationsdelen.
Beskrivelse:
Første del er selve tjekket, dvs. at formen på siden kalder samme side og hvis man har leveret de oplysninger man skulle, så bliver man sendt videre til default.asp ellers bliver man på siden her og får en fejl besked
<%
Msg = CStr(Request.QueryString("Msg"))
if request ("mode") = "login" then
Login = Request.Form("bruger")
Password = Request.Form("pass")
'Hvis brugeren er korrekt
if Login = "test" and Password = "testtest" then
session("login") = True
Response.redirect "default.asp"
else
'Hvis brugeren ikke var i databasen
Response.redirect "log.asp?Msg=Forkert Brugernavn og/eller Adgangskode"
end if
end if
%>
<html>
<head>
<title>Test - Login</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="robots" content="noindex, nofollow" />
<link href='
http://fonts.googleapis.com/css?family=Linden+Hill' rel='stylesheet' type='text/css'>
<style type="text/css">
body,td,th {
font-size: 11px;
font-family: Arial, Helvetica, sans-serif;
color: #000000;
}
body {
background-color: #333;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
#wrapper {
position:absolute;
margin:auto 0;
width:500px;
background-color:white;
-moz-border-radius:0.5em;
border-radius:0.5em;
padding:50px;
top:100px;
left:50%;
margin-left:-300px;
z-index:20;
}
#infopane {
width: 130px;
margin:auto 0;
float:left;
padding:30px;
}
#functionpane {
width: 200px;
float:left;
padding:10px;
}
.inputfieldBlue {
background:#FFF;
border: 1px solid #CCC;
-moz-border-radius:0.5em;
border-radius:0.5em;
color:#999;
width: 150px;
height: 25px;
padding: 4px;
}
#bg { position: fixed; top: 0; left: 0; }
.bgwidth { width: 100%; }
.bgheight { height: 100%; }
#header h2 {
font-family: 'Linden Hill', Arial, serif;
font-weight:400;
font-size:26px;
margin:0;
padding:0;
}
</style>
<script type="text/javascript" src="
https://ajax.googleapis.com/ajax/libs/jquery/1.9.1/jquery.min.js"></script><script type="text/javascript" language="javascript">
function loginClear(inputField)
{
switch(inputField)
{
case "bruger":
if (document.getElementById(inputField).value == "Brugernavn")
{
document.getElementById(inputField).value = ""
}
break;
case "pass":
if (document.getElementById(inputField).value == "Kodeord")
{
document.getElementById(inputField).value = ""
}
break;
default:
}
}
function loginFill(inputField)
{
switch(inputField)
{
case "bruger":
if (document.getElementById(inputField).value == "")
{
document.getElementById(inputField).value = "Brugernavn"
}
break;
case "pass":
if (document.getElementById(inputField).value == "")
{
document.getElementById(inputField).value = "Kodeord"
}
break;
default:
}
}
$(window).load(function() {
var theWindow = $(window),
$bg = $("#bg"),
aspectRatio = $bg.width() / $bg.height();
function resizeBg() {
if ( (theWindow.width() / theWindow.height()) < aspectRatio ) {
$bg
.removeClass()
.addClass('bgheight');
} else {
$bg
.removeClass()
.addClass('bgwidth');
}
}
theWindow.resize(function() {
resizeBg();
}).trigger("resize");
});
</script>
</head>
<body>
<img src="images/background.jpg" id="bg" class="bgwidth" />
<form action="log.asp" method="post">
<input type="hidden" Name="Mode" Value="login">
<div id="wrapper">
<div id="infopane">
<img src="images/lock.png" width="128" height="128">
</div>
<div id="functionpane">
<table border="0" cellpadding="5" cellspacing="0" align="center">
<tr>
<td id="header"><h2>ADMINISTRATOR LOGIN</h2></td>
</tr>
<tr>
<td class="redtext"><%= Msg %></td>
</tr>
<tr>
<td class="whitetext"><input name="bruger" type="text" id="bruger" value="Brugernavn" onFocus="loginClear('bruger');" onBlur="loginFill('bruger');" class="inputfieldBlue"></td>
</tr>
<tr>
<td class="whitetext"><input name="pass" type="password" id="pass" value="Kodeord" onFocus="loginClear('pass');" onBlur="loginFill('pass');" class="inputfieldBlue"></td>
</tr>
<tr>
<td><input type="submit" name="Submit" value=" Login " class="inputfieldBlue"></td>
</tr>
</table>
</div>
<div style="clear:both;"></div>
</div>
</form>
</body>
</html>
Administrationssiden:
Her loader den egentlig bare filerne fra mappen med billeder, men den gør ikke andet, da jeg som sagt ikke kan skrive til textfilen, hvilket billede den skal vælge.
<%
Const Filename = "background.txt" ' file to read
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
' Create a filesystem object
Dim FSO
set FSO = server.createObject("Scripting.FileSystemObject")
' Map the logical path to the physical system path
Dim Filepath
Filepath = Server.MapPath("\") & "/background/backgroundsfile/" & Filename
'Filepath = Server.MapPath(Filename)
if FSO.FileExists(Filepath) Then
' Get a handle to the file
Dim file
set file = FSO.GetFile(Filepath)
' Open the file
Dim TextStream
Set TextStream = file.OpenAsTextStream(ForReading, TristateUseDefault)
' Read the file line by line
Do While Not TextStream.AtEndOfStream
Dim Line
Line = TextStream.readline
' Do something with "Line"
Line = Line & vbCRLF
Loop
Set TextStream = nothing
End If
dim thefolder, strfile
thefolder=server.mappath("\") &"/background/backgrounds/"
set f = FSO.getfolder(thefolder)
set fl = f.files ' list of files
for each strfile in fl
if left(Line,2) = left(strfile.name,2) then
response.write ("<div class='image-content active' data-image=''><div class='image-image'><img src='backgrounds/" & strfile.name & "' /></div><div class='image-icon hide'><img src='images/icon_pencil.png'></div></div>")
else
response.write ("<div class='image-content' data-image=''><div class='image-image'><img src='backgrounds/" & strfile.name & "' /></div><div class='image-icon hide'><img src='images/icon_pencil.png'></div></div>")
end if
next
set f = nothing
set fl = nothing
Set FSO = nothing
%>