fu.asp

一个简单的留言板

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