% If request.form("title")<>"" then Connstr="DBQ="&Server.MapPath("program\guestbook\book.asa")&";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set DBConn=server.createobject("ADODB.CONNECTION") DBConn.open Connstr DBConn.Execute("insert into book(name,email,title,content,inputtime) values('"&request.form("name")&"','"&request.form("email")&"','"&request.form("title")&"','"&request.form("content")&"','"&now&"')") Set DBConn = Nothing end if %>
![]() |
|
|
|
||||||||||||||
| |
|
|
|
|
|
|
|||||||||||
|
|
|||||||||||||||||
|
|
|
|
|||||||||||||||
|
|
|
||||||||||||||||
LEADER
IN INNOVATIVE COMPOSITE MATERIALS |
|||||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||