Kan session bruges ?????
Hej dette nedenfor submitter variablen i formularentil siden selv altså den submitter IKKE til en anden
side. Dette gøres via den linie i <body ....
Dog virker det ikke fordi den submitter mere end en
gang og DET er ikke meningen.
Kan jeg bruge sessions og hvordan skal jeg bruge
dem ??????
Koden 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
%>
<html>
<head>
</head>
<body onLoad=document.myform.submit() >
<form name=\"myform\" action=\"http://217.157.130.36/getit.asp\" method=\"POST\" onLoad=document.myform.submit()>
<input type=\"hidden\" name=\"shit\" value=\"<%= response.write (xml.responseText) %> \">
</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\")
myfile.Write (sun)
\' close TextStreamObject and
\' destroy local variables to relase memory
myfile.close
Set myfile = Nothing
Set FSO = Nothing
set xml = Nothing
%>
