5天学会asp(4)

'创建个数据库叫news
create database news
use news
create table admin
(
id int primany key,
admin_name varchar(20) not null,
admin_pwd  varchar(20) not null,
)
'然后我们插入一条数据
insert into admin values(1,'admin','admin')
'然后我们用select * from 查询一下
select * from admin
就会看到我们的数据了
好了，我们打开昨天做的登陆严整的代码，这里我们回顾一下吧，做天我们用了两个页来实现的会员登陆的验证，
这两个页分别是(登陆页login.asp)和(验证页checklogin.asp)，
现在我们没有做数据库验证，
(登陆页login.asp)页我们不用改动，
下面我们只需改动(验证页checklogin.asp)，就行了，
这里我们要做个连接数据库的页面文件，名字就叫conn.asp吧
代码如下
<%
dim conn,dbuid,dbpwd,dBName,dbip
 dbuid="sa"   '数据库登陆名
 dbpwd="123456"   '数据库密码
 dBName="news"   '数据库名称
 dbip="(local)"   '可为IP '数据库所在地址，如果是本地数据库则为：(local)
'---------------------------------------------------------------------------
set conn=Server.CreateObject("adodb.Connection")
Conn.Open  "PROVIDER=SQLOLEDB.1;Data Source="&dbip&";Initial Catalog="&dBName&";Persist Security Info=True;User 
ID="&dbuid&";Password="&dbpwd&";Connect Timeout=30"
If Err Then
 err.Clear
 set conn=nothing
 Response.Write "无法连接MSSQL"
 Response.End
End If
%>
打开checklogin.asp代码，
首先在页面上我们要引用数据库连接文件
<!--#include file=conn.asp-->
<%
'-------------------为防止出错我们定义username和password----------------
dim username
dim password
'--------用request的form方法来接受login.asp页面传来的值，并付值给我们定义的username和password
username=request.form("username")
password=request.form("password")
'---------判断传来的值是不是空值
if username="" then
'用response的write的方法输出一个脚本
    response.write"<script>alert('用户名不能为空')</script>"
 response.end
end if
if password="" then
 response.write"<script>alert('密码不能为空')</script>"
 response.end
end if
'----------判断用户名和密码是不是一样的，如果一样的输出"登陆成功"并把session的标志给这个用户,否则就输出"登陆失败"
'------------这里我们就要在数据库里面比较两个值了
set rs=server.cerateobject("adodb.recordset")