<% 'CopyRightc2002 程式製作:炎羽 '信箱:howl.fire@yahoo.com.tw '蔚藍海岸留言版v1.1 '請勿隨意拿掉版權~謝謝 name = Request("name") title = Request("title") body = Request("body") mail = Request("mail") url = Request("url") If Name = "" then Response.Write "名子欄位不可以留空白"%> 上一頁 <%Response.End 'elseif title = "" then 'Response.Write "標題欄位不可以留空白"%> '上一頁 '<%Response.End elseif body = "" then Response.Write "內容欄位不可以留空白"%> 上一頁 <%Response.End End If %> <%Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../../home/gbook.mdb") sql="Insert into book(name,ip,mail,url,title,body) values('" sql = sql & Request.Form("name") & "','" sql = sql & Request.Form("ip") & "','" sql = sql & Request.Form("mail") & "','" sql = sql & Request.Form("url") & "','" sql = sql & Request.Form("title") & "','" sql = sql & Request.Form("body") & "')" Set RS = conn.Execute( sql ) '做餅乾 Response.Cookies("Name") = Name Response.Cookies("Mail") = Mail Response.Cookies("url") = url Response.Cookies("Name").Expires = (Date+30) Response.Cookies("Mail").Expires = (Date+30) Response.Cookies("url").Expires = (Date+30) '餅乾製作結束`^^ Response.Redirect "index.asp" %>