' Connect to table in database Set cn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") cn.Open "DSN Name" rs.Open "Select * From TableName",cn,adOpenStatic,adLockPessimistic
' Test for correct username and password If Request.Form("submit") > "" Then Do While Not rs.EOF ' Compare form input to password database recordset values If Request.Form("username") = rs("username") Then correct_name = True End If If Request.Form("password") = rs("password") Then correct_password = True End If rs.MoveNext Loop
If correct_password = True And correct_name = True Then ' If password and username are correct, jump to DataEntry.asp ' Note: chr(34) is the double quotes character Session("user") = Request.Form("username") Response.write "<Script Language=" & chr(34) & "javaScript" & chr(34) & ">" Response.write "window.location = " & chr(34) & "DataEntry.asp" & chr(34) & """ Response.write "</Script>" Else ' If password or username is incorrect, write Javascript code in HTML for an alert dialog box Response.write "<Script Language=" & chr(34) & "JavaScript" & chr(34) & ">" Response.write "alert(" & chr(34) & "access Denied!" & chr(34) & ");" Response.write "</Script>" End If rs.Close End If %> Password Protect Script <% ' Set local variable username to Session variable user username = Session("user")
' If username is an empty string, the user did not use logon.asp to login If username = "" Then Response.write "Sorry, you are not logged in!<br>" Session.Abandon Response.End End If %> Email Script Newline = chr(13) & chr(10) Set Mailer = Server.CreateObject("CDONTS.NewMail") Mailer.To = "" & Request.Form("Email") & "" Mailer.From = "" & "rrobbins@sunlink.net" & "" Mailer.Subject = "" & "Testing Automated Email" & "" Mailer.Body = "" & "My email message" & Newline & "Second line" & "" Mailer.Send Set Mailer = Nothing SQL Server Connection <% Set cn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") strConn = "driver={SQL Server};server=Pentium;uid=sa;pwd=;database=Test" cn.Open strConn %> Windows Script Host ' Windows Script Host File ' programmed by Robert S. Robbins ' Open database connecection and get recordset Const adOpenForwardOnly = 0 Const adLockPessimistic = 2 Set cn = WScript.CreateObject("ADODB.Connection") Set rs = WScript.CreateObject("ADODB.Recordset") cn.Open "DSN Name" rs.Open "Select * From TableName",cn,adOpenForwardOnly,adLockPessimistic While Not rs.EOF message = rs("Message") MsgBox message,64,"Database Message" rs.MoveNext Wend
VBScript 5.0 Regular Expression <% Set objFile = Server.CreateObject("Scripting.FileSystemObject") Set inFile = objFile.OpenTextFile("D:/Temp/test.txt", 1) strInput = inFile.ReadALL inFile.Close Set myTest = new RegExp myTest.Pattern = "/w+," myTest.Global = True myTest.IgnoreCase = True Set myCollection = myTest.Execute(strInput) For Each element In myCollection Response.write element & "<BR>" Next %>
