login.asp

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

<!--#include file="conn.asp"-->
<!--#include file="data.asp"-->
<!--#include file="char.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="header.inc"-->

<%



Dim user,pass
if session("status")="login" then
Response.Redirect "INDEX.asp"
Else
If request.form("submit") <> "" Then
	user=replace(trim(request("user")),"'","")
	pass=replace(trim(Request("pass")),"'","")
    if user="" or pass="" then

errorstr="用户名或者密码为空时候不允许登陆"
     errorbox(errorstr)
	end if

    pass=md5(pass)
          set rs=conn.execute("select * from admin where id=1")
          If (user=rs("Adminuser") and pass=rs("AdminPass")) Then
		  Session("status") = "login"
		  response.redirect "INDEX.ASP"

	      rs.close
	      conn.close
	      set rs=nothing
	      set conn=nothing
		  Else
errorstr="您提交的用户名和密码被系统否认"
     errorbox(errorstr)
        End If 

Else
%>

<br><br><br><br>
 <form action="login.asp" method="post">
  <table width="200" border="0" cellspacing="0" cellpadding="2" align="center">
  <tr><th height=25 colspan="2" align="center">后台管理</td></tr>
    <tr><td align="left" class="TableBody1">user</td>
    	<td class="TableBody1"><input name="user" type="TEXT"size="10"></td></tr>
    <tr><td align="left" class="TableBody1">pass</td>
	    <td class="TableBody1"><input name="pass" TYPE="PASSWORD" size="10"></td></tr>
	<tr><td colspan="2" align="center" class="TableTitle2"><input type="submit" name="submit" value="Login"></td></tr>
  </table>
</form>
<br><br><br><br>

<%
End If
End If
%>

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