lysave.asp

简易留言 可以插入access数据库 并分页浏览

<%
 name=request("ly_name")
 email=request("ly_email")
 subject=request("ly_subject")
 memo=request("ly_memo")
 if name="" or email="" or subject="" or memo="" then
    response.write("字段空白不接受！")
    response.end
 end if
    set conn=server.createobject("ADODB.Connection")
    conn.open("driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("lyb.mdb"))
    SQL="insert into lyb(姓名,email,主题,内容) values('" & name & "','" & email & "','" & subject & "','" & memo & "')"
    conn.execute(SQL)
    conn.close()
 response.redirect("lydisplay.asp")
%>