check.asp

主要销售电脑和it 具有 购物车 和 留言版 和服务器销售 等具体功能

<!--#include file="inc/conn.inc"-->
<!--#include file="md5.asp"-->
<%
AdminName=trim(request.Form("AdminName")) 
AdminPass=trim(request.Form("AdminPass")) 

If AdminName="" Then
Response.Write "<script>alert('用户名不能为空！');history.back();</script>"
Response.End
End If
If AdminPass="" Then
Response.Write "<script>alert('密码不能为空！');history.back();</script>"
Response.End
End If

AdminPass=MD5(AdminPass)
set rs = server.createobject("adodb.recordset")
SQL="select * from admin where AdminName='"&AdminName&"' and AdminPass='"&AdminPass&"' order by id desc"
rs.open SQL,conn,1,3

If Not Rs.Eof Then
Session("AdminName")=AdminName
Session("AdminPass")=AdminPass
response.redirect "manage.asp"
Else
Response.Write "<script>alert('对不起，用户名密码不正确！');history.back();</script>"
Response.End
End If
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>