ASP編寫的簡單登陸系統

來源:互聯網
上載者:User

  分註冊 資訊修改 登陸 三部分。access資料庫 本地機測試基本正常表單必填項目用JS在htm頁限制完 在asp頁就沒有管。

  1.註冊

<%
'取得使用者填寫的帳號 密碼
UNamethis=request("UName")
UPwsthis=request("UPws")
UPws2this=request("UPws2")
'建立資料庫連接
set conobject=server.createobject("adodb.connection")
conobject.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( "/data/webjxbbs.mdb")
'建立資料集合 篩選條件是帳號等於使用者填寫的帳號
set rs=server.createobject("adodb.recordset")
rs.open"SELECT * FROM tbuser WHERE UName='" & Replace(UNamethis,"'","''") & "'",conobject,1,3
'判斷上面建立的資料集合是否為空白 如不是 說明資料庫中有此使用者 則不允許再註冊相同帳號 轉向註冊失敗頁
If Not rs.EOF Or Not rs.BOF Then 
 response.redirect"regfail.htm"
 response.end
 end if
 '調用addnew方法添加新使用者 有一些是選填項目 判斷其VALUE非空才添加
rs.addnew
rs("UName")=UNamethis
rs("UPws")=UPwsthis
rs("UPws2")=UPws2this
if request("UEmail") <> "" then
 rs("UEmail")=request("UEmail")
 end if
 if request("UQq") <> "" then
 rs("UQq")=request("UQq")
 end if
 if request("UWebsite") <> "" then
 rs("UWebsite")=request("UWebsite")
 end if
 if request("UIntroduce") <> "" then
 rs("UIntroduce")=request("UIntroduce")
 end if
 '調用Update
rs.update
rs.close
conobject.close
'建立Session對象
session("username")=UNamethis
'轉到成功頁
response.redirect"userinfo.asp"
%>

  2.成功頁顯示

<%
'取session對象值
UNamethis=session("username")
'建立資料連線
set conobject=server.createobject("adodb.connection")
conobject.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( "/data/webjxbbs.mdb")
'建立資料集合 篩選條件是帳號等於session對象值
set rs=server.createobject("adodb.recordset")
rs.open"SELECT * FROM tbuser WHERE UName='" & Replace(UNamethis,"'","''") & "'",conobject,1,3
%>

  3.資訊修改

<%
'取得擁護修改的密碼
UPwsthis=request("UPws")
UPws2this=request("UPws2")
'取得session對象值
UNamethis=session("username")
'建立資料連線 建立資料集合 篩選條件是帳號等於session值
set conobject=server.createobject("adodb.connection")
conobject.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( "/data/webjxbbs.mdb")
set rs=server.createobject("adodb.recordset")
rs.open"SELECT * FROM tbuser WHERE UName='" & Replace(UNamethis,"'","''") & "'",conobject,1,3
'調用update方法修改使用者項目 非必填項目判斷為非空再修改草案
rs("UPws")=UPwsthis
rs("UPws2")=UPws2this
if request("UEmail") <> "" then
 rs("UEmail")=request("UEmail")
 end if
 if request("UQq") <> "" then
 rs("UQq")=request("UQq")
 end if
 if request("UWebsite") <> "" then
 rs("UWebsite")=request("UWebsite")
 end if
 if request("UIntroduce") <> "" then
 rs("UIntroduce")=request("UIntroduce")
 end if
rs.update
rs.close
conobject.close
'轉向修改成功頁
response.redirect"userinfo.asp"
%>

  4.登陸

<%
'取得使用者填寫的帳號和密碼
UNamethis=request("UName")
UPwsthis=request("UPws")
'串連資料庫
set conobject=server.createobject("adodb.connection")
conobject.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( "/data/webjxbbs.mdb")
'建立資料集合 篩選條件是帳號 密碼和使用者填寫的一致 並用replace函數防止登陸漏洞
set rs=server.createobject("adodb.recordset")
rs.open"SELECT * FROM tbuser WHERE UName='" & Replace(UNamethis,"'","''") & "' and UPws='" & Replace(UPwsthis,"'","''") & "'",conobject,1,3
'判斷上面建立的資料集合是否為空白 如不是 說明資料庫中有此使用者 建立Session對象 轉到正確頁面 如是 說明資料庫中沒有此使用者 轉到登陸失敗頁面
If Not rs.EOF Or Not rs.BOF Then 
session("username")=UNamethis
 response.redirect"../bbs/catalog.asp"
 response.end
 end if
 response.redirect"loginfail.htm"
 response.end
 %>



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。