28,391
社区成员
发帖
与我相关
我的任务
分享
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "Driver={Microsoft Access Driver (*.mdb)};Dbq="&Server.Mappath("data.mdb")
%>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<%
comment_title = request.Form("comment_title")
comment_name = request.Form("comment_name")
comment_content = request.Form("comment_content")
if comment_name="" then
comment_name="佚名"
end if
sql = "INSERT INTO `msg` (`_title`, `_author`, `_content`, `_parent`,`_time`) VALUES ("
sql = sql+"'"+comment_title+"',"
sql = sql+"'"+comment_name+"',"
sql = sql+"'"+comment_content+"',"
sql = sql+"0,"
sql = sql+"now())"
conn.execute sql
Response.Write "<script>alert('发表成功!')</script>"
Response.Write("<script>location.href('index.asp')</script>")
conn.close()
%>