uptxt.asp

一个简单的留言板

<!-- #include file=conn.asp -->
<%
dim rs
set rs=server.createobject("adodb.recordset")
    rs.open "select * from txt",conn,1,3
    rs.addnew
    rs("sendfrom")=request("sendfrom")
    rs("mail")=request("mail")
    rs("txt")=request("txt")
    rs("qq")=request("qq")
    rs("head")=request("head")
    rs("from")=request("from")
    rs("t")=now()
    rs.update
rs.close : set rs=nothing : conn.close : set conn=nothing
%>
<script>alert("要查看您刚刚写的留言\n请刷新网页！");self.close()</script>