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 %>
<!--#include file="adovbs.inc" -->

<%
' *********** 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")

[1] [2] [3] [4] 下一页

在google里搜索更多一 些 ASP 小 源 程 序

	Web www.51ec.org

上一篇信息学院： ASP+学习笔记（五）

下一篇信息学院： 数 据 库 设 计 经 验 谈…