Flasher Archive
[Previous] [Next] - [Index] [Thread Index] - [Previous in Thread] [Next in Thread]
Subject: | FLASH: Set up a site with cgi/asp for Flash? |
From: | Waldo Smeets |
Date: | Thu, 25 Nov 1999 14:28:26 GMT |
Hi there,
does someone know a good site, or is someone willing to make one with me,
with good cgi scripts and asp scripts that can be used with your flash
movies?
As a non-asp and non-cgi programmer. I'm very interested in that stuff. Some
sites have some asp codes, why not putting them together in one site?
I would prefer some tutorials with it too!
In this list I've already found a script for counting hits and a script to
get the date in your movie.
I myself want to share a asp code as well. Please don't ask me how it works
cause I don't know, but it works!
Save the code in a file named store.asp.
It especially fine for not too many variables, the advantage is that you can
define the variables you want to store.
WATCH OUT
<%@ LANGUAGE="VBSCRIPT" %>
<%
'Open a FileSystem object
Set oFS = Server.CreateObject("Scripting.FileSystemObject")
bQueryString = False
If Len(Request.ServerVariables("QUERY_STRING")) > 0 Then
' GET
sFileName = Request.QueryString("filename")
bQueryString = True
Else
' POST
sFileName = Request.Form("filename")
End If
'We need a filename...
If Trim(sFileName) = "" Then
Response.Write("Error: No filename specified")
End If
bFirst = True
If bQueryString Then
'Open file and overwrite if it exists
Set oFile = oFS.CreateTextFile(sFileName, True)
For Each sFieldName IN Request.QueryString()
'Write all fields except 'filename'
If sFieldName <> "filename" Then
sValue = Request.QueryString(sFieldName)
If bFirst Then
oFile.Write(sFieldName&"="&sValue)
bFirst = False
Else
oFile.Write("&"&sFieldName&"="&sValue)
End If
End If
Next
oFile.Close
Else
Set oFile = oFS.CreateTextFile(sFileName, True)
For Each sFieldName IN Request.Form()
If sFieldName <> "filename" Then
sValue = Request.Form(sFieldName)
If bFirst Then
oFile.Write(sFieldName&"="&sValue)
bFirst = False
Else
oFile.Write("&"&sFieldName&"="&sValue)
End If
End If
Next
oFile.Close
End If
Set oFile = Nothing
Set oFS = Nothing
%>
Simply use this command in your flash movie:
On (Release)
Load Variables
("store.asp?filename=myvars.txt&myVar1="&/:myVar1&"&myVar2="&/:myAVar2&"&myv
arsEOF=1", 1)
End On
I'm wondering if there are more people that have these needs...
Waldo
flasher is generously supported by...
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Streaming Media WEST '99 Conference & Exhibition
"The Worlds largest Internet Audio & Video Event"
December 7 - 9, San Jose Convention Center, California
Reserve your space today at http://www.streamingmedia.com
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
To unsubscribe or change your list settings go to
http://www.chinwag.com/flasher or email helpchinwag [dot] com
[Previous] [Next] - [Index] [Thread Index] - [Next in Thread] [Previous in Thread]