Ok, her kommer hele kode:
ARTIKEL1.ASP:
<html>
<head>
<script language=javascript>
function start () {
setCounter();
showAlert();
}
function showAlert(){
<%
if not Request.Querystring("message") = "" then %>
alert('<%=Request.Querystring("message")%>')
<%
end if
%>
}
</script>
</head>
<body onLoad="start();">
<%
'if Request.QueryString("link") = "" then
'response.write "<script>alert('Linket er gået tabet - luk vinduet og forsøg igen');</script>"
'end if
%>
<script>
function validerIndtastet (methode) {
commonCheck();
//if (form.link.value.length == 0 ) {
//alert("Der opstod en ukendt fejl, da linket er gået tabet. Sluk vinduet og forsøg igen.");
//return false;
//}
if (form.sprog.value == "default") {
alert("Du mangler at angive et sprog.");
return false;
}
if (form.kategori.value == "default") {
alert("Du mangler at angive en kategori.");
return false;
}
// ************* TITEL ***************
if (form.titel.value.length == 0 ) {
alert("Du mangler at angive en titel.");
return false;
}
//maksimum
if (form.titel.value.length > 40) {
alert("Det er ikke muligt at angive en titel over 40 tegn.");
return false;
}
if (form.beskrivelse.value.length < 200) {
alert("Det er ikke muligt at angive en beskrivelse, som er under 200 tegn.");
return false;
}
if (form.beskrivelse.value.length == 0 ) {
alert("Du mangler at angive en beskrivelse.");
return false;
}
if (form.beskrivelse.value.length > 250) {
alert("Det er ikke muligt at angive en beskrivelse, som er over 250 tegn.");
return false;
}
if (methode != "onlyPic") {
if (form.link1.value != 0 && form.link2.value != 0) {
alert("Man kan ikke sende et nyt billede samtidigt med, at man ønsker at anvende et allerede sendt billede. Slet teksten i et af de to relevante felter, og prøv igen.")
return false;
}
if (form.link1.value == 0 && form.link2.value == 0) {
alert("Man skal enten vælge at sende et nyt billede eller at anvende et allerede sendt billede.")
return false;
}
if (form.link1.value != 0) {
var thisObjectValue = form.link1.value;
if (form.link1.value.substring(form.link1.value.lastIndexOf("\\"), form.link1.value.length).indexOf(" ") != -1) {
alert("Der kan ikke bruges filer, som har et mellemrum i filnavnet. Slet derfor mellemrummet i navnet på filen, som ligger på din computer og prøv igen.");
form.link1.focus();
return false;
}
if (form.link1.value.substring(form.link1.value.lastIndexOf("\\"), form.link1.value.length).search(/[æøå !@£%/i) != -1) {
alert("Der kan ikke bruges filer, som har tegnene 'æ, ø, å, !, @, £, %' i filnavnet. Slet derfor det eller de relevante tegn i navnet på filen, som ligger på din computer og prøv igen.");
form.link1.focus();
return false;
}
fil = thisObjectValue.substring(thisObjectValue.length-4).toLowerCase();
if (fil!=".jpg" && fil!=".gif"){
alert("Der kan kun bruges filer af typen .jpg og .gif!");
form.link1.focus();
return false;
}
}
}
return true;
}
function commonCheck () {
form = document.OpretArtikel;
//form.titel.value = form.titel.value.replace(".", "");
form.titel.value = form.titel.value.replace(/\./g, "");
form.titel.value = form.titel.value.charAt(0).toUpperCase() + form.titel.value.substring(1, form.titel.value.length);
form.beskrivelse.value = form.beskrivelse.value.charAt(0).toUpperCase() + form.beskrivelse.value.substring(1, form.beskrivelse.value.length);
if (form.titel.value.match(/[<]{1}[\w]*[>]{1}/i)) {
alert("Det er ikke tilladt at skrive kode i titlen. Slet venligst alt html-kode.");
return false;
}
if (form.beskrivelse.value.match(/[<]{1}[\w]*[>]{1}/i)) {
alert("Det er ikke tilladt at skrive kode i beskrivelsen. Slet venligst alt html-kode.");
return false;
}
form.titel.value = form.titel.value.replace(/&/g, "og");
form.beskrivelse.value = form.beskrivelse.value.replace(/&/g, "og");
if (document.OpretArtikel.beskrivelse.value.indexOf('\n') != -1) {
document.OpretArtikel.beskrivelse.value = document.OpretArtikel.beskrivelse.value.replace(/[\n\r]/g, ' ');
}
if (document.OpretArtikel.titel.value.indexOf(" ") != -1) {
document.OpretArtikel.titel.value = document.OpretArtikel.titel.value.replace(/ +/g, ' ');
}
if (document.OpretArtikel.beskrivelse.value.indexOf(" ") != -1) {
document.OpretArtikel.beskrivelse.value = document.OpretArtikel.beskrivelse.value.replace(/ +/g, ' ');
}
setCounter()
document.OpretArtikel.check.disabled = true
}
function setCounter() {
if (document.OpretArtikel.beskrivelse.value.length > 200)
document.OpretArtikel.counter1.value = 0
else
document.OpretArtikel.counter1.value = 200 - document.OpretArtikel.beskrivelse.value.length;
document.OpretArtikel.counter2.value = 250 - document.OpretArtikel.beskrivelse.value.length;
document.OpretArtikel.check.disabled = false
}
function hentBillede () {
//if (validerIndtastet("onlyPic")) {
commonCheck();
//form = document.OpretArtikel;
//window.location = 'artikel1-0.asp?sprog=' + form.sprog.selectedIndex + '&kategori=' + form.kategori.selectedIndex + '&titel=' + form.titel.value + '&beskrivelse=' + form.beskrivelse.value + '&linkType=' + form.linkType.value + '&link2=' + form.link2.value + '&datoPublikation=' + form.datoPublikation.selectedIndex + '&link=' + document.OpretArtikel.link.value
document.OpretArtikel.action = "artikel1-0.asp";
document.OpretArtikel.submit();
//}
}
//function finalCheck () {
//form = document.OpretArtikel;
//window.location = 'artikel1-2.asp?kategori=' + form.kategori.selectedIndex + '&titel=' + form.titel.value + '&beskrivelse=' + form.beskrivelse.value + '&link1=' + form.link1.value + '&link2=' + form.link2.value + '&linkType=' + form.linkType.value + '&datoPublikation=' + form.datoPublikation.selectedIndex
//}
function aaben(linkA, linkB) {
//linkA.value = null;disabled = false;
linkB.value = "";
}
</script>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="100%">
<tr>
</td>
<td width="30%" valign="top" height="100%">
<form method="POST" name="OpretArtikel" onSubmit="return validerIndtastet();" enctype="multipart/form-data" action="artikel2.asp">
<fieldset style="padding: 2">
<legend align="center"> </legend>
<blockquote>
<font face="Trebuchet MS"><font size="2"></font>
<p><b><font size="2">Oprettelsen af henvisning er igang</font></b></p>
<p><font size="2">Vejledning til nye brugere - <a href="artikel1-1.asp">klik
her</a>!</font></p>
<p><font size="2">Når du har indskrevet en tekst til henvisningen, <br>
kan du klikke på 'Ret'. På den måde retter systemet <br>
teksten i din henvisning, så den bliver oprettet korrekt - <br>
både teknisk og layoutmæssigt. </font></p>
<p><font size="2">Hvad systemet ikke hjælper med til, er formuleringen, <br>
grammatikken, stavningen osv., så det er derfor <u><br>
meget vigtigt</u>, at du er <u>yderst omhyggelig</u> hermed. <br>
Redaktionen læser ikke korrektur på de oprettede <br>
henvisninger.</font></p>
<p><font size="2">Sprog</font><br>
<select size="1" name="sprog">
<option selected value="default">Vælg her</option>
<option value="dansk">Dansk</option>
<option value="norsk">Norsk</option>
<option value="svensk">Svensk</option>
<option value="engelsk">Engelsk</option>
</select></p>
<p><font size="2">Kategori<br>
</font>
<select size="1" name="kategori" style="font-size:10pt; font-family:Trebuchet MS" style="font-size: 10pt; font-family: Trebuchet MS">
<option selected value="default">Vælg her</option>
<option value="akupunktur">Akupunktur</option>
<option value="alkymi">Alkymi</option>
<option value="alternativ">Alternativ</option>
<option value="anatomi">Anatomi</option>
<option value="antroposofi">Antroposofi</option>
<option value="ascension">Ascension</option>
<option value="astrologi">Astrologi</option>
<option value="astronomi">Astronomi</option>
<option value="atlantis">Atlantis</option>
<option value="aura">Aura</option>
<option value="axels_anneks">Axels Anneks (reserveret)</option>
<option value="ayurveda">Ayurveda</option>
<option value="biorytmer">Biorytmer</option>
<option value="blomstermedicin">Blomstermedicin</option>
<option value="buddhisme">Buddhisme</option>
<option value="bøger">Bøger</option>
<option value="børnesider">Børnesider</option>
<option value="camillas_åre">Camillas Åre (reserveret)</option>
<option value="chakra">Chakra</option>
<option value="channeling">Channeling</option>
<option value="citat">Citat</option>
<option value="clairvoyance">Clairvoyance</option>
<option value="danmark">Danmark</option>
<option value="dating">Dating</option>
<option value="delfiner">Delfiner</option>
<option value="donation">Donation</option>
<option value="dotts_øje">Dotts Øje (reserveret)</option>
<option value="drømmetydning">Drømmetydning</option>
<option value="edgar_cayce">Edgar Cayce</option>
<option value="engle">Engle</option>
<option value="esoterisk">Esoterisk</option>
<option value="etik">Etik</option>
<option value="familie">Familie</option>
<option value="feng_shui">Feng Shui</option>
<option value="ferie_fritid">Ferie/fritid</option>
<option value="film">Film</option>
<option value="filosofi">Filosofi</option>
<option value="gnostisk">Gnostisk</option>
<option value="healing">Healing</option>
<option value="hekse">Hekse</option>
<option value="helse">Helse</option>
<option value="hinduisme">Hinduisme</option>
<option value="holisme">Holisme</option>
<option value="homøopati">Homøopati</option>
<option value="humanitær">Humanitær</option>
<option value="hypnose">Hypnose</option>
<option value="i_ching">I Ching</option>
<option value="islam">Islam</option>
<option value="jesus">Jesus</option>
<option value="jesus_konspiration">Jesus Konspiration</option>
<option value="jomfru_maria">Jomfru Maria</option>
<option value="jordstråler">Jordstråler</option>
<option value="kabbalah">Kabbalah</option>
<option value="katolsk">Katolsk</option>
<option value="kendte_navne">Kendte navne</option>
<option value="Kinesiologi">Kinesiologi</option>
<option value="kiromanti">Kiromanti</option>
<option value="knagerækken">Knagerækken</option>
<option value="korncirkler">Korncirkler</option>
<option value="krig_og_fred">Krig og fred</option>
<option value="kristendom">Kristendom</option>
<option value="krop_og_bevægelse">Krop og bevægelse</option>
<option value="krystaller">Krystaller</option>
<option value="kultbøger">Kultbøger</option>
<option value="kvinder">Kvinder</option>
<option value="livet_efter_døden">Livet efter døden</option>
<option value="loger">Loger</option>
<option value="lysarbejde">Lysarbejde</option>
<option value="martinus">Martinus</option>
<option value="massage">Massage</option>
<option value="meditation">Meditation</option>
<option value="mirakler">Mirakler</option>
<option value="musik">Musik</option>
<option value="mystik">Mystik</option>
<option value="mytologi">Mytologi</option>
<option value="new_age">New Age</option>
<option value="nlp">NLP</option>
<option value="nostradamus">Nostradamus</option>
<option value="numerologi">Numerologi</option>
<option value="nyhedsgrupper">Nyhedsgrupper</option>
<option value="okkultisme">Okkultisme</option>
<option value="online_gallerier">Online gallerier</option>
<option value="online_klassikere">Online klassikere</option>
<option value="out_of_body">Out of body</option>
<option value="pantheisme">Pantheisme</option>
<option value="paranormal">Paranormal</option>
<option value="pilgrim">Pilgrim</option>
<option value="presse">Presse</option>
<option value="profetier">Profetier</option>
<option value="psykologi">Psykologi</option>
<option value="pyramider">Pyramider</option>
<option value="rebirthing">Rebirthing</option>
<option value="reiki">Reiki</option>
<option value="reinkarnation">Reinkarnation</option>
<option value="religion">Religion</option>
<option value="runer">Runer</option>
<option value="sai_baba">Sai Baba</option>
<option value="satanisme">Satanisme</option>
<option value="scientology">Scientology</option>
<option value="selvudvikling">Selvudvikling</option>
<option value="shamanisme">Shamanisme</option>
<option value="shannons_hjerte">Shannons Hjerte (reserveret)</option>
<option value="skeptisk">Skeptisk</option>
<option value="spiritualitet">Spiritualitet</option>
<option value="spøgelser">Spøgelser</option>
<option value="stjernebørn">Stjernebørn</option>
<option value="sundhed">Sundhed</option>
<option value="tantra">Tantra</option>
<option value="tarot">Tarot</option>
<option value="teosofi">Teosofi</option>
<option value="terapi">Terapi</option>
<option value="tidsskrifter">Tidsskrifter</option>
<option value="tilsynekomst">Tilsynekomst</option>
<option value="tvillingsesjæle">Tvillingsesjæle</option>
<option value="ufo">UFO</option>
<option value="vegetar">Vegetar</option>
<option value="webdesign">Webdesign</option>
<option value="yoga">Yoga</option>
<option value="zoneterapi">Zoneterapi</option>
<option value="åndsvidenskab">Åndsvidenskab</option>
</select></p>
<p><font size="2">Titel <br>
</font>
<input type="text" OnClick="setCounter();" onkeyup="setCounter();" onkeydown="setCounter();" name="titel" style="width: 300px" size="31" style="font-family: Trebuchet MS; font-size: 10pt" maxlength="40"></p>
<p><font size="2">Beskrivelse<br>
</font>
<textarea rows="8" name="beskrivelse" cols="47" OnClick="setCounter();" onkeyup="setCounter();" onkeydown="setCounter();" style="font-family: Trebuchet MS; font-size: 10pt"></textarea><font size="2" color="#C0C0C0">
<input type="button" disabled="true" onclick="commonCheck();" value=" Ret " name="check"><br>
Du skal minimum indtaste følgende antal tegn endnu: </font>
<font color="#C0C0C0">
<span style="background-color: #FF00FF">
<input type="text" name="counter1" size="4" disabled="true" style="border: 1px solid #FFFFFF; padding: 0; font-size:10pt; font-family:Trebuchet MS; vertical-align:text-top" value="200"></span></font><font size="2" color="#C0C0C0"><br>
Du kan dog maksimalt anvende følgende antal tegn endnu: </font>
<font color="#C0C0C0">
<span style="background-color: #FF00FF">
<input type="text" name="counter2" size="4" disabled="true" style="border: 1px solid #FFFFFF; padding: 0; font-size:10pt; font-family:Trebuchet MS; vertical-align:text-top" value="250"></span></font></p>
<p><font size="2">Send enten et nyt billede...<br>
</font>
<input type=file name="link1" onClick="this.form.link2.value=''" size="48" style="font-family: Trebuchet MS; font-size: 10pt"></p>
<p><font size="2">...eller anvend i stedet et allerede sendt billede<br>
</font>
<input type="text" name="link2" size="48" style="font-family: Trebuchet MS; font-size: 10pt"><font size="1">
</font>
<input type="button" value="Hent..." name="B1" onClick="hentBillede();" style="font-family: Trebuchet MS; height: 24"></p>
<p><font size="2">Ledige tider til forside-henvisning</font><br>
<%
Set myConn=Server.CreateObject("ADODB.Connection")
myConn.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="+server.Mappath("/db/selvet.mdb"))
strSQL = "Select distinct datopublish from search where (datopublish between #" & Date() + 1 & "# and #" & Date() + 364 & "#) order by datopublish"
set rs = myConn.execute(strSQL)
do while not rs.EOF
if isDate(rs("datopublish")) then
myDates = myDates & rs("datopublish") & ", "
End If
rs.MoveNext
Loop
'response.write("<script>alert('" & strSQL & "')</script>")
'response.write("<script>alert('" & myDates & "')</script>")
if not myDates = "" then
myDates = left(myDates,len(myDates)-2)
end if
%>
<script>
rd = "<% response.write myDates %>";
nu = new Date();
temp = rd.split(", ");
function eia(str) {
for (n = 0; n < temp.length; n++)
if (temp[n] == str) return true;
return false;
}
document.write('<select name="datoPublikation" style="font-size: 10pt; font-family: Trebuchet MS">');
for (i = 1; i <= 364; i++) {
td = new Date(nu.getTime() + 1000 * 60 * 60 * 24 * i);
str = ((td.getDate() < 10) ? "0" + td.getDate() : td.getDate()) + "-" + ((td.getMonth() + 1 < 10) ? "0" + (td.getMonth() + 1) : td.getMonth() + 1) + "-" + td.getFullYear();
if (!eia(str))
document.write('<option value="' + str + '">' + str + '</option>');
}
document.write('<select>');
form = document.OpretArtikel;
form.sprog.selectedIndex = "<%response.write Request.QueryString("sprog")%>"
form.kategori.selectedIndex = "<%response.write Request.QueryString("kategori")%>"
form.titel.value = '<% response.write ReplaceScreenToDB(Request.QueryString("titel"))%>'
form.beskrivelse.value = '<%response.write ReplaceScreenToDB(Request.QueryString("beskrivelse"))%>'
form.link2.value = "<%response.write Request.QueryString("link2")%>"
form.datoPublikation.selectedIndex = "<%response.write Request.QueryString("datoPublikation")%>"
</script>
</p>
<p align="center">
<input type="button" onClick="location.href='artikel0.asp'" value="Annuller" name="Annuller">
<input type="submit" value=" Ok " name="Ok"></p>
</p>
</font>
</blockquote>
</fieldset>
<input type="hidden" name="link" value="<%response.write Request.QueryString("link")%>">
<input type="hidden" name="linkType" value="<%response.write Request.QueryString("linkType")%>">
</form>
</body>
</html>
<%
function ReplaceScreenToDB (replaceStr)
replaceStr = Replace(replaceStr, Chr(39), "´")
ReplaceScreenToDB = replaceStr
end function
%>
ARTIKEL1-0.ASP:
<html>
<head>
</head>
<body>
<div align="center">
<fieldset style="padding: 2">
<legend align="center"><font face="Trebuchet MS"></font></legend>
<table width="100%" border="0">
<%
'if not Request.ServerVariables("REQUEST_METHOD") = "GET" then
'response.redirect("start.asp")
'end if
'if Request.Form("link") = "" then
'response.write "<script>alert('Linket er gået tabet - luk vinduet og forsøg igen');</script>"
'end if
billedeSti = "/grafik/artikler/"
antalBillederPrSide = 40
antalBillederPrRekke = 4
if Request.QueryString("billede") = "" then
start = request.querystring("start")
if start = "" then start = 0
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(billedeSti))
Set fc = f.Files
For Each billed in fc
arrayBuild = arrayBuild & billed.name & "|"
next
arrayBuild = left(arrayBuild, (len(arrayBuild) - 1))
myArray = Split(arrayBuild, "|")
Antalsider = int(ubound(myarray) / antalBillederPrSide)
antal = 0
for i = start to (start + antalBillederPrSide-1)
if not i > ubound(myarray) then
if antal = 0 then Response.Write "<TR>"
%><font face="Trebuchet MS"> </font>
<td width="<%=Int(antalBillederPrRekke/100)%>"><p align="center">
<font face="Trebuchet MS">
<a href="artikel1.asp?sprog=<%response.write Request.Form("sprog")%>&kategori=<%response.write Request.Form("kategori")%>&titel=<%response.write server.URLEncode(Request.Form("titel"))%>&beskrivelse=<%response.write server.URLEncode(Request.Form("beskrivelse"))%>&link=<%response.write Server.URLEncode(Request.Form("link"))%>&linkType=<%response.write Request.Form("linkType")%>&link2=<%=billedeSti%><%=myArray(i)%>&datoPublikation=<%response.write Request.Form("datoPublikation")%>">
<IMG SRC="<%=billedeSti%><%=myArray(i)%>" border="1" color="black" width="80" height="100">
</a></td>
<%
else
nesteside = 1
exit for
end if
antal = antal + 1
if antal = 4 then
Response.Write "</TR>"
antal = 0
end if
next
if antal > 0 then Response.Write "</TR>"
%> </font>
</table>
<center>
<%
if start <> 0 then
response.write "<font face='Trebuchet MS'><a href=""?sprog=" & Request.Form("sprog") & "&kategori=" & Request.Form("kategori") & "&titel=" & server.URLEncode(Request.Form("titel")) & "&beskrivelse=" & server.URLEncode(Request.Form("beskrivelse")) & "&link=" & Server.URLEncode(Request.Form("link")) & "&linkType=" & Request.Form("linkType") & "&link2=" & myArray(i-1) & "&datoPublikation=" & Request.Form("datoPublikation") & "&start=" & (start - antalBillederPrSide) & """>Forrige</a>"
end if
response.write(" ")
if nesteside <> 1 then
response.write "<font face='Trebuchet MS'><a href=""?sprog=" & Request.Form("sprog") & "&kategori=" & Request.Form("kategori") & "&titel=" & server.URLEncode(Request.Form("titel")) & "&beskrivelse=" & server.URLEncode(Request.Form("beskrivelse")) & "&link=" & Server.URLEncode(Request.Form("link")) & "&linkType=" & Request.Form("linkType") & "&link2=" & myArray(i-1) & "&datoPublikation=" & Request.Form("datoPublikation") & "&start=" & (start + antalBillederPrSide) & """>Næste</a>"
end if
%>
</center>
<%
else
%>
<tr><td align="center">
<p align="center"><font face="Trebuchet MS"><a href="java script:history.back();">Tilbage</a></font></p>
</td>
</tr>
</table>
<%
end if %>
</fieldset>
</div>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
