connectasp.asp

来自「J2ME 无线通信技术应用开发源代码」· ASP 代码 · 共 25 行

<%@ LANGUAGE=JScript %>
<%
  strDBLocation = Server.Mappath("/database/j2meTest.mdb");
  strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+ strDBLocation;
  var cnn=Server.CreateObject("ADODB.Connection");
	cnn.Open(strConnectionString);
	rs = Server.CreateObject("ADODB.Recordset");
	ip = Request.ServerVariables("REMOTE_ADDR");
	//message =new String(Request.form("message"));
	//message =Request.form("message");
	message =Request.QueryString("message");
	rs.ActiveConnection = cnn;
	rs.CursorType =1;
	rs.LockType =2;
	rs.Source = "Message";
	rs.Open();
  rs.AddNew();
  rs("Message")=message;
  rs("IP")=ip;
  rs("Date")=(new Date()).getVarDate( );
  rs.Update();
  rs.Close();
  cnn.Close();
	Response.Write("The message writed successfully.\n");
%>