一个实例(关于如何用flash把录入的数据写入文本文件里,并在flash里显示)
关于有朋友问起如何用文本文件记录录入数据的问题,我这里举一个简单的例子,可以完成文本文件的读取和录入功能,其中包含了flash如何通过asp读外部数据,写外部数据。
一、首先制作一个flash文件(细节我这里就不说了)命名为check.fla
1、建三个图层,第一个图层上放一个可输入文本域,实体名称为hytext
2、第二个图层,在第三帧放一个确定按钮,前两帧为空。
3、第三个图层,第一帧加入如下代码:
_root.onEnterFrame = function() {
system.usecodepage = true; //支持中文装载
loadVariablesNum("read.asp", 0, "POST"); //首先读入上次记录的数据
};
4、第三个图层,第二帧加入如下代码:
if(hytext.text ne ""){
....//可以加一个提示的文本框,如:login.text="欢迎光临"
}
else{
....//login.text="欢迎再次光临"
}
//可以改成数据库连接成功与否的语句。
5、第三个图层,第三帧加入如下代码:
stop();
hytext.text=name; //这里的name 是通过read.asp传回的值。
6、在第二层的按钮上加上如下代码:
on (release) {
myloadVars = new LoadVars(); //创建一个对象
serverLoadVars = new LoadVars(); //创建一个隐性传递的对象
myloadVars.T_name = hytext.text; //把输入文本框里的内容赋给对象的实体
myloadVars.sendAndLoad("write.asp", serverLoadVars, "POST");//隐性传递输入的数据,即不会打开新页面
gotoandplay(1); //刷新
}
二、把文件发布,放在页面里,起名为index.htm(或直接发布成该文件)
三、创建上面提到的read.asp文件内容如下:(相信大家这点比我熟练)
<%
whichfile=server.mappath("name.txt")
Set fs = CreateObject("Scripting.FileSystemObject") //创建文件系统对象
Set thisfile = fs.OpenTextFile(whichfile) //打开指定的文件
name=thisfile.readline //读文件
response.write("&name="&name) //这是很重要的一点,即在传回的变量前加个“&”,这也是flash读外部文件值得注意的一点。
thisfile.close
%>
四、创建上面提到的write.asp文件内容如下:
<%
dim T_name
Set fs =Server.CreateObject("Scripting.FileSystemObject")
Set a= fs.CreateTextFile(Server.MapPath("name.txt"), True)
newname=Request("T_name")
a.WriteLine (newname)
a.Close
%>
五、创建一空的name.txt文件
六、注册一个站点或虚拟目录。
基本框架如上,大家可以更改使用,但请尊重本人的劳动。非常感谢!!!