<%
if request("content")="" then
sorry()
else
Set cnnDB = Server.CreateObject("ADODB.Connection")
strcon="DBQ="+server.mappath("liuyan.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
cnnDB.Open strcon
strSQL = "INSERT INTO book(name, wangzhi,email,title,content) values ('"
strsql=strsql& Request("name") & "','" & Request("wangzhi") & _
"','" &request("email")&"','"&request("title")&"','"&request("content")&"')"
cnnDB.Execute (strSQL)
good()
cnnDB.Close
Set cnnDB = Nothing
%><% end if%>
<%sub sorry()%>
输 入 有 错 对不起！请输入留言！
返 回 关闭窗口
<%end sub%>
<%sub good()%>
