OK nu har jeg da fået det til at virker her hos mig....
jeg bruger flg. kode :
først har du en tekst fil der heder antal.txt den indeholder :
0X0X0X0
det første 0 er første download antal andet nul er andet antal og det nul NUMMER 4 er download NUMMER 3, hvorfor den vil have det sådan ved jeg ikke.....????
første fil hedder :
downloads.asp
-----------------------------------------------------
<%
response.expires = - 1000
Dim thestring, myarray
set fs = createobject(\"scripting.filesystemobject\")
set file = fs.opentextfile(server.mappath(\"antal.txt\"))
thestring = file.readline
file.close
Set file = Nothing
myarray = Split(thestring, \"X\", -1, 1)
%>
<html>
<head>
<title></title>
<%
response.write \"<script>\"
response.write \"var antal1;\"
response.write \"var antal2;\"
response.write \"var antal3;\"
response.write \"antal1 = \" & Cint(myarray(0)) & \";\"
response.write \"antal2 = \" & Cint(myarray(1)) & \";\"
response.write \"antal3 = \" & Cint(myarray(3)) & \";\"
response.write \"</script>\"
%>
</head>
<SCRIPT scriptlanguage = \"JavaScript\">
<!--
function Gem()
{
Gem = window.open(\"savecount.asp?antal1=\" + antal1 + \"&antal2=\" + antal2 + \"&antal3=\" + antal3, \"plain\", \"width=2, height=2\");
}
-->
</SCRIPT>
<body onUnload=\"java script:Gem();\">
Her er mine filer du frit kan downloade....
<form name=\"downloadsec\">
<a href=\"#\" onClick=\"antal1 = antal1 + 1;nr1.innerHTML = antal1\">Min første fil</a><div id=nr1></div>
<a href=\"#\" onClick=\"antal2 = antal2 + 1;nr2.innerHTML = antal2\">Min første fil</a><div id=nr2></div>
<a href=\"#\" onClick=\"antal3 = antal3 + 1;nr3.innerHTML = antal3\">Min første fil</a><div id=nr3></div>
</form>
<script>
nr1.innerHTML = antal1
nr2.innerHTML = antal2
nr3.innerHTML = antal3
</script>
</body>
</html>
---------------------------------------------
Næste fil hedder savecount.asp
---------------------------------------------
<%
dim howmany1, howmany2, howmany3,thestring
howmany1 = Request.Querystring(\"antal1\")
howmany2 = Request.Querystring(\"antal2\")
howmany3 = Request.Querystring(\"antal3\")
thestring = howmany1 & \"X\" & howmany2 & \"X0X\" & howmany3
set fs = createobject(\"scripting.filesystemobject\")
set file = fs.createtextfile(server.mappath(\"antal.txt\"),true)
file.writeline(thestring)
file.close
Set fs = nothing
%>
<html>
<head>
</head>
<body>
<%= howmany1 & \"<br>\" & howmany2 & \"<br>\" & howmany3 %>
</body>
</html>
--------------------------------------------
Husk at alle 3 filer skal ligge i samme bibl.
Du kan flytte rundt på linksne som det passer dig.
Du kan også flytte rundt på de div tags der er altså for link 1
<div id=nr1><div>
Jeg har lavet linksne så de referere til denne side, og der skal du så lægge stien til dine filer
Kig koden igennem og lur hvordan du evt. kan have flere links.
Dette eksempel var bare lavet med 3 links.
Du skal i så fald lave flere antal\'s og howmany\'s men det kan du sikkert se ud af koden...
Håber det er tilfredsstillende...
Ny bruger
Nybegynder
Opret
Preview
