asp.asp

一个用ASP编写的小型留言本的代码 简单 实用

<!--#include file="conn.asp"-->
<%
if NOT isempty(request("Submit")) then 

set rs=server.CreateObject("adodb.recordset")

sql="select * from book"

Rs.Open sql,db,3,2

rs.AddNew

rs("name")=trim(request("name"))

rs("sex")=trim(request("sex"))

rs("mail")=trim(request("mail"))

rs("qq")=trim(request("qq"))

rs("re")=trim(request("re"))

rs("tu")=trim(request("tu"))

rs("time")=now()

rs("hf")="暂无"

rs("ip")=request.servervariables("remote_addr")

rs("from")=request.servervariables("http_user_agent")

rs.update

rs.close

set rs=nothing

response.redirect("index.asp")


end if


%>