<% ip=Replace(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),"'","") If ip=Empty Then ip=Replace(Request.ServerVariables("REMOTE_ADDR"),"'","") name=Request.Form("user_name") content=Request.Form("user_post") if name<>"" and content<>"" then set rs=server.CreateObject("adodb.recordset") sql="insert into contents (name,content,ip) values ('"&name&"','"&content&"','"&ip&"')" conn.Execute(sql) conn.close Response.Write "" 'response.redirect("index.asp") else Response.Write "" End If %>