ASP編寫的簡單登陸系統

　　分註冊 資訊修改 登陸 三部分。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
 %>