¡Solicite el código fuente simple ASP!

Código súper simple, adecuado para comenzar, ***6 archivos, de los cuales data.mdb es el archivo de base de datos, enter.htm es la interfaz de inicio de sesión y ent_submit.asp se usa para determinar si el El inicio de sesión puede ser exitoso, login.asp es la página a la que salta después de iniciar sesión exitosamente, Register.htm es la interfaz para registrar miembros y reg_submit.asp es el archivo que procesa la información de registro.

archivo 1.enter.htm

lt;!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transicional//ES"

"http ://www.w3.org/TR/html4/loose.dtd"gt;

lt;htmlgt;

lt;headgt;

lt; meta http-equiv="Tipo de contenido" content="text/html; charset=gb2312"gt;

lt; titlegt; Documento sin títulolt;/titlegt;

lt ;/ headgt;

lt;bodygt;

lt;form name="form1" método="post" action="ent_submit.asp"gt;

lt ;pgt; lt;/pgt;

lt;pgt;Nombre de usuario:

lt;input nombre="nombre de usuario" tipo="texto" id="nombre de usuario" tamaño="20 "gt;

lt;/pgt;

lt;pgt;Contraseña:

lt;input nombre="contraseña" tipo="contraseña " id= "contraseña" tamaño="16"gt;

lt;/pgt;

lt;pgt;

lt; tipo de entrada="enviar " nombre= "Enviar" value="Iniciar sesión"gt;

lt; a href="register.htm"gt; Registrarse como miembro /agt; lt;/formgt;

lt;/bodygt;

lt;/htmlgt;

2.ent_submit.asp archivo

lt ;@LANGUAGE="VBSCRIPT" CODEPAGE="936"gt;

lt;!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transicional//ES" "http://www .w3 .org/TR/html4/loose.dtd"gt;

lt;htmlgt;

lt;headgt;

lt;meta http-equiv =" Tipo de contenido" content="text/html; charset=gb2312"gt;

lt;titlegt;Documento sin títulolt;/titlegt;

lt;/headgt;

lt;bodygt;

lt;

set conn=server.createobject("adodb.connection")

conn.open "driver={ controlador de acceso de Microsoft (*.mdb)}; dbq="amp; server.mappath("data.mdb")

nombre de usuario=request.form("nombre de usuario)

e")

contraseña=request.form("contraseña")

sql="seleccione * del usuario donde nombre de usuario='" nombre de usuario "' y contraseña='" contraseña "' "

set rs=server.CreateObject("adodb.recordset")

rs.open sql, conn, 1, 3

si rs.eof entonces

respuesta.Write("lt;scriptgt;alert('¡El nombre de usuario o la contraseña son incorrectos, vuelva a ingresar!'); History.back(-1)lt;/scriptgt;")

else

respuesta.Write("lt;scriptgt;alert('¡Inicio de sesión exitoso!');history.back(-1)lt;/scriptgt;")

respuesta.redirect"login.asp"

finalizar si

rs.close

establecer rs=nada

conn.close

set conn=nada

gt;

lt;/bodygt;

lt;/htmlgt;

3 archivo .login.asp

lt;!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transicional//ES" "http://www.w3.org/TR/html4 /loose.dtd"gt;

lt;htmlgt;

lt;headgt;

lt;meta http-equiv="Content-Type" content= "text/ html; charset=gb2312"gt;

lt; titlegt; Documento sin títulolt;/titlegt;

lt; >

lt;!--

.style1 {

tamaño de fuente: 18px

peso de fuente: negrita;

}

--gt;

lt;/stylegt;

lt;/headgt;

lt;bodygt;

lt; p>

lt;div align="center"gt;

lt;pgt; lt;/pgt;

lt;pgt; lt;/pgt;

lt;pgt; lt;/pgt;

lt;pgt; lt;/pgt;

lt;p clase=" style1"gt;Inicio de sesión exitoso Ir a esta páginalt;/pgt;

lt;/divgt;

lt;/bodygt;

lt;/htmlgt;

archivo 4.register.htm

lt;!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transicional//ES"

"http :

//www.w3.org/TR/html4/loose.dtd"gt;

lt;htmlgt;

lt;headgt;

lt;meta http-equiv="Content-Type" content="text/html; charset=gb2312"gt;

lt;titlegt;Documento sin títulolt;/titlegt;

lt; ="text/css"gt;

lt;!--

.style1 {font-size: 14px}

--gt;

lt;/stylegt;

lt;/headgt;

lt;body class="style1"gt;

lt;form nombre= "form1" método="post" action="reg_submit.asp"gt;

lt;pgt; lt;/pgt;

lt;pgt;Nombre de usuario:

lt; nombre de entrada="nombre de usuario" tipo="texto" id="nombre de usuario" tamaño="20"gt

lt /pgt; ;Contraseña:

lt;input name="contraseña" tipo="contraseña" id="contraseña" size="16"gt;

lt;/pgt; >

lt;pgt;

lt;input type="enviar" nombre="Enviar" valor="Registro"gt;

lt;a href= "enter. htm"gt;Volver a la página de inicio de sesiónlt;/agt;lt;/pgt;

lt;/formgt;

lt;/bodygt;

lt ;/htmlgt;

archivo 5.reg_submit.asp

lt;

set conn=server.createobject("adodb.connection")

conn.open "driver={controlador de acceso de Microsoft (*.mdb)};dbq="amp;server.mappath("data.mdb")

username=request.form( "nombre de usuario ")

contraseña=request.form("contraseña")

exec="seleccione * del usuario donde nombre de usuario ='"amp;nombre de usuarioamp;"'"

set rs=server.createobject("adodb.recordset")

rs.open exec, conn, 1, 1

si nombre de usuario="" o contraseña=" " entonces

response.Write("lt;scriptgt;alert('¡El nombre de usuario o la contraseña no pueden estar vacíos! ');history.back()lt;/scriptgt;")

else<

/p>

si no es rs.eof entonces

response.Write("lt; scriptgt; alert('Lo sentimos, esta cuenta ya ha sido registrada, ¡vuelve a ingresar!'); historial. back () lt;/scriptgt;")

else

sql="insertar en valores de usuario(nombre de usuario, contraseña)('" nombre de usuario "','" contraseña "') "

conn.execute sql

response.write("lt;scriptgt;alert('¡Registro exitoso!');history.back()lt;/scriptgt;")

p>

finalizar si

finalizar si

rs.close

establecer rs=nada

conn.close

set conn=nothing

gt;

archivo 6.data.mdb

Esto requiere que cree un ACCESO usted mismo nombre data.mdb La base de datos, si ACCESS no está instalada, debe instalarse primero y luego crear una tabla llamada USUARIO en data.mdb. Los campos de la tabla son los siguientes:

id: número automático.

nombre de usuario: tipo de texto

contraseña: tipo de texto