<%
if request("action")="doAdd" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from message"
rs.open sql,conn,1,3
rs.addnew()
rs("name")=trim(request.Form("name"))
rs("tel")=trim(request.Form("tel"))
rs("ip")=GetIP()
rs.update
alert("留言成功。")
go("index.asp")
rs.close
set rs=nothing
end if
%>
