FLASH＋ASP＋TXT的超袖珍留言本

flash023

没有事，我来试试写这个ASP



ASP：

1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
   
2. <%Response.Charset="utf-8"%>
   
3. <%
   
4. Dim FSO,path,text,fla_str
   
5. Set FSO=Server.CreateObject("Scripting.FileSystemobject")
   
6. path=Server.MapPath("test.txt")
   
7. fla_str=Request.Form("fla_str")
   
8. If fla_str<>Empty Then
   
9. Set text=FSO.OpenTextFile(path,8)
   
10. text.WriteLine(fla_str)
    
11. End If
    
12. Set text=FSO.OpenTextFile(path,1)
    
13. Do Until  text.AtEndOfStream
    
14. Response.Write text.ReadLine & "<br>"
    
15. Loop
    
16. text.close
    
17. Set FSO=nothing
    
18. %>
    

复制代码

FLASH:

1. 
   
2. 
   
3. var _lv:LoadVars = new LoadVars();
   
4. _lv.onData = function(_str:String) {
   
5. _str ? out_txt.htmlText=_str.split("\r\n").join("") : out_txt.text="加载失败！";
   
6. };
   
7. _lv.load("text.asp?k="+Math.random());
   
8. r_btn.onRelease = function() {
   
9. in_txt.text = "";
   
10. };
    
11. t_btn.onRelease = function() {
    
12. if (in_txt.text != "") {
    
13.   _lv.fla_str = in_txt.text;
    
14.   trace(_lv.fla_str);
    
15.   _lv.sendAndLoad("text.asp?k="+Math.random(), _lv, "POST");
    
16. }
    
17. };
    

复制代码

在线测试地址：

http://www.flash023.cn/test/text/text.swf

taoshaw

支持楼主，做得不错啊。

newlyj

不错,就太简单了,连名字都没得留

16878046

好东东。。也是效果太简单了。
不过就算这样那些代码有些还是不太明白。
虽然看到效果知道了这些代码的意思。，但要是独自看代码的话。
我就看不懂。不过会慢慢学。

[[i] 本帖最后由 16878046 于 2007-9-21 17:59 编辑 ]

winhero_charles

终极兄,有一个地方不是很明白你的意思
_str ? out_txt.htmlText=_str.split("\r\n").join("") : out_txt.text="加载失败！";

对你使用
_str.split("\r\n").join("")
的目的不是很明白
请解释

flash023

去除得到的字符串中的回车？

winhero_charles

明白这个道理,其实这里可以不用除去字串中的回车的,若将其改为

_str ? out_txt.htmlText=_str: out_txt.text="加载失败！";

也可以的呀