【題外話：最近做Internet作業，在這寫一個適合初學入門的ASP連接ACCESS數據庫做登陸界面的簡單的例子，以慰藉我一口氣把以前做過的系統中的PHP代碼全改成ASP代碼來臨時應付作業的心情......然后，這個小例子很簡單的。】
【前提條件：你已經在Windows下配置搭建了IIS服務器】
該例實現的功能為：
連接Access數據庫；
登陸頁面選擇管理員或賬戶登陸；
用戶界面顯示當前用戶信息；
管理員界面顯示數據庫中所有用戶資料信息 並 實現分頁功能（每頁最多五行）；
實現注銷功能。
【注：本例並沒有做頁面設計，可以自己加一些CSS、js之類的進行美化】
首先，創建Access數據庫:(注意這里選擇2002-2003版本的)
然后，創建表，添加字段：我這里簡單舉例，管理員表和用戶表一樣，你可以添加其他字段做的更豐富。
然后編寫以下代碼即可：
conn.asp（連接數據庫）
1 <% 2 Session.CodePage=65001 3 Response.Charset="UTF-8" 4 '連接數據庫開始 5 dim conn,rs,sql 6 'on error resume next 7 'dbpath為你自己設置的數據庫路徑 8 dbpath="D:/AccessDB/test.mdb" 9 set conn=Server.CreateObject("ADODB.Connection") 10 conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; data source="&dbpath 11 '創建記錄對象 12 set rs=server.createobject("adodb.recordset") 13 %>
【注：dbpath="D:/AccessDB/test.mdb" 我是將數據庫放在了D盤的AccessDB目錄下，路徑請根據你自己的情況來設置】
index.asp（登陸主頁面）
1 <html> 2 <head> 3 <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> 4 <title>登陸界面</title> 5 </head> 6 <form id="loginForm" action="login.asp" method="post"> 7 <ul style="border:1px solid #CCC;"> 8 <label>權 限：</label> 9 <select id="sel_type" name="sel_type"> 10 <option value="1">賬戶</option> 11 <option value="2">管理員</option> 12 </select> 13 <label class="p2">賬 號：</label> 14 <input type="text" id="userName" name="userName" /> 15 16 <label class="p2">密 碼：</label> 17 <input type="password" id="userPwd" name="userPwd"/> 18 19 <input type="submit" name="submit" value="登錄"/> 20 <input type="reset" value="重置"> 21 </ul> 22 </form> 23 </html>
login.asp（登陸檢測）
1 <%@Language="vbscript" Codepage="65001"%> 2 <!-- #include file="conn.asp" --> 3 <% 4 Session.CodePage=65001 5 Response.Charset="UTF-8" 6 username = Request.Form("userName") 7 password = Request.Form("userPwd") 8 flag = Request.Form("sel_type") 9 10 if username = "" or password = "" then 11 response.Write("用戶名或密碼不能為空!") 12 Response.Write("返回<a href='index.asp'>登錄主頁</a><br />") 13 response.End() 14 end if 15 16 if flag = "1" then 17 '賬戶 18 '打開數據庫判斷用戶是否存在,user為表名,namee為字段名 19 set rsc=server.createobject("adodb.recordset") 20 sqlc="select * from [user] where username='"&request.Form("userName")&"' and password='"&request.Form("userPwd")&"'" 21 rsc.open sqlc,conn,1,1 22 23 if rsc.eof then 24 Response.Write("用戶名或密碼錯誤！") 25 Response.Write("返回<a href='index.asp'>登錄主頁</a><br />") 26 Response.End() 27 28 else 29 session("username")=rsc("username") 30 session("password")=rsc("password") 31 32 end if 33 rsc.close 34 set rsc=nothing 35 '登陸成功跳轉到用戶界面 36 response.Redirect("user.asp") 37 else 38 '管理員 39 set rsc=server.createobject("adodb.recordset") 40 sqlc="select * from administrator where username='"&request.Form("userName")&"' and password='"&request.Form("userPwd")&"'" 41 rsc.open sqlc,conn,1,1 42 43 if rsc.eof then 44 Response.Write("用戶名或密碼錯誤！") 45 Response.Write("返回<a href='index.asp'>登錄主頁</a><br />") 46 Response.End() 47 48 else 49 session("username")=rsc("username") 50 session("password")=rsc("password") 51 52 end if 53 rsc.close 54 set rsc=nothing 55 '登陸成功跳轉到管理員界面 56 response.Redirect("admi.asp") 57 end if 58 %>
user.asp（用戶界面）
1 <%@Language="vbscript" Codepage="65001"%> 2 <!-- #include file="conn.asp" --> 3 <% 4 if session("username")="" then 5 response.Redirect("index.asp") 6 else 7 username = session("username") 8 password = session("password") 9 end if 10 %> 11 <html> 12 <head> 13 <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> 14 <title>用戶界面</title> 15 </head> 16 <% 17 Response.Charset="UTF-8" 18 Response.Write("</br>") 19 Response.Write("賬 號：" & username & "</br>") 20 Response.Write("密 碼：" & password & "</br>") 21 %> 22 <a href="logout.asp">注銷</a> 23 </html>
admi.asp（管理員界面）
1 <%@Language="vbscript" Codepage="65001"%> 2 <!-- #include file="conn.asp" --> 3 <% 4 if session("username")="" then 5 response.Redirect("index.asp") 6 else 7 username = session("username") 8 password = session("password") 9 end if 10 %> 11 <html> 12 <head> 13 <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> 14 <title>管理員界面</title> 15 </head> 16 用戶資料表： 17 <font style="font:bold 18px KaiTi;"> 18 <% 19 set rs=server.createobject("adodb.recordset") 20 sql="select * from [user]" 21 rs.open sql,conn,1,1 22 23 rs.pagesize = 5 24 curpage = 1 25 if Request.QueryString("curpage") <>"" then 26 curpage = Request.QueryString("curpage") 27 end if 28 rs.absolutepage = curpage 29 30 response.write("<table border='#CCF solid 1px'>") 31 response.write("<tr><th>用戶名</th><th>密碼</th></tr>") 32 for i = 1 to rs.pagesize 33 if rs.eof then 34 exit for 35 end if 36 response.write("<tr>") 37 response.write("<td>"&rs("username")&"</td>") 38 response.write("<td>"&rs("password")&"</td>") 39 response.write("</tr>") 40 rs.movenext 41 next 42 response.write("</table>") 43 44 for i = 1 to rs.pagecount 45 %> 46 <a href ='./admi.asp?curpage=<%=i%>'>第<%=i%>頁</a> 47 <% 48 next 49 if curpage=1 then 50 response.write("首頁 ") 51 else 52 response.write("<a href ='admi.asp?curpage=1'>首頁</a> ") 53 end if 54 55 if curpage>1 then 56 %> 57 <a href ="admi_userInfo.asp?curpage=<%=curpage-1%>">上一頁</a> 58 <% 59 end if 60 61 if rs.pagecount>=curpage+1 then 62 %> 63 <a href ="admi_userInfo.asp?curpage=<%=curpage+1%>">下一頁</a> 64 <% 65 end if 66 67 if rs.pagecount < curpage+1 then 68 response.write("尾頁") 69 else 70 %> 71 <a href ="admi_userInfo.asp?curpage=<%=rs.pagecount%>">尾頁</a> 72 <%end if%> 73 </font> 74 75 <a href="logout.asp">注銷</a> 76 </html>
logout.asp（注銷界面）
1 <%@Language="vbscript" Codepage="65001"%> 2 <!-- #include file="conn.asp" --> 3 <html> 4 <head> 5 <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> 6 <title>注銷界面</title> 7 </head> 8 </html> 9 <% 10 session("username")="" 11 session("password")="" 12 Response.Write(" 謝謝您的使用！返回 <a href='index.asp'>登錄主頁</a><br />") 13 %>
效果如下：（我是將以上代碼文件都放在了C:\inetpub\wwwroot\test目錄下，這里我設置的默認目錄就是wwwroot）
（頁面不美觀、不要在意、自己設計哇......）
