<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Response.Buffer=true
Response.Expires=0
Response.ExpiresAbsolute=Now()-1
Response.CacheControl="no-cache"
%>
<!--#include file="include/conn.asp"-->
<!--#include file="include/function.asp"-->
<%
session("verifycode")=randStr(4)
If Not Isempty(Request("login")) Then
txt_name=Str_filter(Request.Form("txt_name"))
txt_passwd=Str_filter(Request.Form("txt_passwd"))
verifycode=Str_filter(Request.Form("verifycode"))
verifycode2=Str_filter(Request.Form("verifycode2"))
If verifycode <> verifycode2 then
Response.write"<SCRIPT language='JavaScript'>alert('您输入的验证码不正确!');location.href='login.asp'</SCRIPT>"
Response.End()
Else
Session("verifycode")=""
End IF
If txt_name<>"" Then
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select Mname,Mpasswd from tab_manager where Mname='"&txt_name&"'"
rs.open sqlstr,conn,1,1
If rs.eof Then
Response.Write("<script lanuage='javascript'>alert('管理员名称不正确,请核实后重新输入!');location.href='login.asp';</script>")
Else
If rs("Mpasswd")<>txt_passwd Then
Response.Write("<script lanuage='javascript'>alert('密码不正确,请确认后重新输入!');location.href='login.asp';</script>")
Else
Session("Mname")=rs("Mname")
Response.Redirect("index.asp")
End If
End If
Else
errstr="请输入管理员名称!"
End If
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理员登录</title>
<link rel="stylesheet" href="css/css.css">
<script type="text/javascript">
<!--
function Mycheck(){
if(document.all.txt_name.value==""){
alert('请输入管理员名称！');return false;}
if(document.all.txt_passwd.value==""){
alert('请输入密码！');return false;}
if(document.all.verifycode.value==""){
alert('请输入验证码！');return false;}
}
或者告诉这段是干嘛的，怎么才能知道账号和密码
怎么才能知道账号和密码，注册一个就是。
管理员的账号密码呵呵，很难。毕竟当管理员的都不会是傻子不会用默认的
用户名 admin 和默认密码 admin 的
