addnew.asp

来自「AJAX程序.AJAX是目前WEB2.O上应用最多的结合技术....想了解的下载」· ASP 代码 · 共 14 行

<!--#include file="command.asp" -->
<%
Dim Author,Content,sResult
Author =CheckStr(unescape(Request.Form("Author")))
Content =CheckStr(unescape(Request.Form("Content")))
sResult = Author + Content
Conn.Execute("INSERT INTO rev(memAuthor,memContent,PostTime)  Values ('"&Author&"','"&Content&"','"&now()&"')")
If Err Then 
   Response.Write(escape("出现错误"))
Else 
   Response.Write(escape("添加留言成功"))
End If
%>