<%@ CODEPAGE = "936" %> <% Option Explicit '这一句是非常重要的, 它可以确保所看到的数据不是缓存在客户端的数据, '而是服务器端随时更新过的最新数据 Response.Expires = 0%> <% action=request("action") if action="list" then set rs=server.createobject("adodb.recordset") rs.open("select*from guestbook where uname like '"& uname &"' "),conn,1,1 %> <% =uname %> 的悄悄话
<% while not rs.eof %> <% rs.movenext %> <% wend %>
欢迎阅读您的悄悄话
来自
主题
已读
<% =rs("putname") %>
<% if rs("read")=true then %>是<% else %>否<%end if %>



关闭窗口
<% else if action="write" then %> 写悄悄话
<%=bbsname%>
"> 写悄悄话
   
 
发表人: <% =uname %>
发表对象: ">
主题:
内容:
      


 


<% end if %> <% end if %>