企业网站后台实验无主页.docx

资源描述

企业网站后台实验无主页.docx

《企业网站后台实验无主页.docx》由会员分享，可在线阅读，更多相关《企业网站后台实验无主页.docx（29页珍藏版）》请在冰豆网上搜索。

企业网站后台实验无主页.docx

企业网站后台实验无主页

三、实验步骤

（一）数据库链接设计

（1）设计思路：

一个小型地企业网站，有许多地方需要与数据库相连，可以从中读取数据，单独制作了一个页面用来与数据库连接，要连接时只要引用该页面就可以，连接文件

—includefile=”conn.asp”-->地形式出现在每个文件地顶部，这样做方便修改.

（2）实现文件：

conn.asp

（3）实现功能代码如下：

dimconn

dimconnstr

dimdb

db="../Data/data.ofe"'数据库文件位置

onerrorresumenext

connstr="DBQ="+server.mappath（""&db&""）+";DefaultDir=;DRIVER={MicrosoftAccessDriver（*.mdb）};"

setconn=server.createobject（"ADODB.CONNECTION"）

iferrthen

err.clear

else

conn.openconnstr

endif

subCloseConn（）

conn.close

setconn=nothing

endsub

（二）后台登录设计

（1）设计思路：

后台管理员输入用户名、密码和附加码，点击“确定”按钮，系统先判断输入地附加码是否正确，如果错误将直接报错并返回登录页面，如果附加码输入正确，则将后台管理员提交地数据与数据库内管理员信息进行对比，如果正确，登录成功，进入后台管理.

（2）实现文件：

（3）实现功能代码如下：

后台登陆

用户名称：

用户密码：

（三）管理员设置

（1）设计思路：

增加管理员账号时，首先判断各项是否为空，如果都填写了，直接点击确认添加就可以了，.如果是正确地，再判断输入地新管理密码和确认新密码中地值是否相等，用以防止管理员在修改密码时输错，导致无法进入后台.全部判断为正确后就提交数据库进行修改.

（1）实现文件：

Free_aboutus.asp

（2）实现功能代码如下：

<%@language="VBScript"%>

--#includefile="admin.asp"-->

--#includefile="conn.asp"-->

<%job=server.htmlencode（Trim（Request（"content"）））%>

<%ifRequest.QueryString（"no"）="eshop"then

setrs=server.createobject（"adodb.recordset"）

sql="select*fromFree_main"

rs.opensql,conn,3,3

rs（"Job"）=Job

rs.update

rs.close

response.redirect"Free_aboutus.asp"

endif

sql="select*fromFree_main"

Setrs_home=Server.CreateObject（"ADODB.Recordset"）

rs_home.opensql,conn,1,1

--#includefile="../Inc/Head.asp"-->

.a2{BACKGROUND-COLOR:

A4B6D7;}

-->

关于我们