check.asp

网站的后台管理代码......内容比较全面....新手比较适合

<%@ codepage ="936" %>
<!--#include file="adconn.asp"-->
<!--#include file="md5.asp"-->
<% dim verifycode,verifycode2
verifycode=trim(Request.Form("verifycode"))
verifycode2=trim(Request.Form("verifycode2"))
if verifycode<>verifycode2 then
response.write"<SCRIPT language=JavaScript>alert('您输入的验证码不正确。');"
response.write"location.href='../index.asp'</SCRIPT>"
founderr=true
else
session("verifycode")=""
%>
<!--#include file="copy.inc"-->
<% 
dim rs,sql
	set rs=server.createobject("adodb.recordset") 
	sql="select * from manager"
 	rs.open sql,conn,1,3  
if request("action")="login" then
	admin_name=Request.Form("admin_name")

	admin_pass=md5(Request.Form("admin_pass"),16)
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from manager where admin_name='"&admin_name&"' and pwd='"&admin_pass&"'"
rs.open sql,conn,1,3
    if rs.eof then
        response.write "<br><br><br><br><font size=2><center>　　对不起，您输入的用户名、密码或验证码有误，从重新输入，谢谢！<br><br>本软件建议您使用IE6.0以上版本，分辨率：1024*768<br><br>否则一切后果与本软件无关，特此声明！</font>"
    else
        session("admin_name")=request("admin_name")
        session("loc")=1
        response.redirect "../manage.asp"
	end if 
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
end if
%>