write.asp

大家好

<%@ Language=Vbscript %> 
<!--#include file="ADOVBS.INC"--> 
<% 
   Head=trim(request.form("title"))
   name=trim(request.form("name"))
   email=trim(request.form("email"))
   WWW=trim(request.form("homepage"))
   Seggent=replace(request.form("comment"),"'","''")
   DbPath = SERVER.MapPath("Words.mdb")
   Set conn = Server.CreateObject("ADODB.Connection")
   conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
   sql="insert into seggest(Head,name,email,WWW,Seggest,Inputtime) values('"& Head &"','"& name &"','"& email &"','"& WWW &"','"& Seggent &"',now)"
   conn.execute sql
   conn.close
   set conn=nothing 
   response.redirect  "success.asp"
   
%>