www.gusucode.com > 源码留言本 3.2码程序 > setnote_name.asp

    <!--#include file="images/note_book.inc"-->
<title>--留言本信息管理--</title>
<link href="css/black.css" rel="stylesheet" type="text/css">
    <%
' *************************************************
'|                                                 |
'|-----------------源码留言本 3.10-----------------|
'|                                                 |
'|                         黔江热线                |
'|         相关站点:http://www.52qj.com           | 
'|                                                 |
'| 版权由kering源码所有,不经本人同意,不得随意修改 |
'| 如经发现必追究其责任!                          |
' *************************************************
if Request.Cookies("admin_name")="" then
response.Write "你还没有登录!请先登录,<a href='javascript:history.back(1)'><img valign=bottom border=0 src='res://shdoclc.dll/back.gif'>点此返回上一步</a>"
else 
dim note_name
note_name=server.htmlencode(Request("note_name"))
if Request("note_name")="" then
response.Write"<center>你的留言本名称必须填写!<a href='javascript:history.back(1)'>点此返回</a></center></div></font>"
else
Set rs=Server.CreateObject("Adodb.RecordSet")
    rs.Open "Select * from [admin] where  note_name='"&note_name&"' and admin_name='"&request.Form("admin_name")&"' and admin_pass='"&request.Form("admin_pass")&"'",conn
    if not rs.EOF then
    response.write"<font color=red><div align=center><br><br><center>如果不修改,用不着执行此项功能!<a href='javascript:history.back(1)'>点此返回</a></center></div></font>"
    Response.End   
    end if
        rs.close
        sql="select * from [admin] where ID=1 "
         rs.open sql,conn,1,3
         rs("admin_pass")=Request.Form("admin_pass")
		 rs("admin_name")=Request.Form("admin_name")
		 rs("note_name")=Request.Form("note_name")
		 rs.update
		 rs.Close
     set rs=Nothing
	     conn.Close
	 set conn=Nothing
         response.Write "<center>修改成功!!3秒钟后返回...</center><center><meta http-equiv='refresh' content='3;url=_admin.asp'></center>"
         end if
		 end if  
	%>