send.asp

Flash+XML+ASP Flash+XML+ASPFlash+XML+ASP

<%Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("royu.mdb")
set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from linker order by messageid",conn,1,3
rs.addnew
rs("name")=request("l_name")
rs("link")=request("l_link")
rs("logo")=request("l_logo")
rs.update
rs.close
set conn=nothing
%>
<script language="JavaScript">
alert(':::感谢您的提交,请加上我的链接！:::');
</script>