webForumDet fria alternativet
Logga in / Bli medlem

Nu ni!

ASP

3 svar · 171 visningar · startad av deoiz

Medlem sedan juni 200031 inlägg
Trådstart#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...

Medlem 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

Medlem sedan juni 20019 024 inlägg
#3

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

Medlem 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

258 ms totalt · 4 externa anrop · v20260731065814-full.51f67c91
116 ms — deklarationer (db)
0 ms — hämta statistik (cache)
133 ms — hämta tråd, inlägg och bilagor (db)
122 ms — ändringar (db)