敬业的IT人 >> 网站建设 >> Web编程 >> Asp >> 一些 ASP 小源程序

一些 ASP 小源程序

敬业的IT人互联网佚名 2008-4-14 17:06:51

Active Server Pages
Password Script
<%
Sub FormInput() %>
<form method=post action="logon.asp">
<center>
<H1>Generic Logon</H1>
User Name:<input type=text size=20 name=username>
<br><br>
Password:<input type=password size=20 name=password>
<br><br>
<input type=submit name=submit value="Submit">
</center>
</form>
<% 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 "<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" & ""

最新文章: 用ASP制作个性化的调查板（附源程序）[04-14]; 一些源程序 - 获得文件大小和字符串处理[04-14]; ASP服务器组件的编程[04-14]; 第一个ASP组件:设置服务器日期时间组件[04-14]; 虹雨的功能较全的计数程序[04-14]; 下拉框连动的小例子（数据库版）[04-14]

相关文章: 用ASP制作个性化的调查板（附源程序）[04-14]; ASP服务器组件的编程[04-14]; 第一个ASP组件:设置服务器日期时间组件[04-14]; 纯ASP上传图像文件到数据库的最佳例子[04-14]; 通过ASP与ACCESS数据库建立连接（附源码）(1)[04-14]; 通过ASP与ACCESS数据库建立连接（附源码）(2)[04-14]

一 些 ASP 小 源 程 序

一些 ASP 小源程序