网站导航修改的
- 格式：doc
- 大小：515.00 KB
- 文档页数：9
一、课程序设计目的
为浏览者提供针对性和方便的导航，方便网民连接到相关网页的路径，提供有助于让浏览者找到所需信息的帮助。
通过模糊查找为浏览者提供友好的路径，从而使得他们能尽快的找到所需要的内容。
二、开发环境
1.系统环境：Windows XP，Windows 2003 Server，Access，Dreamweaver
2.运行环境：iis或者小服务器
三、实现过程
1、系统功能分析：整个项目由三个模块组成：用户注册登录模块、管理员模块、普通用户模块
2、关键技术实现
（1）连接数据库
使用ADO连接数据库，先声明一个对象来作为数据库与ASP程序间的媒介，对象的声明方式：
Dim db
Set db=Server.CreateObject("ADODB.Connection")
Db.Open "Dbq=" & Server.Mappath("../wwwlink.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
可以将连接数据库、创建记录集的文件包含到显示网站信息、添加网站信息等页面中来。
<!-- #include file="conn.asp" -->
（2）session对象进行权限设置及页面的跳转
通过session保存用户的身份信息实现管理员或者普通用户页面的跳转，同时当客户由一个Web页面到另一个页面，该Session信息仍然存在。
（3）判断用户身份
<%
If Session("usertype")<>"A" Then
Response.Redirect "../index.asp"
End If
%>
<%
If Session("usertype")<>"N" Then
Response.Redirect "../index.asp"
End If
%>
（4）用户注册
a.在这个页面需要做客户端验证，都不为空。
<SCRIPT language=JAVASCRIPT>
<!--
function check_Null(){
if (ername.value==""){
alert("用户名不能为空!");
return false;
}
if (document.form1.password.value==""){
alert("密码不能为空!");
return false;
}
if
(document.form1.password.value!=document.form1.password2.value){
alert("密码和密码确认必须一致!");
return false;
}
return true;
}
// -->
</SCRIPT>
b.另外要求用户名长度在5-20位间，且没有被别的用户使用过。
代码提示如下：<%
'各项验证正确无误，则可继续注册，否则返回
if request("username")<>"" then
'先检验帐号正确否
Dim exit_flag,temp_str
exit_flag=0
If len(request("username"))<5 or len(request("username"))>20 Then
temp_str="<br>用户名必须大于5位小于20位"
exit_flag=1
End If
sql="select username from Users where username='" & request("username") & "'"
set rs=db.execute(sql)
If not rs.eof and not rs.bof Then
exit_flag=1
temp_str="<br>已有人使用该用户"
End If
IF exit_flag=0 Then
'表示可以注册
Dim username,password,type2
username=request("username")
password=request("password")
type2=request("type2")
sql="insert into users(username,password,usertype) values('" & username & "','" & password & "','N')" 'N表示是普通用户
db.execute(sql)
session("username")=username '用session记住用户名，以备update_2.asp使用。
response.redirect "add_2.asp"
Else
response.write "<p><font color='red'>提示：" & temp_str & ",请重新填写</font></p>"
End If
end if
%>
（5）普通用户实现的查询功能
a、模糊查找：使用like运算符和通配符%进行模糊查找，。
“Select * from users where name like …%kk%‟”
代码提示如下：
b、保留住表单内容。
Value=”%keyword%>”
<% if field=”name” then response.write”selected”%>
c、写SQL代码实现相应的功能。
代码提示如下：
d、按字段实现相应的排序，代码提示如下：
e、Recordset对象实现分页显示的功能
Set rs=Server.CreateObject("ADODB.Recordset")
f、管理员用户，除了具有与普通用户相同的查询功能外，还能添加相应的网站信息。
利用insert 语句或者recordset对象实现添加。
3、程序运行结果截图：登录界面：
管理员界面——普通用户管理
管理员界面——网络导航管理
普通用户登录界面：
用户注册页面：
四、收获与体会
1.学会利用Session对象保留数据信息，实现身份辨别
2.读取数据库中表的内容，需要ADO对象的Recordset
3.学会排序及模糊查找板块的实现
4.该系统的功能不够人性化,缺乏有效提示,例如用户名是否能被使用,以及用户名格式是否规范等等。
