Avatar billede iceb1977 Nybegynder
17. januar 2002 - 23:06 Der er 7 kommentarer og
1 løsning

Automatisk submit virker ikke hvorfor ?????

Hejsa

Jeg har lavet en formular med et hidden form

field som jeg submitter automatisk og skriver

det til en txt fil .

Dog virker dette ikke da siden bliver ved

med at loade sig selv igen og igen og submitte

formen igen og igen hvor det kun er meningen

den skal gøre det EN gang og ikke mange som nu.

Hvordan kan det være og hvad kan jeg gøre for at rette

dette ?

Kan det være fordi den submitter til sig selv eller

har det intet med det at gøre ?

Her er koden

<html>
<head>
</head>
<body onload=\"document.myform.submit()\">

<form name=\"myform\" action=\"http://217.157.130.36/getit5.asp\" method=\"POST\">
<input type=\"hidden\" name=\"shit\" value=\"test\"> 

  </form>
</body>
</html>


<%
response.write request.form(\"shit\")
\' Set up Constants
Const ForWriting = 2  \' Input OutPut mode
Const Create = True   

\' Dimension local variables
   
Dim FSO          \' FileSystemObject
Dim myfile          \' TextStreamObject

\' always use MapPath function to get the Physical Path of file

MyFile = Server.MapPath(\"Welcome.txt\")
Set FSO = Server.CreateObject(\"Scripting.FileSystemObject\")
Set myfile = FSO.OpenTextFile(myFile, ForWriting, Create)


sun=request.form(\"shit\")
response.write request.form(\"shit\")
myfile.Write (sun)


\' close TextStreamObject and
\' destroy local variables to relase memory
myfile.close

Set myfile = Nothing
Set FSO = Nothing 
set xml = Nothing
%>
Avatar billede larsen1 Nybegynder
17. januar 2002 - 23:11 #1
<form name=\"myform\" action=\"http://217.157.130.36/getit5.asp?action=gem\" method=\"POST\">

...
senere
...
if request(\"action\") = gem then
din aspkode
end if
Avatar billede iceb1977 Nybegynder
17. januar 2002 - 23:30 #2
Hej

Det virker ikke .

Stadig samme problem.

Koden følger .

<html>
<head>
</head>
<body onload=\"document.myform.submit()\">
<form name=\"myform\" action=\"http://217.157.130.36/getit5.asp?action=gem\" method=\"POST\">
<input type=\"hidden\" name=\"shit\" value=\"test\"> 
</form>
</body>
</html>
<script language=\"javascript\">
if request(\"action\") = gem then
</script>
<%
response.write request.form(\"shit\")
\' Set up Constants
Const ForWriting = 2  \' Input OutPut mode
Const Create = True   
\' Dimension local variables
Dim FSO          \' FileSystemObject
Dim myfile          \' TextStreamObject
\' always use MapPath function to get the Physical Path of file
MyFile = Server.MapPath(\"Welcome.txt\")
Set FSO = Server.CreateObject(\"Scripting.FileSystemObject\")
Set myfile = FSO.OpenTextFile(myFile, ForWriting, Create)
sun=request.form(\"shit\")
response.write request.form(\"shit\")
myfile.Write (sun)
\' close TextStreamObject and
\' destroy local variables to relase memory
myfile.close
Set myfile = Nothing
Set FSO = Nothing 
%>
<script language=\"javascript\">
end if
</script>
Avatar billede larsen1 Nybegynder
17. januar 2002 - 23:36 #3
if-sætningen er ASP, og skal ind i dine <& tags
<%
if request(\"action\") = gem then
response.write request.form(\"shit\")
...
Set FSO = Nothing 
end if
%>
Så burde det virke
Avatar billede iceb1977 Nybegynder
18. januar 2002 - 00:15 #4
Hej det virker stadig ikke .

Samme problem .

Koden følger .

Desuden har jeg selv lavet en der virker

som skriver xmlhttp delen og form delen på

en side og skriver til filen på den anden side.

Dermed skal man kun bruge

<body onload=\"document.myform.submit()\">

på den første side.

Men her følger hele koden for det KAN vil gøres

på en side ik ?

<%
  Response.Buffer = True
  Dim objXMLHTTP, xml
  \' Create an xmlhttp object:
  Set xml = Server.CreateObject(\"Microsoft.XMLHTTP\")
  \' Or, for version 3.0 of XMLHTTP, use:
  \' Set xml = Server.CreateObject(\"MSXML2.ServerXMLHTTP\")
  \' Opens the connection to the remote server.
xml.Open \"GET\", \"http://217.157.130.36/aatest.html\", False
      \' Actually Sends the request and returns the data:
  xml.Send
  \'Display the HTML both as HTML and as text
response.write \"<xmp>\"
response.write xml.responseText
response.write \"</xmp>\"
response.write xml.responseText
%>
<html>
<head>
</head>
<body onload=\"document.myform.submit()\">
<form name=\"myform\" action=\"http://217.157.130.36/getit.asp?action=gem\" method=\"POST\">
<input type=\"hidden\" name=\"shit\" value=\"<%= response.write (xml.responseText)%>\"> 
<input type=submit name=hej value=test>
  </form>
</body>
</html>
<%
if request(\"action\") = gem then
response.write request.form(\"shit\")
\' Set up Constants
Const ForWriting = 2  \' Input OutPut mode
Const Create = True   
\' Dimension local variables
    Dim FSO          \' FileSystemObject
Dim myfile          \' TextStreamObject
\' always use MapPath function to get the Physical Path of file
MyFile = Server.MapPath(\"Welcome.txt\")
Set FSO = Server.CreateObject(\"Scripting.FileSystemObject\")
Set myfile = FSO.OpenTextFile(myFile, ForWriting, Create)
sun=request.form(\"shit\")
response.write request.form(\"shit\")
myfile.Write (sun)
\' close TextStreamObject and
\' destroy local variables to relase memory
myfile.close
Set myfile = Nothing
Set FSO = Nothing 
end if
set xml = Nothing
%>



Avatar billede larsen1 Nybegynder
18. januar 2002 - 00:20 #5
Nååååååååhhhhh.... Jeg havde overset at du satte en automatisk submit i onload. Så vil den jo submitte hver gang siden loades. Så skal der vist en javascript if-sætning på der checker om siden har en action. Hvis ikke submitter den, og hvis den har, så submitter den ikke.

Jeg kan desværre ikke hjælpe dig med det præcise script, fordi jeg mest er ASP-mand....

Good luck!
Avatar billede iceb1977 Nybegynder
18. januar 2002 - 00:22 #6
Ah ok men som sagt virker den også på to asp

sider .

Men ikke på EN og jeg tænkte om den ikke

ville kunne køre på EN ? s
Avatar billede iceb1977 Nybegynder
18. januar 2002 - 00:23 #7
Så javascript experter kan dette lade sig gøre ? s

Avatar billede iceb1977 Nybegynder
18. januar 2002 - 11:23 #8
Nå så har jeg selv fundet løsningen tak tak ...

Den følger

<%
  Response.Buffer = True
  Dim objXMLHTTP, xml
  \' Create an xmlhttp object:
  Set xml = Server.CreateObject(\"Microsoft.XMLHTTP\")
  \' Or, for version 3.0 of XMLHTTP, use:
  \' Set xml = Server.CreateObject(\"MSXML2.ServerXMLHTTP\")
  \' Opens the connection to the remote server.
  xml.Open \"GET\", \"http://217.157.130.36/aatest.html\", False
      \' Actually Sends the request and returns the data:
  xml.Send
  \'Display the HTML both as HTML and as text

response.write \"<xmp>\"
response.write xml.responseText
response.write \"</xmp>\"
response.write xml.responseText

%>

<html>
<head>
</head>
<body>

<form name=\"myform\" action=\"http://217.157.130.36/getit.asp\" method=\"POST\">
<input type=\"hidden\" name=\"shit\" value=\"<%= response.write (xml.responseText)%>\" onFocus=\"document.myform.submit()\"> 

  </form>
</body>
</html>


<%


\' Set up Constants
Const ForWriting = 2  \' Input OutPut mode
Const Create = True   

\' Dimension local variables
   
Dim FSO          \' FileSystemObject
Dim myfile          \' TextStreamObject

\' always use MapPath function to get the Physical Path of file

MyFile = Server.MapPath(\"Welcome.txt\")
Set FSO = Server.CreateObject(\"Scripting.FileSystemObject\")
Set myfile = FSO.OpenTextFile(myFile, ForWriting, Create)


sun=request.form(\"shit\")

myfile.Write (sun)


\' close TextStreamObject and
\' destroy local variables to relase memory
myfile.close

Set myfile = Nothing
Set FSO = Nothing 

set xml = Nothing

%>

Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi tilbyder markedets bedste kurser inden for webudvikling

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester