国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

一、數(shù)據(jù)庫(kù)的建立 

打開(kāi)ACCESS2000，新建數(shù)據(jù)庫(kù)（lanier_db.mdb），表名：login 

Login表包函的字段：Id;userid(用戶(hù)名);pwd(密碼) 

二、打開(kāi)Dreamweaver MX 新建conn.asp頁(yè)面.然后把下面的代碼復(fù)制到conn.asp里。 

<%dim connset conn=Server.createobject("adodb.connection")conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("lanier_db.mdb")If err.number<>0 thenResponse.write("連接數(shù)據(jù)庫(kù)時(shí)產(chǎn)生錯(cuò)誤！")Response.EndEnd if%>

用到此頁(yè)面時(shí)包括即可：<!--＃i nclude file="conn.asp"--> 

三、新建Login.asp頁(yè) 

……<form method="post" action="check.asp">用戶(hù)名:<input type="text" name="userid" size="20">密  碼: <input type="text" name="pwd" size="20"><input type="submit" name="submit1" value="登錄"><input type="reset" name="button1" value="清除"></form>……

將此頁(yè)的用戶(hù)名及密碼提交到check.asp進(jìn)行校驗(yàn). 

四、建立check.asp頁(yè) 

<!--＃i nclude file="conn.asp"--><%Dim Rs,Sql,Userid,PwdUserid=Request.form("Userid") '提取login.asp頁(yè)面的用戶(hù)名；Pwd=Request.form("pwd") '提取login.asp頁(yè)面的密碼；Set Rs=Server.Createobject("adodb.recordset")Sql="select * from login where userid='"&Userid&"' "Rs.open sql,conn,1,1If rs.eof and rs.eof then  '判斷用戶(hù)名是否存在Response.write "<script language=javascript>alert('用戶(hù)不存在');history.go(-1);</script>"Response.EndElseif Rs("pwd")<>pwd then '判斷密碼是否正確Response.write "<script language=javascript>alert('密碼錯(cuò)誤');history.go(-1);</script>"Response.EndElseSession("userid")=userid '把用戶(hù)名寫(xiě)入sessionResponse.redirect("index.asp")End if%>

把用戶(hù)名寫(xiě)入Session("userid")是為了防上非法登錄,只要在受限頁(yè)面的頭部加入下面代碼: 

<%if session("userid")="" thenresponse.write("<script language=javascript>alert('對(duì)不起,你沒(méi)有查看該頁(yè)的權(quán)限或已超時(shí),請(qǐng)重新登錄!');history.go(-1)</script>")response.redirect("loging.asp")End%>