搞了个ASP和Flash交互的缅怀程序

真折腾

主要代码如下

Flash的

on (release) {
 send_var = new LoadVars();
 load_var = new LoadVars();
 send_var.lyname=_root.lyname;
 send_var.f=_root.f;
 send_var.textarea=_root.textarea;
 send_var.send("xiangok.asp",load_var,"post");
}

 

把变量发出去

ASP的

 

<!--#include file="conn.asp" -->
<%

Function RemoveHTML( strText )
    Dim RegEx

    Set RegEx = New RegExp

    RegEx.Pattern = "<[^>]*>"
    RegEx.Global = True

    RemoveHTML = RegEx.Replace(strText, "")
End Function

dim lyname,f,rs,sql,uid,comment
lyname=request("lyname")
lyname=RemoveHTML(lyname)
comment=request("textarea")
comment=RemoveHTML(comment)
set rs=server.createobject("adodb.recordset")
sql="select * from ly"
rs.open sql,conn,1,3
rs.addnew
rs("lyname")=lyname
rs("comment")=comment
rs("class1")=1
rs("riqi")=now()
rs("mainclass")=1
rs.update
rs.close
set rs=nothing
response.write "<script language=JavaScript>window.location='index.asp'" & "</script>"
%>

 

取出来 去HTML 提交

感觉还行

http://www.1231972.com/mhl/

另外 不知道 flash里面的这个radio  怎么取出来

写死了 以后再搞 饿了