一些 ASP 小源程序 -pc6资讯

您的位置：首页 → 精文荟萃 → 软件资讯 → 一些 ASP 小源程序

一些 ASP 小源程序 时间：2004/10/7 19:18:00来源：本站整理作者：蓝点我要评论(0): Active Server Pages

Password Script

<%

Sub FormInput() %>

　　

　　

　　
Generic Logon

　　User Name:

　　

　　Password:

　　

　　

　　

　　

<% End Sub %>

<%

' *********** Password Login Code *********************

' *********** programmed by Robert Robbins ************

' *********** First Version 03/28/99 ******************

' *****************************************************

' Call Input Form subroutine

FormInput()

' Create session variable. Username needed for filename.asp

Session("user") = ""

' Initialize boolean flags to false

correct_name = False

correct_password = False

' 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 ""

　　Else

　　　　' If password or username is incorrect, write JavaScript code in HTML for an alert

dialog box

　　　　Response.write ""

　　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!
"

　　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 & "
"

Next

%>

文章评论

查看所有0条评论>>

一 些 ASP 小 源 程 序

Generic Logon

一些 ASP 小源程序