搞了个ASP和Flash交互的缅怀程序-优快云博客

本文介绍了一个使用Flash与ASP进行交互的例子，包括Flash中发送变量到服务器端及ASP接收并处理这些变量的过程。为了确保安全性，文章还展示了如何通过正则表达式去除提交数据中的HTML标签。

真折腾

主要代码如下

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的

<%

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>"
%>