我想做一个简单的FLASH登陆，怎么实现这样的简单功能呢？
http://www.swwy.com/1.htm

天啊。。英文的。。呵~~~
有谁知道该怎么做吗？就把FLASH里面的两个文本框提交到登陆ASP页面就可以了，不用在FLASH里认证。就像网页http://www.swwy.com/1.htm这样的连接过去。。。。。

如果在我源有的FLASH登陆源文件上如何改呢？





<%
dim sql
dim rs
dim nrs
dim user
dim pass
dim regname
dim hiddenme
dim closeonline
dim cookiestime
dim num
dim JumpParam
dim mboard
mboard=118

user=request.form("txtuser")
pass=request.form("txtpass")
hiddenme=request.form("hiddenme")
closeonline=request.form("closeonline")
cookiestime=request.form("cookiestime")

if user="" or pass="" then
    Founderror=1
    Errmsg="

请输入用户名和密码"
end if    

if cookiestime="" then
    cookiestime=0
end if

if closeonline="" then
    closeonline="true"
end if

if hiddenme="" then
    hiddenme=0
end if            
    

sql="select * from user where name='" & user & "'"
set rs=conn.execute(sql)
if rs.eof and rs.bof then     
    Founderror=1
    Errmsg= Errmsg + "

不存在的用户,请重新登陆"
else
    if pass=rs("password") then                               
        regname=rs("name")                      
    else         
        Founderror=1
        Errmsg= Errmsg + "

输入的用户密码不正确"
    end if
end if
rs.close
%>






<%
if Founderror=1 then
    Call Cerr(Errmsg)
else    
    if session("username")<>"Guest" then '如果是重新登陆的话
         sql="delete * from online where username='" & session("username") & "'"
         conn.execute(sql)
    end if                 
            
    Call CleanSession '清空原来的session内容
    
    if cint(usercookiesflag)=0 then
        response.cookies("cvb2001")("username")=regname
        response.cookies("cvb2001")("password")=pass
        response.cookies("cvb2001")("hiddenme")=hiddenme
        response.cookies("cvb2001")("closeonline")=closeonline                 
        response.cookies("cvb2001")("Keepcookiestime")=cint(cookiestime)                 
        'session("cookiestime")=cint(cookiestime)
        if not cstr(cookiestime)="0" then                                                       
             cookiestime=dateadd("d",cookiestime,date())                                          
             response.cookies("cvb2001").expires=cookiestime                                                   
        end if
    end if                                                                                                                                 
    
    session("username")=regname
            
    sql="select count(*) from online where username='" & user & "'"
    set nrs=conn.execute(sql)
    if nrs(0)>0 then             
        sql="delete from online where username='Guest' and sessionid=" & clng(session.sessionid)
        conn.execute(sql)
            
        sql="update online set lastactive=now(),mboard=" & mboard & ",sessionid=" & clng(session.sessionid) & ",Hiddenme=" & hiddenme & " where username='" & user & "'"
        conn.execute(sql)'初始化该用户的在线资料表                                   
    else
        sql="update online set lastactive=now(),mboard=" & mboard & ",username='" & user & "',Hiddenme=" & hiddenme & " where sessionid=" & clng(session.sessionid)
        conn.execute(sql)
    end if    
    nrs.close
            
    sql="update user set lastlogin=now(),loginnum=loginnum+1 where name='" & user & "'"
    conn.execute(sql)'未正常退出不能获得2点的经验值                  
                         
    Call Upgrade(user)
%>
    
<%
    if request.form("loginplace")=0 then
        JumpParam="mboard.asp"     
    else
        JumpParam="nboard.asp?ntypeid=" & request.form("loginplace")    
    end if
    response.redirect JumpParam    
end if
%>