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

    <!--#include file="images/note_book.inc"-->
        <link href="css/black.css" rel="stylesheet" type="text/css">
<% 
' *************************************************
'|                                                 |
'|-----------------源码留言本 1.01-----------------|
'|                                                 |
'|                 程序制作：kering                |
'|         相关站点：http://www.52qj.com           | 
'|                                                 |
'| 版权由kering源码所有,不经本人同意，不得随意修改 |
'| 如经发现必追究其责任！                          |
' *************************************************
     dim ID,admin_pass,admin_pass_2,note_name,admin_name
         admin_pass=trim(request("admin_pass"))
         admin_pass_2=trim(request("admin_pass_2"))
         note_name=trim(request("note_name"))
         admin_name=trim(request("admin_name"))
         if trim(request("admin_pass"))<>trim(request("admin_pass_2")) then
		 response.write"<center>你两次输入密码不一致！请<a href='javascript:history.back(1)'>返回</a></center>"
         else
         if trim(request("admin_pass"))="" or note_name=trim(request("note_name"))="" or  trim(request("admin_name"))="" then
         response.write"<center>所有项目必须填写！请<a href='javascript:history.back(1)'>返回</a></center>"
         else        
         Set rs=Server.CreateObject("Adodb.RecordSet")
         rs.Open "Select * from [admin] where  admin_name='"&admin_name&"' and  admin_pass='"&admin_pass&"' and  note_name='"&note_name&"' ",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>不修改了吗？呵呵~~</div></font>请<a href="javascript:history.back(1)">返回</a></center>
           <%  Response.End   
            end if
            rs.close
        sql="select * from [admin] where ID=1 "
            rs.open sql,conn,1,3 
            rs("admin_pass")=admin_pass
			rs("note_name")=note_name
			rs("admin_name")=admin_name
	     rs.update
            rs.Close
       set rs=Nothing
             conn.Close
       set conn=Nothing
	   %>
	   <link href="css/black.css" rel="stylesheet" type="text/css">
	   <table width="300" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#333333" class="a2">
  <tr>
    <td height="18" bgcolor="#666666" class="a1">
<div align="center">安装成功！</div></td>
  </tr>
  <tr>
    <td height="150" class="a3"> <div align="left"><%=trim(request("note_name"))%>留言本安装成功！系统正在返回...<br>
        谢谢你选择源码留言本，但愿我们的产品能为你带来更多的方便~</div></td>
  </tr>
</table>
<center><meta http-equiv="refresh" content="5;url=index.asp"></center>
<% end if
end if  %>