<%
If Trim(Request.Form("nickname")) = "" Or Trim(Request.Form("e_mail")) = "" Or Trim(Request.Form("da_pi")) = "" Then
Response.Write("
请填写全部内容.点击返回按钮更正!
")
Else
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")
strDBPath = "db.mdb"
objConn.Connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;" &_
"Persist Security Info=False;" &_
"Data Source=" & Server.MapPath(strDBPath)
objConn.Open
objRs.Open "select * from text, objConn, 3, 3
objRs.AddNew
objRs("姓名") = Trim(Request.Form("nickname"))
objRs("时间") = now
objRs("所在地") = Request.Form("place")
objRs("所属职业") = Request.Form("job")
objRs("职位") =Request.Form("title")
objRs("E_mail地址") = Trim(Request.Form("e_mail"))
objRs("留言") = Request.Form("da_pi")
objRs.Update
objRs.Close
Set objRs = Nothing
Set objConn = Nothing
Response.Write("
留言添加成功. 请点击继续!
")
Response.Write("
")
End If
%>
