webForumDet fria alternativet

Nu ni!

3 svar · 168 visningar · startad av deoiz

deoizMedlem sedan juni 200031 inlägg
#1

H.j.ä.l.p---

Okej nu ska vi se om jag kan vara tydlig!

Börja med att gå in på: http://www.citruz.nu/GB/gb.asp
* Skriv in något i formuläret

[KOD]
<form method="POST" action="gbproc.asp">
<p><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">Namn</font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">:
<input type="text" size="20" name="FirstName">
<br>
</font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">E-mail</font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">:
<input type="text" size="30" name="Email">
<br>
</font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">Kommentar:
<input type="text" size="30" name="Kommentar">
</font></p>
<p><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<input type="submit" name="Submit" value="Skicka!">
</font></p>
</form>
[KOD]

Som ni kan se skickar denna form kod till ett annat dokument, "logistiken" för input datan från formen i detta dokumentet är:

[KOD]
<%
=Request.Form("FirstName")
Request.Form("Email")
Request.Form("Kommentar")
%>
<p>
<%
Dim filesys, peoplefile
Set filesys = CreateObject("Scripting.FileSystemObject")
Set peoplefile = filesys.OpenTextFile("gbpeople.txt", 8, true)
peoplefile.WriteLine Request.Form("FirstName")
peoplefile.WriteLine Request.Form("Email")
peoplefile.WriteLine Request.Form("Kommentar")
peoplefile.Close
%>
[KOD]

som ni kan se sparar denna kodsnutt "från logistik" koden i det andra dokumentet inputen från den andra sidan i en fil...

Längre ner på gb.asp (sidan du med formen). ligger den del som visar innehållet i filen dit datan skrevs som erhölls av formen på samma sida (högre upp).

[KOD]
<%
Dim filesys, peoplefile, fname, email, kommentar
Set filesys = CreateObject("Scripting.FileSystemObject")
Set peoplefile = filesys.OpenTextFile("gbpeople.txt", 1)
do while not peoplefile.AtEndOfStream
fname = peoplefile.ReadLine
email = peoplefile.ReadLine
kommentar = peoplefile.ReadLine
%>
<table width="300" border="0" cellspacing="1" cellpadding="0" bgcolor="#000000">
<tr bgcolor="#CCCCCC">
<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Namn: </b>
<% Response.Write fname %>
</font></td>
<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>E-mail: </b>
<% Response.Write email %>
</font></td>
</tr>
<tr>
<td colspan="2" bgcolor="#CCCCCC"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<% Response.Write kommentar %>
</font></td>
</tr>
</table>
<p>

<%
loop
peoplefile.Close
%>
[KOD]

Men detta tycker jag verkar onödigt, så jag vill flytta logistiken till samma sidan och även lägga in någon form av (javascript kanske) som uppdaterar sajten efter det att man skrivit in data i form-fälten...

Nu till den stor frågan...

Hur gör jag detta?

Tack på förhand och ursäkta om jag låter luddig i det jag beskriver...

------------------
/Patrik B

deoizMedlem sedan juni 200031 inlägg
#2

Ojsan...

För att ni enklare ska förstå vad jag menar kanske jag borde skicka med länken till den plats där tjofräset ligger...
http://www.citruz.nu/GB/gb.asp

------------------
/Patrik B

PaceMedlem sedan juni 20019 024 inlägg
#3

Menar du att du bara vill uppdatera sidan eller vad? :q

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

icaaqMedlem sedan okt. 20005 273 inlägg
#4

För att inte krångla till det:
på gbproc.asp:

Response.Redirect gblist.asp

men sen kan du ju hantera alla data på en sida men när du ändå har gjort så här kommer detta att funka (hoppas jag) ;)

/r. kollade på sidan och såg url:n
------------------
Korvfarbror--Med ring på fingret

[Redigerat av icaaq den 03 okt 2001]

133 ms totalt · 3 externa anrop · v20260731065814-full.fb544a5a
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
131 ms — hämta tråd, inlägg och bilagor (db)