网页设计与制第6章-课件2

上传人：塞*** IP属地：贵州上传时间：2022-12-29 格式：PPT 页数：98 大小：330.61KB 积分：25 举报 版权申诉

已阅读5页，还剩93页未读，继续免费阅读

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

7.1Web上常用的编程语言7.2Web数据库概述

7.3ASP编程

习题7

7.1Web上常用的编程语言本节知识点

JavaScript脚本语言

VBScript脚本语言

ASP(ActiveServerPages，动态服务器页)

JSP(JavaServerPages，Java服务器页)

PHP(HypertextPreprocessor，超级文本预处理语言)7.1Web上常用的编程语言本节知识点

JavaScript脚本语言

VBSc7.1.1JavaScript脚本语言

JavaScript是一种由Netscape的LiveScript发展而来的原型化继承的面向对象的动态类型的区分大小写的客户端脚本语言，主要目的是解决服务器端语言(比如Perl)遗留的速度问题，为客户提供更流畅的浏览效果。7.1.1JavaScript脚本语言

JavaSc7.1.2VBScript脚本语言

VBScript的全称为MicrosoftVisualBasicScriptingEdition，是MicrosoftVisualBasic语言的一个子集，它并不是一个完整的程序设计语言，仅包含语言中的一些基本功能。VBScript的最大优点是：用纯文本建立；直接包含在HTML文档中；编辑和修改都十分便利。7.1.2VBScript脚本语言

VBScriptVBScript是由微软公司开发的一种通用的Web脚本语言(其基本语法与Basic语言类似)，但它只能被IE浏览器所支持。在HTML文档中插入VBScript的标记是：

<html>

<head>

<title>客户端脚本举例</title>

<SCRIPTLANGUAGE="VBScript">

<!--

MsgBox"世界你好!"&VbCrLf&"今天是："&Date

-->

</SCRIPT>

</head>

<body></body></html>VBScript是由微软公司开发的一种通用的Web脚本语7.1.3ASP

ASP是ActiveServerPage的缩写，意为“动态服务器页”。ASP是微软公司开发的代替CGI脚本程序的一种应用，它可以与数据库和其他程序进行交互，是一种简单、方便的编程工具。ASP网页文件的格式是 .asp，现在常用于各种动态网站中。7.1.3ASP

ASP是ActiveServer7.1.4JSP

JSP(JavaServerPages，Java服务器页)是由SunMicrosystems公司倡导、许多公司参与一起建立的一种动态网页技术标准。JSP技术有点类似于ASP技术，它是在传统的网页HTML文件(*.htm和*.html)中插入Java程序段(scriptlet)和JSP标记(tag)，从而形成JSP文件(*.jsp)。7.1.4JSP

JSP(JavaServerP7.1.5PHP

PHP是HypertextPreprocessor(超级文本预处理语言)的缩写。PHP是一种HTML内嵌式的语言，是一种在服务器端执行的嵌入HTML文档的脚本语言，语言的风格有点类似于C语言，现在被很多的网站编程人员广泛运用。7.1.5PHP

PHP是HypertextPre本节知识点

常用的Web后台数据库

建立后台连接的方法7.2Web数据库概述本节知识点

常用的Web后台数据库

建立后台连接的7.2.1常用的Web后台数据库

1．MicrosoftSQLServer

2．Oracle

3．MicrosoftAccess

(1) MicrosoftSQLServer需要Windows操作系统支持，适合不太大的系统。

(2) Oracle可以跨平台运行，适合大型系统，使用比较复杂。

(3) MicrosoftAccess需要Windows操作系统支持，适合小型系统，使用比较简单。7.2.1常用的Web后台数据库

1．Micro7.2.2建立后台连接的方法

1．Access连接方法

(1)对Access数据库可以直接写代码进行连接：

connstr="DBQ="+server.mappath("abcd.mdb")+";DefaultDir=;DRIVER={MicrosoftAccess

Driver(*.mdb)}

setmycon=server.CreateObject("ADODB.Connection")7.2.2建立后台连接的方法

1．Access连接(2) Access数据库的DSN-less连接方法：

setadocon=Server.Createobject(“adodb.connection”)

adoconn.Open“Driver={MicrosoftAccessDriver(*.mdb)};DBQ=”&_

Server.MapPath(“数据库所在路径”)

(3) AccessOLEDB连接方法：

setadocon=Server.Createobject("adodb.connection")

adocon.open"Provider=Microsoft.Jet.OLEDB.4.0;"&_

"DataSource="&Server.MapPath("数据库所在路径")(2) Access数据库的DSN-less连接方法：2．SQLServer连接方法

(1) SQLServer连接方法：

setadocon=Server.Createobject("adodb.recordset")

adocon.Open"Driver={SQLServer};Server=(Local);UID=***;PWD=***;"&_

"database=数据库名;"2．SQLServer连接方法

(1) SQLServ(2) SQLServerOLEDB连接方法：

setadocon=Server.Createobject("adodb.connection")

adocon.open"provider=SQLOLEDB.1;DataSource=RITANT4;"&_

"userID=***;Password=***;"&_

"initalCatalog=数据库名"(2) SQLServerOLEDB连接方法：

3．Oracle连接方法

(1) OracleADODB连接方法：

setadocon=Server.Createobject("adodb.connection")

adocon.open"Driver={microsoftodbcfor

oracle};server=oraclesever.world;uid=admin;pwd=pass;"

(2) OracleOLEDB连接方法：

setadocon=Server.Createobject("adodb.connection")

adocon.open"Provider=OraOLEDB.Oracle;datasource

=dbname;userid=admin;password=pass;"3．Oracle连接方法

(1) OracleADOD4．ODBC连接方法

首先设计好数据库，然后通过控制面板中的ODBC数据源进行配置，在系统DNS中添加所需要读取的数据库，可以设置用户名和密码。

<%setmycon=server.CreateObject("ADODB.Connection")

mycon.Open"ODBC数据源名","用户名","密码"

%>4．ODBC连接方法

首先设计好数据库，然后通过控本节知识点

用户注册(浏览器端)

用户注册(服务器端)

加帖子(浏览器端)

加帖子(服务器端)

帖子具体内容的显示和回复

所有帖子的显示7.3ASP编程本节知识点

用户注册(浏览器端)

用户注册(服务器该BBS主要由用户注册(浏览器端)、用户注册(服务器端)、加帖子(浏览器端)、加帖子(服务器端)、帖子具体内容的显示和回复以及所有帖子的显示六个部分组成，其中用户信息存放在数据库Users.mdb中，帖子存放在数据库bbs.mdb中。它们均为Access数据库，结构分别如表7-1和表7-2所示。该BBS主要由用户注册(浏览器端)、用户注册(服务器端)表7-1Users.mdb表7-1Users.mdb表7-2bbs.mdb表7-2bbs.mdb1．用户注册(浏览器端)login.htm

由用户输入相关信息，通过表单传送到服务器中。具体代码如下：

<html>

new

user</title><head>

<body>

<FORM

METHOD="POST"

ACTION="/hosp/asp/register.asp"><P>

<H2>请您注册一个用户名称</H2>

用户：<INPUT

TYPE="TEXT"

name="name"

SIZE="24"><P>

密码：<INPUT

TYPE="password"

name="password"

SIZE="24"><P>

1．用户注册(浏览器端)login.htm

由用户输入相<INPUT

TYPE=SUBMIT

VALUE="注

册">

<INPUT

TYPE=RESET

VALUE="清

除">

href="/hosp/asp/dispbbs.asp">返回论坛</a><P>

</body>

</html>

<INPUT

TYPE=SUBMIT

VALUE="注

册"

2．用户注册(服务器端)register.asp

利用REQUEST.FORM("表单名")接收表单信息，采用ADO技术与数据库Users.mdb连接，并将表单信息存入Users.mdb中。具体代码如下：

<html>

存储用户信息

</title></head>

<body>

<!—读取客户浏览器输入的用户名和密码

-->

name=REQUEST.FORM("name")

2．用户注册(服务器端)register.asp

利code=REQUEST.FORM("password")

<!--

与Users.mdb连接

-->

Set

Connection=Server.CreateObject("ADODB.Connection")

Connection.Open

"Users"

Set

RS=Connection.Execute("SELECT

FROM

Users")

<!--

如果该用户名已存在，请重新输入，否则存入数据库

-->

Not

RS.EOF

Then

该用户名已被注册，请您重新注册新用户名!

code=REQUEST.FORM("password")

Else

Connection.Execute("INSERT

INTO

Users(Username,password)

Values('"

&name&

"','"

&code&

"')")

RS.Close

Connection.Close

<CENTER><B><%

=name

%></B>

注册成功!<P>

href="/hosp/asp/dispbbs.asp">返回论坛</a></CENTER>

End

</body>

</html>

Else

Connection.Execute("3．加帖子(浏览器端)bbs_add.htm

由用户输入待加入帖子的相关信息，并传到服务器中。具体代码如下：

<html>

sample

form

</title></head>

<body

background="/hosp/images/backgrnd.gif">

<FORM

METHOD="POST"

ACTION="/hosp/asp/bbs.asp"><P>

姓名:

<INPUT

NAME="name"

SIZE="28">

密码:

<INPUT

TYPE="password"

NAME

="code"

SIZE="28"><P>

3．加帖子(浏览器端)bbs_add.htm

由用户主题：<INPUT

NAME="subject"

SIZE="66"><P>

内容：<P>

<TEXTAREA

NAME="content"

ROWS=20

COLS=72></TEXTAREA><P>

<CENTER><INPUT

TYPE=SUBMIT

VALUE="发布信息">

<INPUT

TYPE=RESET

VALUE="清除信息"></CENTER>

</FORM>

</body>

</html>

主题：<INPUT

NAME="subject"

SIZE=4．加帖子(服务器端)bbs.asp

接收帖子内容，并存入bbs.mdb中。具体代码如下：

<html>

<body>

name=REQUEST.FORM("name")

code=REQUEST.FORM("code")

subject=REQUEST.FORM("subject")

content=REQUEST.FORM("content")

4．加帖子(服务器端)bbs.asp

接收帖子内容，curdate=Date

curtime=Time

<!--

与Users.mdb连接

-->

Set

Connection

Server.CreateObject("ADODB.Connection")

Connection.Open

"Users"

Set

Connection.Execute("SELECT

FROM

author

WHERE

Username='"

&name&

AND

password='"

&code&

"'")

curdate=Date

curtime=Time

<!--

判断用户名与密码是否正确和匹配

-->

Not

RS.EOF

Then

<!--

打开数据文件，读取该文件存放帖子的编号，每加一个帖子，编号加1

-->

Set

FileObject

Server.CreateObject("Scripting.FileSystemObject")

Set

InStream

FileObject.OpenTextFile

("c:inetpubwwwroothospaspdata.id",

False,

False)

number

Cstr(InStream.Readline+1)

<!--

判断用户名与密码是否正确和匹配

-->

Set

OutStream

FileObject.CreateTextFile

("c:inetpubwwwroothospaspdata.id",

True,

False)

OutStream.WriteLine

number

Request.QueryString("ID")=""

Then

manswernum=number

Else

manswernum=Request.QueryString("ID")

End

Request.QueryString("topnum")=""

Then

Set

OutStream

FileObject.Cremtopnum=number

Else

mtopnum=Request.QueryString("topnum")

End

Set

OutStream

Nothing

<!--

与bbs.mdb连接，将帖子信息存入数据库中

-->

Set

Connbbs

Server.CreateObject("ADODB.Connection")

mtopnum=number

Else

mtopnumConnbbs.Open

"bbs"

Connbbs.Execute("INSERT

INTO

bbs(ID,Username,subject,content,adddate,addtime,answernum,

topnum,visitnum)

Values('"

&number&

"','"

&name&

"','"

&subject&

"','"

&content&

"','"

&curdate&

"','"

&curtime&

"','"

&manswernum&

"',

&mtopnum&

"',0)")

Connbbs.Close

=curdate

%><%

=curtime

添加贴子

Connbbs.Open

"bbs"

Connbbs.E<a

href="http://nt-server/hosp/asp/dispbbs.asp">返回论坛</a><P>

姓名：<%

=name

%><P>

主题：<%

=subject

%><P>

内容：<%

=content

%><P>

Else

href="http://nt-server/hosp您的用户名或密码出错，请您重新输入！

End

RS.Close

Connection.Close

</body>

</html>

您的用户名或密码出错，请您重新输入！

End

If5．帖子具体内容的显示和回复detail.asp

具体代码如下：

<html>

<bodybackground="/hosp/images/backgrnd.gif">

<%idnum=Request.QueryString("ID")

SetConnection=Server.CreateObject("ADODB.Connection")

Connection.Open"bbs"5．帖子具体内容的显示和回复detail.asp

具SetRS=Connection.Execute("SELECT*FROMbbsWHEREID='"&idnum&"'")%>

姓名：<%=RS(1)%><p>

主题：<%=RS(2)%><p>

内容：<%=RS(3)%><p>

--形成回复列表

-->

resub="Re:"

RS(2)

mtopnum=RS(8)

RS.Close

Connection.Close

SetRS=Connection.Execute("SEL<FORM

METHOD="POST"

ACTION="/hosp/asp/bbs.asp?ID=<%

=idnum

%>&topnum=<%

mtopnum

%>">

<P>姓名:<INPUTNAME="name"SIZE="28">密码:<INPUTTYPE="password"NAME="code"

SIZE="28"><P>

主题：<INPUT

NAME="subject"

SIZE="66"

VALUE="<%

=resub

%>"><P>

内容：<P>

<FORM

METHOD="POST"

ACTION="/h<TEXTAREA

NAME="content"

ROWS=20

COLS=72></TEXTAREA><P>

<CENTER><INPUT

TYPE=SUBMIT

VALUE="信息回复">

<INPUT

TYPE=RESET

VALUE="清除信息"></CENTER>

</FORM>

href="http://nt-server/hosp/asp/dispbbs.asp">返回论坛</a>

</body>

</html>

<TEXTAREA

NAME="content"

ROWS=

6．所有帖子的显示dispbbs.asp

列出所有帖子的主题、作者、时间、访问人数等信息。具体代码如下：

<html>

<head><title>dispbbs.asp</title></head>

<body

background="/hosp/images/backgrnd.gif">

<CENTER><IMG

SRC="/hosp/images/luntan.gif"

BORDER=0></CENTER><P>

<CENTER><A

HREF="/hosp/login.htm"><IMG

SRC="/hosp/images/zhuce.gif"

BORDER=0></A>

HREF="/hosp/bbs_add.htm"><IMG

SRC="/hosp/images/jiatz.gif"

BORDER=0></A>

6．所有帖子的显示dispbbs.asp

列出所有帖<A

HREF="/hosp/default.htm"><IMG

SRC="/hosp/images/return.gif"

BORDER=0></A>

</CENTER><P>

Set

Connection=Server.CreateObject("ADODB.Connection")

Connection.Open

"bbs"

Set

RS=Connection.Execute("SELECT

FROM

bbs

WHERE

ID=answernum

ORDER

DESC")

Set

Conn=Server.CreateObject("ADODB.Connection")

HREF="/hosp/default.htm"><IConn.Open

"bbs"

Set

RSNEXT=Conn.Execute("SELECT

FROM

bbs")

While

not

RS.EOF

=RS(0)

href="/hosp/asp/detail.asp?ID=<%

=RS(0)

%>"><%

=RS(2)

%></a>

<FONT

SIZE="4"><B><%

=RS(1)

%></B></FONT>

=RS(4)

%><%

=RS(7)

%>(<%

=RS(5)

%>)<P>

Conn.Open

"bbs"

Set

RSNEXT=C<%

Set

RSNEXT=Conn.Execute("SELECT

FROM

bbs

WHERE

topnum<>ID

AND

opnum=

&RS(0)&

ORDER

ASC")

While

Not

RSNEXT.EOF

=RSNEXT(0)

href="/hosp/asp/detail.asp?ID=<%

=RSNEXT(0)

%>">Re

RSNEXT(6)

%>:<%

=RSNEXT(2)

%></a>

-<FONT

SIZE="4"><B><%

=RSNEXT(1)

%></B></FONT>

=RSNEXT(4)

%><%

Set

RSNEXT=Conn.Execute("SE<%

=RSNEXT(7)

%>(<%

=RSNEXT(5)

%>)<P>

RSNEXT.MoveNext

Loop

RS.MoveNext

Loop

RSNEXT.Close

Conn.Close

RS.Close

Connection.Close

</body>

</html>

=RSNEXT(7)

%>(<%

=RSNEXT(5)一、选择题

1. ()不是Web上常用的语言。

A. JavaScript脚本语言 B. VBScript脚本语言

C. ASP D.汇编语言习题7一、选择题

1. ()不是Web上常用的语2.与HTML相比，()不是ASP网页具有的特点。

A.利用ASP可以突破静态网页的一些功能限制，实现动态网页技术

B. ASP文件是包含在HTML代码所组成的文件中的，易于修改和测试

C. ASP提供了一些内置对象，使用这些对象可以使服务器端的脚本功能更强2.与HTML相比，()不是ASP网页具有D. ASP可以使用服务器端ActiveX组件来执行各种各样的任务，例如存取数据库、发送E-mail或访问文件系统等

E.由于服务器是将ASP程序执行的结果以HTML格式传回客户端浏览器的，因此使用者不会看到ASP所编写的原始程序代码，可防止ASP程序代码被窃取

F.一次编写，到处运行D. ASP可以使用服务器端ActiveX组件来执行各3. ()不是JSP网页具有的特点。

A.一次编写，到处运行

B.系统的多平台支持

C.强大的可伸缩性

D.多样化和功能强大的开发工具支持

E.最高性能价格比3. ()不是JSP网页具有的特点。

二、简答题

1.列举并总结ASP和Access的链接方法。

2.根据7.3节内容，调试BBS论坛程序，观察运行效果。二、简答题

1.列举并总结ASP和Access的链接方7.1Web上常用的编程语言7.2Web数据库概述

7.3ASP编程

习题7

7.1Web上常用的编程语言本节知识点

JavaScript脚本语言

VBScript脚本语言

ASP(ActiveServerPages，动态服务器页)

JSP(JavaServerPages，Java服务器页)

PHP(HypertextPreprocessor，超级文本预处理语言)7.1Web上常用的编程语言本节知识点

JavaScript脚本语言

VBSc7.1.1JavaScript脚本语言

JavaSc7.1.2VBScript脚本语言

VBScriptVBScript是由微软公司开发的一种通用的Web脚本语言(其基本语法与Basic语言类似)，但它只能被IE浏览器所支持。在HTML文档中插入VBScript的标记是：

<html>

<head>

<title>客户端脚本举例</title>

<SCRIPTLANGUAGE="VBScript">

<!--

MsgBox"世界你好!"&VbCrLf&"今天是："&Date

-->

</SCRIPT>

</head>

<body></body></html>VBScript是由微软公司开发的一种通用的Web脚本语7.1.3ASP

ASP是ActiveServer7.1.4JSP

JSP(JavaServerP7.1.5PHP

PHP是HypertextPre本节知识点

常用的Web后台数据库

建立后台连接的方法7.2Web数据库概述本节知识点

常用的Web后台数据库

建立后台连接的7.2.1常用的Web后台数据库

1．MicrosoftSQLServer

2．Oracle

3．MicrosoftAccess

(1) MicrosoftSQLServer需要Windows操作系统支持，适合不太大的系统。

(2) Oracle可以跨平台运行，适合大型系统，使用比较复杂。

(3) MicrosoftAccess需要Windows操作系统支持，适合小型系统，使用比较简单。7.2.1常用的Web后台数据库

1．Micro7.2.2建立后台连接的方法

1．Access连接方法

(1)对Access数据库可以直接写代码进行连接：

connstr="DBQ="+server.mappath("abcd.mdb")+";DefaultDir=;DRIVER={MicrosoftAccess

Driver(*.mdb)}

setmycon=server.CreateObject("ADODB.Connection")7.2.2建立后台连接的方法

1．Access连接(2) Access数据库的DSN-less连接方法：

setadocon=Server.Createobject(“adodb.connection”)

adoconn.Open“Driver={MicrosoftAccessDriver(*.mdb)};DBQ=”&_

Server.MapPath(“数据库所在路径”)

(3) AccessOLEDB连接方法：

setadocon=Server.Createobject("adodb.connection")

adocon.open"Provider=Microsoft.Jet.OLEDB.4.0;"&_

"DataSource="&Server.MapPath("数据库所在路径")(2) Access数据库的DSN-less连接方法：2．SQLServer连接方法

(1) SQLServer连接方法：

setadocon=Server.Createobject("adodb.recordset")

adocon.Open"Driver={SQLServer};Server=(Local);UID=***;PWD=***;"&_

"database=数据库名;"2．SQLServer连接方法

(1) SQLServ(2) SQLServerOLEDB连接方法：

setadocon=Server.Createobject("adodb.connection")

adocon.open"provider=SQLOLEDB.1;DataSource=RITANT4;"&_

"userID=***;Password=***;"&_

"initalCatalog=数据库名"(2) SQLServerOLEDB连接方法：

3．Oracle连接方法

(1) OracleADODB连接方法：

setadocon=Server.Createobject("adodb.connection")

adocon.open"Driver={microsoftodbcfor

oracle};server=oraclesever.world;uid=admin;pwd=pass;"

(2) OracleOLEDB连接方法：

setadocon=Server.Createobject("adodb.connection")

adocon.open"Provider=OraOLEDB.Oracle;datasource

=dbname;userid=admin;password=pass;"3．Oracle连接方法

(1) OracleADOD4．ODBC连接方法

首先设计好数据库，然后通过控制面板中的ODBC数据源进行配置，在系统DNS中添加所需要读取的数据库，可以设置用户名和密码。

<%setmycon=server.CreateObject("ADODB.Connection")

mycon.Open"ODBC数据源名","用户名","密码"

%>4．ODBC连接方法

首先设计好数据库，然后通过控本节知识点

用户注册(浏览器端)

用户注册(服务器端)

加帖子(浏览器端)

加帖子(服务器端)

帖子具体内容的显示和回复

所有帖子的显示7.3ASP编程本节知识点

用户注册(浏览器端)

由用户输入相关信息，通过表单传送到服务器中。具体代码如下：

<html>

new

user</title><head>

<body>

<FORM

METHOD="POST"

ACTION="/hosp/asp/register.asp"><P>

<H2>请您注册一个用户名称</H2>

用户：<INPUT

TYPE="TEXT"

name="name"

SIZE="24"><P>

密码：<INPUT

TYPE="password"

name="password"

SIZE="24"><P>

1．用户注册(浏览器端)login.htm

由用户输入相<INPUT

TYPE=SUBMIT

VALUE="注

册">

<INPUT

TYPE=RESET

VALUE="清

除">

href="/hosp/asp/dispbbs.asp">返回论坛</a><P>

</body>

</html>

<INPUT

TYPE=SUBMIT

VALUE="注

册"

2．用户注册(服务器端)register.asp

利用REQUEST.FORM("表单名")接收表单信息，采用ADO技术与数据库Users.mdb连接，并将表单信息存入Users.mdb中。具体代码如下：

<html>

存储用户信息

</title></head>

<body>

<!—读取客户浏览器输入的用户名和密码

-->

name=REQUEST.FORM("name")

2．用户注册(服务器端)register.asp

利code=REQUEST.FORM("password")

<!--

与Users.mdb连接

-->

Set

Connection=Server.CreateObject("ADODB.Connection")

Connection.Open

"Users"

Set

RS=Connection.Execute("SELECT

FROM

Users")

<!--

如果该用户名已存在，请重新输入，否则存入数据库

-->

Not

RS.EOF

Then

该用户名已被注册，请您重新注册新用户名!

code=REQUEST.FORM("password")

Else

Connection.Execute("INSERT

INTO

Users(Username,password)

Values('"

&name&

"','"

&code&

"')")

RS.Close

Connection.Close

<CENTER><B><%

=name

%></B>

注册成功!<P>

href="/hosp/asp/dispbbs.asp">返回论坛</a></CENTER>

End

</body>

</html>

Else

Connection.Execute("3．加帖子(浏览器端)bbs_add.htm

由用户输入待加入帖子的相关信息，并传到服务器中。具体代码如下：

<html>

sample

form

</title></head>

<body

background="/hosp/images/backgrnd.gif">

<FORM

METHOD="POST"

ACTION="/hosp/asp/bbs.asp"><P>

姓名:

<INPUT

NAME="name"

SIZE="28">

密码:

<INPUT

TYPE="password"

NAME

="code"

SIZE="28"><P>

3．加帖子(浏览器端)bbs_add.htm

由用户主题：<INPUT

NAME="subject"

SIZE="66"><P>

内容：<P>

<TEXTAREA

NAME="content"

ROWS=20

COLS=72></TEXTAREA><P>

<CENTER><INPUT

TYPE=SUBMIT

VALUE="发布信息">

<INPUT

TYPE=RESET

VALUE="清除信息"></CENTER>

</FORM>

</body>

</html>

主题：<INPUT

NAME="subject"

SIZE=4．加帖子(服务器端)bbs.asp

接收帖子内容，并存入bbs.mdb中。具体代码如下：

<html>

<body>

name=REQUEST.FORM("name")

code=REQUEST.FORM("code")

subject=REQUEST.FORM("subject")

content=REQUEST.FORM("content")

4．加帖子(服务器端)bbs.asp

接收帖子内容，curdate=Date

curtime=Time

<!--

与Users.mdb连接

-->

Set

Connection

Server.CreateObject("ADODB.Connection")

Connection.Open

"Users"

Set

Connection.Execute("SELECT

FROM

author

WHERE

Username='"

&name&

AND

password='"

&code&

"'")

curdate=Date

curtime=Time

<!--

判断用户名与密码是否正确和匹配

-->

Not

RS.EOF

Then

<!--

打开数据文件，读取该文件存放帖子的编号，每加一个帖子，编号加1

-->

Set

FileObject

Server.CreateObject("Scripting.FileSystemObject")

Set

InStream

FileObject.OpenTextFile

("c:inetpubwwwroothospaspdata.id",

False,

False)

number

Cstr(InStream.Readline+1)

<!--

判断用户名与密码是否正确和匹配

-->

Set

OutStream

FileObject.CreateTextFile

("c:inetpubwwwroothospaspdata.id",

True,

False)

OutStream.WriteLine

number

Request.QueryString("ID")=""

Then

manswernum=number

Else

manswernum=Request.QueryString("ID")

End

Request.QueryString("topnum")=""

Then

Set

OutStream

FileObject.Cremtopnum=number

Else

mtopnum=Request.QueryString("topnum")

End

Set

OutStream

Nothing

<!--

与bbs.mdb连接，将帖子信息存入数据库中

-->

Set

Connbbs

Server.CreateObject("ADODB.Connection")

mtopnum=number

Else

mtopnumConnbbs.Open

"bbs"

Connbbs.Execute("INSERT

INTO

bbs(ID,Username,subject,content,adddate,addtime,answernum,

topnum,visitnum)

Values('"

&number&

"','"

&name&

"','"

&subject&

"','"

&content&

"','"

&curdate&

"','"

&curtime&

"','"

&manswernum&

"',

&mtopnum&

"',0)")

Connbbs.Close

=curdate

%><%

=curtime

添加贴子

Connbbs.Open

"bbs"

Connbbs.E<a

href="http://nt-server/hosp/asp/dispbbs.asp">返回论坛</a><P>

姓名：<%

=name

%><P>

主题：<%

=subject

%><P>

内容：<%

=content

%><P>

Else

href="http://nt-server/hosp您的用户名或密码出错，请您重新输入！

End

RS.Close

Connection.Close

</body>

</html>

您的用户名或密码出错，请您重新输入！

End

If5．帖子具体内容的显示和回复detail.asp

具体代码如下：

<html>

<bodybackground="/hosp/images/backgrnd.gif">

<%idnum=Request.QueryString("ID")

SetConnection=Server.CreateObject("ADODB.Connection")

Connection.Open"bbs"5．帖子具体内容的显示和回复detail.asp

具SetRS=Connection.Execute("SELECT*FROMbbsWHEREID='"&idnum&"'")%>

姓名：<%=RS(1)%><p>

主题：<%=RS(2)%><p>

内容：<%=RS(3)%><p>

--形成回复列表

-->

resub="Re:"

RS(2)

mtopnum=RS(8)

RS.Close

Connection.Close

SetRS=Connection.Execute("SEL<FORM

METHOD="POST"

ACTION="/hosp/asp/bbs.asp?ID=<%

=idnum

%>&topnum=<%

mtopnum

%>">

<P>姓名:<INPUTNAME="name"SIZE="28">密码:<INPUTTYPE="password"NAME="code"

SIZE="28"><P>

主题：<INPUT

NAME="subject"

SIZE="66"

VALUE="<%

=resub

%>"><P>

内容：<P>

<FORM

METHOD="POST"

ACTION="/h<TEXTAREA

NAME="content"

ROWS=20

COLS=72></TEXTAREA><P>

<CENTER><INPUT

TYPE=SUBMIT

VALUE="信息回复">

<INPUT

TYPE=RESET

VALUE="清除信息"></CENTER>

</FORM>

href="http://nt-server/hosp/asp/dispbbs.asp">返回论坛</a>

</body>

</html>

<TEXTAREA

NAME="content"

ROWS=

6．所有帖子的显示dispbbs.asp

列出所有帖子的主题、作者、时间、访问人数等信息。具体代码如下：

<html>

<head><

人人文库> 全部分类> 教育资料 > 课件下载

温馨提示

1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

网页设计与制第6章-课件2

文档简介

温馨提示

最新文档

评论

网页设计与制第6章-课件2

文档简介

温馨提示

最新文档

评论

相关文档