www.gusucode.com > 源码留言本 3.2码程序 > addre_note.asp
<% ' ************************************************* '| | '|-----------------源码留言本 3.10-----------------| '| | '| 黔江热线 | '| 相关站点:http://www.52qj.com | '| | '| 版权由kering源码所有,不经本人同意,不得随意修改 | '| 如经发现必追究其责任! | ' ************************************************* %> <% if Request.Cookies("admin_name")="" then %> <title>你还没登录呢</title> <link href="css/black.css" rel="stylesheet" type="text/css"> <br> <br><center>你还没资格打开这一个页面呢~~老大,不要乱来哦</center> <script LANGUAGE="JavaScript"> <!-- setTimeout('window.close();', 1000); //60秒后关闭 // --> </script> <% else %> <!--#include file="images/note_book.inc"--> <% dim note_ID,re_page,re_time note_ID=trim(request("note_ID")) re_page=trim(request("re_page")) re_time=trim(request("re_time")) Set rs=Server.CreateObject("Adodb.RecordSet") rs.Open "Select * from [note] where note_ID="&trim(request("note_ID"))&" and re_page='"&re_page&"' ",conn if not rs.EOF then %> <link href="css/black.css" rel="stylesheet" type="text/css"> <font color=red><div align=center><br><br><center>不回复了吗?呵呵~~</center></div></font> <% Response.End end if rs.close sql="select * from [note] where note_ID="&trim(request("note_ID"))&"" rs.open sql,conn,1,3 rs("re_page")=re_page rs("re_time")=re_time rs.update rs.Close set rs=Nothing conn.Close set conn=Nothing %> <link href="css/black.css" rel="stylesheet" type="text/css"> <center>回复成功!系统正在返回...</center> <center><meta http-equiv="refresh" content="3;url=index.asp"></center> <% end if %>