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 %>