推薦:ADO初學者教程:ADO 顯示顯示來自記錄集中的數據的最常用的方法,就是把數據顯示在HTML表格中。 顯示字段名稱和字段值我們有一個名為Northwind的數據庫,並且我們希望顯示出Customers表中的數據(記得以.asp為擴展名來保存這個文件): htmlbody%set conn=Server.CreateObject(
用戶登錄驗證腳本,Chkpwd.asp
- <%
- '=======用戶登錄驗證腳本=======
- '如果尚未定義Passed對象,則將其定義為false,表示沒有通過驗證
- IfIsEmpty(Session(Passed))Then
- Session(Passed)=false
- EndIf
- 'Session(Passed)=False,表示尚未通過驗證,則開始讀取從表單傳來的驗證信息
- IfSession(Passed)=FalseThen
- UserName=Request.Form(UserName)
- UserPwd=Request.Form(UserPwd)
- IfUserName=Then
- Errmsg=提示:請輸入用戶名和密碼
- Else
- '===================連接數據庫=====================
- SetConn=Server.CreateObject(ADODB.Connection)
- Conn.Connectionstring=Driver={SQLServer};Server=192.168.1.3;UID=sa;PWD=;Database=zcmrs
- Conn.open
- '===================從表log中讀取用戶數據=====================
- '定義RecordSet對象
- Setrs=Server.CreateObject(ADODB.Recordset)
- '設置Connection對象的ConnectionString
- Setrs.ActiveConnection=Conn
- '設置游標類型
- rs.CursorType=3
- '打開記錄集
- rs.OpenSelectusername,passwordfromerpuserWhereusername='&UserName&'
- '===================身份驗證======================
- Ifrs.EOFThen
- Errmsg=提示:用戶不存在或密碼錯誤
- Else
- IfUserPwd<>rs.Fields(password)Then
- Errmsg=提示:登錄失敗!密碼錯誤?
- Else'登錄成功
- Errmsg=
- Session(Passed)=True
- Session(UserName)=rs.Fields(username)
- '標識用戶權限Session(UserID)=rs.Fields(UserID)
- EndIf
- EndIf
- EndIf
- EndIf
- '經過登錄不成功,則畫出登錄表單
- IfNotSession(Passed)=TrueThen
- %>
- <html>
- <head><title>設計家園_dwww.cn</title>
- <styletype=text/css>
- <!--
- .STYLE1{font-size:12px;font-weight:bold;margin-left:120px;outline:double}
- -->
- </style>
- <styletype=text/css>
- <!--
- .STYLE2{font-size:12px;font-weight:bold;outline:double;color:#FF3333}
- -->
- </style>
- </head>
- <bodyleftmargin=0topmargin=0marginheight=0marginwidth=0bgcolor=#000000>
- <divid=parentstyle=height:300;width:450;border-style:solid;border-color:#FFFFFF;margin-top:80px;margin-left:25%;margin-right:25%;background-color:#FFFFFF>
- <divid=denglustyle=font-size:12px;font-weight:bold;background-color:#0099FF;text-align:center;height:40px;><br>ERP系統登錄</div>
- <formaction=<%=request.ServerVariables(path_info)%>method=postname=MyFormid=MyForm>
- <pclass=STYLE1>用戶名:<inputname=UserNametype=textid=UserNamesize=18maxlength=20>
- </p>
- <pclass=STYLE1>密碼:<inputname=UserPwdtype=passwordid=UserPwdsize=18maxlength=20>
- </p>
- <palign=centerclass=STYLE2><%=Errmsg%></p>
- <p>
- <inputtype=submitalign=middlename=Submitvalue=登錄系統>
- <inputname=regetype=buttonalign=middleonClick=location='register.asp'id=regevalue=註冊用戶>
- </p>
- </form>
- </div>
- </body>
- </html>
- <%
- '<pclass=STYLE1>驗證碼:<inputname=CheckCodetype=textid=CheckCodesize=6maxlength=4>
- '<IMGstyle=MARGIN-RIGHT:40pxalt=src=common/getcode.asp></p>
- response.End
- EndIf
- %>
要訪問的頁面erp.asp
- <!--#includefile=chkpwd.asp-->
- <body>
- <divstyle='font-size:12px;font-weight:bold;border:1pxsolid#001;padding:4px;background:#FFCCFF;margin-top:0;'>歡迎使用ERP查詢系統,當前登錄用戶為:
- <%
- IfSession(Passed)=TrueThen
- Response.Write(Session(UserName))
- EndIf
- %><ahref=logout.asp>退出系統</a>
- </div>
- </body>
以上每次打開erp.asp的時候,都首先執行Chkpwd.asp(),這樣可以有效防止未授權用戶訪問指定網頁.
logout.asp系統退出
- <body>
- <%
- Session(Passed)=false
- Session(UserName)=
- Response.Redirect(index.asp)
- %>
- </body>
使用圖片提交表單
- <formname=form1method=postaction=>
- <tdalign=right><inputtype=imagemethod=submitname=submitsrc=image/loginin.gifwidth=70height=21alt=submit></td>
- </form>
分享:ADO初學者教程:ADO 添加記錄我們可以使用SQL的INSERT INTO命令向數據庫中的表添加記錄。 向數據庫中的表添加記錄我們希望向Northwind數據庫中的Customers表添加一條新的記錄。我們首先要創建一個表單,這個表單包含了我們希望選定數據的字段: htmlbodyform method=post action=dem