HOME 首頁
SERVICE 服務(wù)產(chǎn)品
XINMEITI 新媒體代運(yùn)營
CASE 服務(wù)案例
NEWS 熱點(diǎn)資訊
ABOUT 關(guān)于我們
CONTACT 聯(lián)系我們
創(chuàng)意嶺
讓品牌有溫度、有情感
專注品牌策劃15年

    注冊(cè)頁面代碼(登錄注冊(cè)頁面代碼)

    發(fā)布時(shí)間:2023-03-12 19:02:08     稿源: 創(chuàng)意嶺    閱讀: 108        問大家

    大家好!今天讓創(chuàng)意嶺的小編來大家介紹下關(guān)于注冊(cè)頁面代碼的問題,以下是小編對(duì)此問題的歸納整理,讓我們一起來看看吧。

    ChatGPT國內(nèi)免費(fèi)在線使用,一鍵生成原創(chuàng)文章、方案、文案、工作計(jì)劃、工作報(bào)告、論文、代碼、作文、做題和對(duì)話答疑等等

    只需要輸入關(guān)鍵詞,就能返回你想要的內(nèi)容,越精準(zhǔn),寫出的就越詳細(xì),有微信小程序端、在線網(wǎng)頁版、PC客戶端

    官網(wǎng):https://ai.de1919.com

    本文目錄:

    注冊(cè)頁面代碼(登錄注冊(cè)頁面代碼)

    一、用java寫一個(gè)手機(jī)商城注冊(cè)界面代碼

    這篇文章主要介紹了java通過JFrame做一個(gè)登錄系統(tǒng)的界面完整代碼示例,具有一定借鑒價(jià)值,需要的朋友可以參考下。

    在java的JFrame內(nèi)通過創(chuàng)建匿名對(duì)象的方式做登錄界面

    package com.sxt;

    import java.awt.Container;

    import java.awt.GridLayout;

    import java.awt.event.ActionEvent;

    import java.awt.event.ActionListener;

    import javax.swing.JButton;

    import javax.swing.JFrame;

    import javax.swing.JLabel;

    import javax.swing.JPasswordField;

    import javax.swing.JTextField;

    public class LoginFrame extends JFrame{

    JTextField txtname=new JTextField();

    JPasswordField txtpass=new JPasswordField();

    JButton bl=new JButton("登錄");

    JButton bg=new JButton("關(guān)閉");

    //構(gòu)造無參構(gòu)造器把主要的方法放在構(gòu)造器里,然后在main方法里面調(diào)

    public LoginFrame(){

    setBounds(25,25,250,250);

    Container c = getContentPane();

    c.setLayout(new GridLayout(4,2,10,10));

    c.add(new JLabel("用戶名"));

    c.add(txtname);

    c.add(new JLabel("密碼"));

    c.add(txtpass);

    c.add(bl);

    c.add(bg);

    setDefaultCloseOperation(EXIT_ON_CLOSE);

    setVisible(true);

    //注意:此處是匿名內(nèi)部類

    bg.addActionListener(new ActionListener(){

    public void actionPerformed(ActionEvent e) {

    // TODO Auto-generated method stub

    System.exit(0);

    }

    }

    );

    //注意:此處是匿名內(nèi)部類

    bl.addActionListener(new ActionListener(){

    public void actionPerformed(ActionEvent e) {

    二、asp程序?qū)崿F(xiàn)簡單的注冊(cè),登錄網(wǎng)頁的源代碼

    1,(index.asp 用戶登陸頁面)

    <!-- #include file="conn.asp" -->

    <!-- blog.soowooo.cn 悠悠長假期 -->

    <html>

    <head>

    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">

    <title>會(huì)員</title>

    <style type="text/css">

    <!--

    body,td,th {

    font-family: 宋體;

    font-size: 14px;

    }

    -->

    </style>

    </head>

    <body>

    <center>

    <p>會(huì)員注冊(cè)系統(tǒng)</p>

    <form name="form1" method="post" action="login.asp">

    <table width="34%" border="0">

    <tr>

    <td width="33%" height="30">用戶名:</td>

    <td width="67%" height="30"><input name="username" type="text" id="username" size="15"></td>

    </tr>

    <tr>

    <td height="30">密 碼:</td>

    <td height="30"><input name="password" type="password" id="password" size="15"></td>

    </tr>

    <tr>

    <td colspan="2" align="center"><input type="submit" name="Submit" value="確定">

    <input type="reset" name="Submit" value="重置"></td>

    </tr>

    <tr>

    <td colspan="2"><a href="reg.asp" target="_self">注冊(cè)</a></td>

    </tr>

    </table>

    </form>

    </center>

    </body>

    </html>

    2,(login.asp 用戶數(shù)據(jù)處理文件)

    <!-- #include file="conn.asp" -->

    <%

    '打開數(shù)據(jù)庫判斷用戶是否存在,info為表名,username為字段名

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

    sqlc="select * from info where username='"&request.Form("username")&"' and password='"&request.Form("password")&"'"

    rsc.open sqlc,conn,1,1

    session("username")=rsc("username")

    session("password")=rsc("password")

    session.Timeout=30

    set rsc=nothing

    response.Redirect("change.asp")

    '如果用戶不存在,session("username")為空

    %>

    3,(change.asp 用戶信息修改頁面)

    <!-- #include file="conn.asp" -->

    <html>

    <head>

    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">

    <title>修改</title>

    <style type="text/css">

    <!--

    body,td,th {

    font-size: 14px;

    }

    -->

    </style></head>

    <center>

    <body>

    <br>

    <%

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

    sqlc="select * from info where username='"&session("username")&"' and password='"&session("password")&"'"

    rsc.open sqlc,conn,1,1

    nr=rsc("password")

    username=rsc("username")

    password=rsc("password")

    sex=rsc("sex")

    qq=rsc("qq")

    mail=rsc("mail")

    add=rsc("add")

    personalinfo=rsc("personalinfo")

    vv=rsc("ntime")

    set rsc=nothing

    if nr="" then

    response.Redirect("index.asp")

    end if

    if strcomp(nr,request.Form("password"))=0 then

    response.Write("歡迎你!"&request.Form("username"))

    response.Write("你是在"&vv&"注冊(cè)的")

    session("username")=request.Form("username")

    end if

    if session("username")="" then

    response.Redirect("index.asp")

    end if

    %>

    <form name="form1" method="post" action="change.asp?ac=ch">

    <table width="39%" height="105" border="0" >

    <tr>

    <td width="27%" height="30">用戶名:</td>

    <td width="73%" height="30"><input name="username" type="text" id="username" value="<%=username%>">

    *</td>

    </tr>

    <tr>

    <td height="30">密 碼:</td>

    <td height="30"><input name="password" type="text" id="password" value="<%=password%>">

    *</td>

    </tr>

    <tr>

    <td height="30">性 別:</td>

    <td height="30"><input name="sex" type="text" id="sex" value="<%=sex%>"></td>

    </tr>

    <tr>

    <td height="30">QQ:</td>

    <td height="30"><input name="qq" type="text" id="qq" value="<%=qq%>"></td>

    </tr>

    <tr>

    <td height="30">Mail:</td>

    <td height="30"><input name="mail" type="text" id="mail" value="<%=mail%>"></td>

    </tr>

    <tr>

    <td height="30">地 址:</td>

    <td height="30"><input name="add" type="text" id="add" value="<%=add%>"></td>

    </tr>

    <tr>

    <td>介紹</td>

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

    </tr>

    <tr>

    <td> </td>

    <td><input type="submit" name="Submit" value="修改">

    <a href="change.asp?se=y" target="_self">退出系統(tǒng)</a></td>

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

    session("username")=""

    response.Redirect("index.asp")

    end if

    %>

    </tr>

    </table>

    </form>

    <%

    if strcomp(request.QueryString("ac"),"ch")=0 then

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

    sql="select * from info where username='"&session("username")&"'"

    rs.open sql,conn,1,3

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

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

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

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

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

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

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

    rs.update

    set rs=nothing

    response.Write("修改完成!")

    end if

    %>

    </body>

    </center>

    </html>

    4,(reg.asp 新用戶注冊(cè)頁面)

    <html>

    <head>

    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">

    <title>用戶注冊(cè)</title>

    <style type="text/css">

    <!--

    body,td,th {

    font-family: 宋體;

    font-size: 14px;

    }

    -->

    </style>

    </head>

    <body>

    <center>

    用戶注冊(cè)<br>

    <%

    =request.QueryString("msg")

    %>

    <form name="form1" method="post" action="addnewdata.asp?ac=adduser">

    <table width="39%" height="105" border="0" >

    <tr>

    <td width="27%" height="30">用戶名:</td>

    <td width="73%" height="30"><input name="username" type="text" id="username">

    *</td>

    </tr>

    <tr>

    <td height="30">密碼:</td>

    <td height="30"><input name="password" type="password" id="password">

    *</td>

    </tr>

    <tr>

    <td height="30">確定密碼:</td>

    <td height="30"><input name="password2" type="password" id="password2">

    *</td>

    </tr>

    <tr>

    <td height="30">性別:</td>

    <td height="30"><input name="sex" type="text" id="sex"></td>

    </tr>

    <tr>

    <td height="30">QQ:</td>

    <td height="30"><input name="qq" type="text" id="qq"></td>

    </tr>

    <tr>

    <td height="30">Mail:</td>

    <td height="30"><input name="mail" type="text" id="mail"></td>

    </tr>

    <tr>

    <td height="30">地址:</td>

    <td height="30"><input name="add" type="text" id="add"></td>

    </tr>

    <tr>

    <td>個(gè)人介紹</td>

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

    </tr>

    <tr>

    <td> </td>

    <td><input type="submit" name="Submit" value="提交"></td>

    </tr>

    </table>

    </form>

    </center>

    </body>

    </html>

    5,(addnewdata.asp 新用戶注冊(cè)數(shù)據(jù)處理文件)

    <!-- #include file="conn.asp" -->

    <html>

    <head>

    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">

    <title>成功</title>

    </head>

    <body>

    <%

    ac=request.QueryString("ac")

    msg="注冊(cè)錯(cuò)誤信息"

    if request.Form("username")="" then

    msg=msg&"<br>"&"用戶名不能為空"

    end if

    if strcomp(cstr(request.Form("password")),cstr(request.Form("password2")))<>0 then

    msg=msg&"<br>"&"兩次密碼輸入不同"

    end if

    if len(request.Form("password"))<6 then

    msg=msg&"<br>"&"密碼太簡單"

    end if

    if strcomp(msg,"注冊(cè)錯(cuò)誤信息")>0 then

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

    end if

    if ac="adduser" then

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

    sql="select * from info where username='"&request.Form("username")&"'"

    rsc.open sql,conn,1,1

    ck=rsc("username")

    set rsc=nothing

    if ck<>"" then

    msg=msg&"<br>"&"用戶名被人注冊(cè)"

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

    end if

    dsql="select * from info where id is null"

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

    rs.open dsql,conn,1,3

    rs.addnew

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

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

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

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

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

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

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

    rs("ntime")=now

    rs.update

    set rs=nothing

    %>

    <center>

    <a href="index.asp" target="_self">注冊(cè)成功,點(diǎn)擊登陸</a>

    </center>

    <%

    end if

    %>

    </body>

    </html>

    6,(conn.asp 數(shù)據(jù)庫連接文件)

    <%

    '連接數(shù)據(jù)庫開始

    dim conn,rs,sql

    on error resume next

    dbpath=server.mappath("userinfo.mdb")

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

    conn.open "PROVIDER=Microsoft.jet.OLEDB.4.0;data source="

    '創(chuàng)建記錄對(duì)象

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

    %>

    7,(userinfo.mdb ACCESS 數(shù)據(jù)庫)

    在ACCESS中建一個(gè)表,然后在這個(gè)表中建立字段名稱

    表名:info

    字段名稱 數(shù)據(jù)類型

    id 自動(dòng)編號(hào)

    username 文本

    password 文本

    sex 文本

    quest 文本

    qq 文本

    mail 文本

    personalinfo 文本

    ntime 文本

    三、編寫用戶注冊(cè)于登錄的JSP頁面的全部程序代碼

    3個(gè)jsp文件,第一個(gè)是login.jsp,第二個(gè)是judge.jsp,第三個(gè)是afterLogin.jsp

    <%@ page language="java" contentType="text/html; charset=GB18030"

    pageEncoding="GB18030"%>

    <%@ page import="java.util.*" %>

    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

    <html>

    <head>

    <title>登錄頁面</title>

    </head>

    <body>

    <form name="loginForm" method="post" action="judgeUser.jsp">

    <table>

    <tr>

    <td>用戶名:<input type="text" name="userName" id="userName"></td>

    </tr>

    <tr>

    <td>密碼:<input type="password" name="password" id="password"></td>

    </tr>

    <tr>

    <td><input type="submit" value="登錄" style="background-color:pink"> <input type="reset" value="重置" style="background-color:red"></td>

    </tr>

    </table>

    </form>

    </body>

    </html>

    <%@ page language="java" contentType="text/html; charset=GB18030"

    pageEncoding="GB18030"%>

    <%@ page import="java.util.*" %>

    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

    <html>

    <head>

    <title>身份驗(yàn)證</title>

    </head>

    <body>

    <%

    request.setCharacterEncoding("GB18030");

    String name = request.getParameter("userName");

    String password = request.getParameter("password");

    if(name.equals("abc")&& password.equals("123")) {

    %>

    <jsp:forward page="afterLogin.jsp">

    <jsp:param name="userName" value="<%=name%>"/>

    </jsp:forward>

    <%

    }

    else {

    %>

    <jsp:forward page="login.jsp"/>

    <%

    }

    %>

    </body>

    </html>

    <%@ page language="java" contentType="text/html; charset=GB18030"

    pageEncoding="GB18030"%>

    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

    <html>

    <head>

    <title>登錄成功</title>

    </head>

    <body>

    <%

    request.setCharacterEncoding("GB18030");

    String name = request.getParameter("userName");

    out.println("歡迎你:" + name);

    %>

    </body>

    </html>

    四、如何用dreamweaver 8 制作一個(gè)用戶注冊(cè)頁面

    用戶注冊(cè)頁面要涉及到動(dòng)態(tài)數(shù)據(jù)庫,因?yàn)闀?huì)出現(xiàn)數(shù)據(jù)回調(diào)的情況。

    數(shù)據(jù)庫 students 用到的表 User_info

    User_info 表的字段:

    user_Id,user_Name,passwrod

    login.asp 頁面代碼如下:

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

    <!--#include file="../Connections/connection.asp" -->

    <!--連接數(shù)據(jù)庫的connection.asp文件包含進(jìn)來-->

     

     <%

    Dim Recordset1__MMColParam

    Recordset1__MMColParam = "1"

    If (Request.QueryString("user_Id") <> "") Then

    Recordset1__MMColParam = Request.QueryString("user_Id")

    End If

    %>

    <%

    Dim Recordset1

    Dim Recordset1_cmd2

    Dim Recordset1_numRows

    Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")

    Recordset1_cmd.ActiveConnection = MM_connection_STRING

    Recordset1_cmd.CommandText = "SELECT * FROM dbo.User_info WHERE user_Id = '"& Request.Form("username") &"'""<!--注意改下你的表,建議不要改,把你的數(shù)據(jù)庫設(shè)置成這個(gè)樣子,不然要改好多地方-->

    Set Recordset1 = Recordset1_cmd.Execute

    Recordset1_numRows = 0

    %>

    <%

    ' *** Validate request to log in to this site.

    MM_LoginAction = Request.ServerVariables("URL")

    If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)

    MM_valUsername = Request.Form("username")

    If MM_valUsername <> "" Then

    Dim MM_fldUserAuthorization

    Dim MM_redirectLoginSuccess

    Dim MM_redirectLoginFailed

    Dim MM_loginSQL

    Dim MM_rsUser

    Dim MM_rsUser_cmd

    Dim shenfen

    Dim mingzi

    MM_fldUserAuthorization = ""

    MM_redirectLoginSuccess = "####.asp"<!--連接成功轉(zhuǎn)至頁面-->

    MM_redirectLoginFailed = "login.asp"<!--連接不成功轉(zhuǎn)至頁面-->

    MM_loginSQL = "SELECT user_Id,passwrod"

    If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization

    MM_loginSQL = MM_loginSQL & " FROM dbo.User_info WHERE user_Id = ? AND passwrod = ?"

    Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command")

    MM_rsUser_cmd.ActiveConnection = MM_connection_STRING

    MM_rsUser_cmd.CommandText = MM_loginSQL

    MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 10, MM_valUsername) ' adVarChar

    MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 200, 1, 20, Request.Form("password")) ' adVarChar

    MM_rsUser_cmd.Prepared = true

    Set MM_rsUser = MM_rsUser_cmd.Execute

    If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then

    ' username and password match - this is a valid user

    Session("MM_Username") = MM_valUsername

    If MM_valUsername <>"" Then

    shenfen = Recordset1.Fields.Item("status").Value

    mingzi = Recordset1.Fields.Item("user_Name").Value

    session("shenfen")=shenfen

    session("mingzi")=mingzi

    End If

    If (MM_fldUserAuthorization <> "") Then

    Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)

    Else

    Session("MM_UserAuthorization") = ""

    End If

    if CStr(Request.QueryString("accessdenied")) <> "" And false Then

    MM_redirectLoginSuccess = Request.QueryString("accessdenied")

    End If

    MM_rsUser.Close

    Response.Redirect(MM_redirectLoginSuccess)

    End If

    MM_rsUser.Close

    Response.Redirect(MM_redirectLoginFailed)

    End If

    %>

    以上就是關(guān)于注冊(cè)頁面代碼相關(guān)問題的回答。希望能幫到你,如有更多相關(guān)問題,您也可以聯(lián)系我們的客服進(jìn)行咨詢,客服也會(huì)為您講解更多精彩的知識(shí)和內(nèi)容。


    推薦閱讀:

    注冊(cè)logo算商標(biāo)嗎(logo注冊(cè)成商標(biāo))

    個(gè)人工作室網(wǎng)上注冊(cè)(個(gè)人工作室網(wǎng)上注冊(cè)網(wǎng)站)

    企業(yè)注冊(cè)號(hào)在哪里看(企業(yè)注冊(cè)號(hào)怎么看)

    設(shè)計(jì)師資格證怎么考(平面設(shè)計(jì)師資格證怎么考)

    安道景觀設(shè)計(jì)(安道景觀設(shè)計(jì)怎么樣)