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