admin_set.asp

新闻管理系统,管理员登陆后能够实现对新闻的添加,删除以及更新等功能,操作比较简单,但是很方便

<!--#include file="conn.asp"-->
<!--#include file="data.asp"-->
<!--#include file="char.asp"-->
<!--#include file="header.inc"-->
<!--#include file="md5.asp"-->
<%
'#####################################################
'## Copyright (C) 2003, Patron Saint Studio
'## For support, please visit http://3gu.tea8.com
'## Script Edit:y3gu
'#####################################################

if session("status")="login" then
If request.form("submit") <> "" Then
Dim UserNameX,UserPassX1,UserPassX2

	UserNameX=replace(trim(request("UserNameX")),"'","")
	UserPassX1=replace(trim(request("UserPassX1")),"'","")
	UserPassX2=replace(trim(request("UserPassX2")),"'","")
	 if UserNameX="" Then
     errorstr="超管用户名必不可少"
     errorbox(errorstr)
     End If

     if strLength(UserNameX) > 120 Then
	 errorstr="超管用户名字节超出系统限定范围"
     errorbox(errorstr)
	 End If
     UserNameX=checkStr(UserNameX)
	 If UserPassX1<>"" AND UserPassX2<>"" Then
              If UserPassX1<>UserPassX2 Then
              errorstr="密码不复"
	          errorbox(errorstr)
			  Else
              UserPassX1=md5(UserPassX1)
			  conn.execute("update admin set AdminUser='"&UserNameX&"',AdminPass='"&UserPassX1&"' where id=1")
              Successstr="您所做的修改已经成功存储入"
              Successbox(Successstr)
			  End If
     Else
     		  conn.execute("update admin set AdminUser='"&UserNameX&"' where id=1")
              Successstr="您所做的修改已经成功存储入"
              Successbox(Successstr)

	 End If

Else
%>


<BR><BR><BR><BR>
  <CENTER><form name="form" method="post" action="Admin_Set.asp">
  <table width="470" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr> 
      <th colspan="2" align="left" height=25>管理设定</th>
    </tr>
    <tr> 
      <td>用户名</td>
      <td><input name="UserNameX" type="text" size="50" maxlength="125"></td>
    </tr>
    <tr> 
      <td width="102">密码</td>
      <td width="468"><input name="UserPassX1" type="password" size="50" maxlength="125"><B>留空不做修改</B></td>
    </tr>
    <tr> 
      <td>密码確認</td>
      <td>
	  <input name="UserPassX2" type="password" size="50" maxlength="125"><B>留空不做修改</B></td>
    </tr>
	
    <tr> 
      <td colspan="2" Class="TableTitle2" height=25><div align="center">
          <input type="submit" name="Submit" value="提交">
          <input type="reset" name="Submit2" value="重置">
        </div></td>
    </tr>
  </table>
</form></CENTER>

<BR><BR><BR><BR>


<%
End If
Else
Response.Redirect "INDEX.asp"
End If
%>

<!--#include file="footer.inc"-->