用Flash和ASP做留言本-ASP篇(下)

有关send.ASP,基本同view.ASP

<%name=request("name")

text=request("text")

constr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("luiyan.mdb") & ";"

set conn = server.createobject("ADODB.Connection")

conn.open constr

Set rs = Server.CreateObject("ADODB.Recordset")

sql="select * from message"

rs.open sql,conn,2,2

application.lock

rs.addnew

rs("name")=name

rs("text")=text

rs.update

rs.close

application.Unlock

response.write("&sendok=1")

%>