书签 分享 收藏 举报 版权申诉 / 18

类型网页设计毕业设计任务书.docx

  • 文档编号:27259010
  • 上传时间:2023-06-28
  • 格式:DOCX
  • 页数:18
  • 大小:269.32KB

〈tdbgcolor="#FFCCFF">

〈/td〉

〈/tr〉

〈trbgcolor=”#D4D0C8”>

〈tdcolspan="2"〉     

      

〈/tr〉

〈/tr>

〈/table〉

〈/html〉

3、用户注册界面,它与登录所呈现界面的代码相似:

 

将所填信息记录到数据库,需与数据库建立链接代码如下:

〈%OptionExplicit%>

<%

’如果上面的信息全了,就添加记录,否则给出错误信息

IfRequest。

Form(”name1”)<〉"”AndRequest.Form(”mima1”)〈〉”"AndRequest。

Form(”dianhua”)〈>"”Then

’以下连上数据库,建立一个Connection对象示例db

Dimdb

Setdb=Server。

CreateObject(”ADODB.Connection")

db。

Open”Dbq="&Server.MapPath(”。

/data/www_link”)&”;Driver={MicrosoftAccessDriver(*。

mdb)};”

’以下添加记录

DimstrSql,varname1,varmima1,vardianhua

varname1=Request.form(”name1”)

varmima1=Request.form("mima1")

vardianhua=Request。

Form(”dianhua”)

strSql=”InsertIntolink(name1,mima1,dianhua)Values(’”&varname1&”’,’"&varmima1&"’,'”&vardianhua&"')”

db。

Execute(strSql)

Response.Redirect".。

/index1。

asp"

Else

Response。

Write"请将所有信息填写完整,”

Response。

Write”〈ahref='Regedit—zhuce。

asp’〉重新添加〈/a>”

endif

%>

然而,登录信息与注册所需的代码就不同了:

Conn。

asp文件的内容:

〈%db=”。

/data/www_link。

mdb”

connstr=”Provider=Microsoft。

Jet。

OLEDB。

4。

0;DataSource=”&Server。

MapPath(db)

Setconn=Server。

CreateObject(”ADODB。

Connection”)

conn.openconnstr

setrs=server。

createobject("Adodb。

Recordset”)

%〉

<!

-—#includefile="Conn。

asp”——>

<%dimname1,mima1

name1=replace(trim(request(”name1”)),"’",””)

mima1=replace(trim(request("mima1")),”'”,”")

ifname1=””ormima1=””then

response。

Write"〈center〉〈ahref=denglu。

asp>〈fontcolor=redsize=2〉对不起,登陆失败,请检查您的登陆名和密码〈/font〉〈/a〉〈/center〉"

response。

end

endif

setrs=server。

CreateObject("adodb。

recordset”)

rs。

Open”select*fromlinkwherename1=’”&name1&”'andmima1=’”&mima1&"’”,conn,1,1

ifnot(rs。

bofandrs。

eof)then

'rs("super")=1

ifmima1=rs(”mima1")then

session(”name1")=trim(rs(”name1”))

session.Timeout=200

rs。

Close

setrs=nothing

response。

Redirect”。

./index1.asp”

else

session(”name1”)=”"

response。

write"

’);history。

go(-1);〈/script>"

endif

else

response.write”〈scriptLANGUAGE=’javascript'>alert(’对不起,登陆失败!

');history。

go(—1);

endif

%〉

三、管理员管理,包括登录、添加、删除、修改.

1、管理员的登录与上面所介绍的用户登录类似,只将所连接的表名和字段名改为admin、password即可。

2、管理用户界面:

代码如下:

 

<%OptionExplicit%〉

〈%ifsession("admin")="”then

response。

Redirect”login.asp”

endif

%〉

〈head〉

〈body〉

〈H2align=”center”〉用户查询管理

〈%

Dimdb

Setdb=Server。

CreateObject("ADODB。

Connection")

db。

Open"Dbq="&Server。

Mappath(”。

./data/www_link。

mdb")&”;Driver={MicrosoftAccessDriver(*。

mdb)}”

DimstrSql,rs

strSql="Select*fromlinkOrderByidDesc”

Setrs=db。

Execute(strSql)

%>

〈center〉

〈ahref=”add_form。

asp”>添加标记〈/a〉

〈trbgcolor=”#eoeoeo">

〈td>用户名〈/td〉

〈td〉密码

〈td>电话

〈/tr>

〈%

DoWhileNotrs.eof

%>

〈tr〉

〈td〉〈%=rs("name1”)%〉〈/td〉

〈td>〈%=rs("mima1")%>〈/td〉

〈td〉〈%=rs(”dianhua”)%〉〈/td>

〈td〉

id=〈%=rs(”id”)%〉”>删除

asp?

id=〈%=rs(”id”)%>"〉修改〈/td〉

〈%

rs。

MoveNext

loop

%〉

〈/table〉

〈/center〉

〈/body〉

3、用户的删除代码:

用户的删除操作步骤既是在用户查询管理界面中单击相应用户后面的删除连接。

〈%OptionExplicit%〉

〈%

Response。

Buffer=true

’以下连上数据库,建立一个connerction对象示例db

Dimdb

Setdb=Server。

CreateObject("ADODB。

Connection")

db。

Open”Dbq="&Server。

MapPath(”.。

/data/www_link。

mdb”)&”;Driver={microsoftAccessDriver(*.mdb)};”

’以下删除记录,注意这里是由index。

asp传来的要删除的记录的网站编号

Dimvarlink_id,strSql

varlink_id=Request。

QueryString(”id”)'获取要删除的记录网站编号

strSql=”DeletefromlinkWhereid="&varlink_id

db。

Execute(strSql)

Response。

Redirect”index.asp”’删除完毕,重定向回首页

%>

4、用户修改代码:

进入修改用户信息界面即在用户查询管理界面中单击修改连接。

 

〈%OptionExplicit%〉

〈html>

〈head>

〈title〉利用Update语句修改记录示例

〈/head>

〈h2align=”center”>修改网站〈/h2>

〈%

Dimvarlink_id

varlink_id=Request。

QueryString(”id")

Session("id”)=varlink_id

Dimdb

Setdb=Server。

CreateObject("ADODB。

Connection”)

db。

Open”Dbq=”&Server。

MapPath("。

/data/www_link。

mdb”)&";Driver={MicrosoftAccessDriver(*.mdb)};”

DimstrSql,rs

strSql="Select*fromlinkWhereid=”&varlink_id

Setrs=db.Execute(strSql)

%>

〈center>

〈tableborder=”1"width="600”〉

asp”〉

”〉

〈/tr〉

〈td〉密码〈/td〉”>〈/td〉

〈/tr>〈tr〉

〈td>电话〈/td〉〈td〉

〈inputname="dianhua”type=”text"size="40"value=”〈%=rs(”dianhua”)%〉">

〈/tr〉〈tr〉

〈td>〈td>〈/td>

〈/table〉

〈/center〉

修改完之后单击确定既是将信息保存的数据库,需要与数据库的链接,代码如下.

〈%OptionExplicit%〉

〈%

Dimvarlink_id

varlink_id=Session(”id”)

IfRequest.Form(”name1")〈〉"”andRequest.Form(”mima1")<〉””AndRequest。

Form(”dianhua”)〈〉"”Then

Dimdb

Setdb=Server.CreateObject(”ADODB。

Connection”)

db。

Open”Dbq=”&Server.MapPath("。

/data/www_link.mdb”)&”;Driver={MicrosoftAccessDriver(*。

mdb)};”

Dimvarname1,varmima1,vardianhua,strSql

varname1=Request.Form(”name1”)

varmima1=Request。

Form("mima1”)

vardianhua=Request。

Form("dianhua")

strSql=”UpdatelinkSetname1=’”&varname1&"',mima1=’”&varmima1&"’,dianhua='"&vardianhua&”'Whereid=”&varLink_id

db。

Execute(strSql)

Response。

Redirect”index.asp”

Else

Response。

Write"请将所有信息添写完整”

Response.Write"

asp'〉重新修改

endif

%〉

指导小组评议意见(在相应字母上画圆圈)

设计意义

A。

重要

B。

一般

C。

不重要

设计内容

A。

充实

B.较充实

C.空洞

设计研究思路和方法

A.清晰可行

B。

尚可

C。

模糊不可行

设计小组的研究基础

A.雄厚

B。

一般

C。

较差

评议结果:

 

系部意见:

 

签字:

盖章:

年月日

附件:

程序﹑文档﹑软件﹑实物等.

配套讲稿:

如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

特殊限制:

部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。

关 键  词:
网页 设计 毕业设计 任务书
提示  冰豆网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:网页设计毕业设计任务书.docx
链接地址:https://www.bdocx.com/doc/27259010.html
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2008-2022 冰点文档网站版权所有

经营许可证编号:鄂ICP备2022015515号-1

收起
展开