código de inicio de sesión de registro asp

;<textarea name="personalinfo" cols="30" rows="6" id="personalinfo"><%=personalinfo%>< /td>

<% if strcomp( request.QueryString("se" ), "y")=0 luego

session("username")=""

response.Redirect("index.asp")

finalizar si

%>

<< )/table>

<

<%

si strcomp(request.QueryString("ac")) =0 entonces

sesión(" nombre de usuario")="queryString("ac"), "ch")=0 y luego

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

sql="select * de información donde nombre de usuario ='"&session("nombre de usuario")&"'"

rs.Open sql,conn,1,3

rs("nombre de usuario")= solicitud .Form("Nombre de usuario")

rs("Contraseña")=request.Form("Contraseña")

rs("Correo")=request.Form(" correo" )

rs("sex")=request.Form("sex")

rs("qq")=request.Form("qq")

rs("add")=request.Form("add")

rs("personalinfo")=request.Form("personalinfo")

rs. /p>

set rs=nada

response.Write("¡Cambios realizados!")

end if

%>

4, (reg.asp página de registro de nuevo usuario)

>0 entonces

msg=msg& ;"
"& "Contraseñas diferentes ingresadas dos veces"

end if

if len(request.Form(" contraseña"))<6 entonces

msg=msg&"
"&"& "Contraseña demasiado simple"

end if

if strcomp(msg , "mensaje de error de registro")>0 entonces

response.Redirect("reg.asp?msg="&msg)

end if

if ac= "adduser" y luego

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

sql="select * from info donde nombre de usuario='"&request.Form(" nombre de usuario" )&"'"

rsc.open sql,conn,1,1

ck=rsc("nombre de usuario")

set rsc=nada

p>

si ck<>"" entonces

msg=msg &"
"& "Nombre de usuario registrado"

respuesta.Redirect(" reg.asp?msg ="&msg)

end if

dsql="seleccione * de información donde la identificación es nula"

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

rs.open dsql,conn,1,3

rs.addnew

rs("nombre de usuario")=request. Formulario("nombre de usuario")