connect.asp

来自「这是用ASP的一个留言簿」· ASP 代码 · 共 40 行

<%@ Language="Jscript"%>
<%
	name	= Request("name")(1);								
   mail	= Request("mail")(1);
  main	= Request("main")(1);
  homepage		= Request("homepage")(1);		
  message 	= Request("message")(1);
										


	if ("" == name)
	{
             Response.Write("姓名不能为空白!");
	     Response.End();   
	}
	if ("" == mail)
	{
		Response.Write("Email不能为空白!");
		Response.End();
	}
	if ("" == message)
	{
		Response.Write("留言不能为空白!");
		Response.End();
	}
	%>

	<%
	//插入到数据库
	var conn = Server.CreateObject("ADODB.Connection");
	conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" +
	Server.MapPath("message.mdb"));
    SQL = "insert into record( name,mail,main,homepage,message) values('" + name + "','" +mail + "','" + main + "','" + homepage + "','" + message + "')";
	
	Response.Write(SQL);
	conn.Execute(SQL);
	conn.close();
	Response.Redirect("guestbook.asp");
	%>