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='"¬e_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 %>