正文

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

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

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

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

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

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

本文目錄:

1、用java寫(xiě)一個(gè)手機(jī)商城注冊(cè)界面代碼
2、asp程序?qū)崿F(xiàn)簡(jiǎn)單的注冊(cè)，登錄網(wǎng)頁(yè)的源代碼
3、編寫(xiě)用戶注冊(cè)于登錄的JSP頁(yè)面的全部程序代碼
4、如何用dreamweaver 8 制作一個(gè)用戶注冊(cè)頁(yè)面

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

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

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

在java的JFrame內(nèi)通過(guò)創(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)造無(wú)參構(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)簡(jiǎn)單的注冊(cè)，登錄網(wǎng)頁(yè)的源代碼

1，（index.asp 用戶登陸頁(yè)面）

<html>

<head>

<!--

body,td,th {

font-family: 宋體;

font-size: 14px;

}

-->

</style>

</head>

<body>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

</form>

</center>

</body>

</html>

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

'打開(kāi)數(shù)據(jù)庫(kù)判斷用戶是否存在,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 用戶信息修改頁(yè)面）

<html>

<head>

<!--

body,td,th {

font-size: 14px;

}

-->

</style></head>

<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

<tr>

*</td>

</tr>

<tr>

*</td>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

<% 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è)頁(yè)面）

<html>

<head>

<!--

body,td,th {

font-family: 宋體;

font-size: 14px;

}

-->

</style>

</head>

<body>

用戶注冊(cè)<br>

=request.QueryString("msg")

<tr>

*</td>

</tr>

<tr>

*</td>

</tr>

<tr>

*</td>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

</form>

</center>

</body>

</html>

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

<html>

<head>

</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>"&"密碼太簡(jiǎn)單"

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>

end if

</body>

</html>

6，（conn.asp 數(shù)據(jù)庫(kù)連接文件）

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

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ù)庫(kù)）

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

表名：info

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

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

username 文本

password 文本

sex 文本

quest 文本

qq 文本

mail 文本

personalinfo 文本

ntime 文本

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

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>

</head>

<body>

<table>

<tr>

</tr>

<tr>

</tr>

<tr>

</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>

</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>

</head>

<body>

request.setCharacterEncoding("GB18030");

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

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

</body>

</html>

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

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

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

User_info 表的字段：

user_Id，user_Name，passwrod

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

　<%
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ù)庫(kù)設(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)至頁(yè)面-->
MM_redirectLoginFailed = "login.asp"<!--連接不成功轉(zhuǎn)至頁(yè)面-->
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
%>