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