ASP与数据库，有用的代码（转贴，摘贴）(2)

　　　　　　　　一、创建用户密码数据库
　　　　　　　　先用Access建立一个用户密码数据库，建立字段名id和psd,并添加值.如:id的值我设为：admin，psd的值为：www，当然，你还可以继续添加用户id及psd,完成后保存为：psd.mdb。
　　　　　　　　二、编写psd.asp(用户登录界面页，完成验证的功臣就是它了)及log.asp(成功登录后显示的页面)。在编写之前，我们来分析一下常见的用户登录界面，比如说你想收取基于web 
　　　　　　page方式免费邮件箱的登录界面：管理用户登录的文件名常常为log.*,开始登录时是这个文件，登录完成后浏览器的地址栏中还是显示的这个文件名，这是怎么回事儿呢？用ASP的方法来讲，原来，用户登录的文件被包含在登录完成后的文件中。以我现在要讲的这个例子来说，psd.asp就是被包含在log.asp中了。用户登录时看到的文件名将是：log.asp，而log.asp要求系统先执行psd.asp，通过验证之后才看到真正的log.asp网页。对了！实际上密码验证的关键在psd.asp。在你读完本文后，你会深深体会这一点。既然psd.asp文件是关键，那我们就先来看看psd.asp是怎么写的。
　　　　　　　　运行FrontPage新建一个文件，并保存为：psd.asp(在FrontPage 的保存类型中选取“Active Server 
　　　　　　Pages”)。在FrontPage 
　　　　　　左下角选取“HTML”先在它的顶部进行ASP源代码的编写，内容如下(以下源代码中凡出现“‘……”的均为注释)： 
　　　　　　　　<%
　　　　　　　　function checkPwd(id,psd) '检测用户id及密码
　　　　　　　　dim conn,param,rs 
　　　　　　　　set conn=server.createobject("adodb.connection") '创建数据库连接对象conn
　　　　　　　　param="driver={microsoft access driver (*.mdb)}" 
　　　　　　‘指定数据库驱动程序，不可省略写为“access diver(*.mdb)”
　　　　　　　　conn.open param & ";dbq=" & server.mappath("psd.mdb") 
　　　　　　'用指定的数据库驱动程序打开数据库，并指定数据路径
　　　　　　　　sql="select*from psd where id='" & id & "' and psd='" & psd & "'" 
　　　　　　‘定义sql从数据库中读取id及psd的值,本行中的第一个psd是指数据库名，以后的psd是指psd.mdb中的psd字段。
　　　　　　　　set rs=conn.execute(sql) '打开数据库
　　　　　　　　if rs.eof then 
　　　　　　　　checkpwd=false 
　　　　　　　　else 
　　　　　　　　checkpwd=true 
　　　　　　　　end if 
　　　　　　　　end function