《網(wǎng)頁設(shè)計與制作》課件第7章_第1頁
《網(wǎng)頁設(shè)計與制作》課件第7章_第2頁
《網(wǎng)頁設(shè)計與制作》課件第7章_第3頁
《網(wǎng)頁設(shè)計與制作》課件第7章_第4頁
《網(wǎng)頁設(shè)計與制作》課件第7章_第5頁
已閱讀5頁,還剩44頁未讀, 繼續(xù)免費閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)

文檔簡介

7.1Web上常用的編程語言7.2Web數(shù)據(jù)庫概述

7.3ASP編程

習(xí)題7

本節(jié)知識點

JavaScript腳本語言

VBScript腳本語言

ASP(ActiveServerPages,動態(tài)服務(wù)器頁)

JSP(JavaServerPages,Java服務(wù)器頁)

PHP(HypertextPreprocessor,超級文本預(yù)處理語言)7.1Web上常用的編程語言7.1.1JavaScript腳本語言

JavaScript是一種由Netscape的LiveScript發(fā)展而來的原型化繼承的面向?qū)ο蟮膭討B(tài)類型的區(qū)分大小寫的客戶端腳本語言,主要目的是解決服務(wù)器端語言(比如Perl)遺留的速度問題,為客戶提供更流暢的瀏覽效果。7.1.2VBScript腳本語言

VBScript的全稱為MicrosoftVisualBasicScriptingEdition,是MicrosoftVisualBasic語言的一個子集,它并不是一個完整的程序設(shè)計語言,僅包含語言中的一些基本功能。VBScript的最大優(yōu)點是:用純文本建立;直接包含在HTML文檔中;編輯和修改都十分便利。

VBScript是由微軟公司開發(fā)的一種通用的Web腳本語言(其基本語法與Basic語言類似),但它只能被IE瀏覽器所支持。在HTML文檔中插入VBScript的標(biāo)記是:

<html>

<head>

<title>客戶端腳本舉例</title>

<SCRIPTLANGUAGE="VBScript">

<!--

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

-->

</SCRIPT>

</head>

<body></body></html>7.1.3ASP

ASP是ActiveServerPage的縮寫,意為“動態(tài)服務(wù)器頁”。ASP是微軟公司開發(fā)的代替CGI腳本程序的一種應(yīng)用,它可以與數(shù)據(jù)庫和其他程序進(jìn)行交互,是一種簡單、方便的編程工具。ASP網(wǎng)頁文件的格式是?.asp,現(xiàn)在常用于各種動態(tài)網(wǎng)站中。7.1.4JSP

JSP(JavaServerPages,Java服務(wù)器頁)是由SunMicrosystems公司倡導(dǎo)、許多公司參與一起建立的一種動態(tài)網(wǎng)頁技術(shù)標(biāo)準(zhǔn)。JSP技術(shù)有點類似于ASP技術(shù),它是在傳統(tǒng)的網(wǎng)頁HTML文件(*.htm和*.html)中插入Java程序段(scriptlet)和JSP標(biāo)記(tag),從而形成JSP文件(*.jsp)。7.1.5PHP

PHP是HypertextPreprocessor(超級文本預(yù)處理語言)的縮寫。PHP是一種HTML內(nèi)嵌式的語言,是一種在服務(wù)器端執(zhí)行的嵌入HTML文檔的腳本語言,語言的風(fēng)格有點類似于C語言,現(xiàn)在被很多的網(wǎng)站編程人員廣泛運(yùn)用。

本節(jié)知識點

常用的Web后臺數(shù)據(jù)庫

建立后臺連接的方法7.2Web數(shù)據(jù)庫概述7.2.1常用的Web后臺數(shù)據(jù)庫

1.MicrosoftSQLServer

2.Oracle

3.MicrosoftAccess

(1)?MicrosoftSQLServer需要Windows操作系統(tǒng)支持,適合不太大的系統(tǒng)。

(2)?Oracle可以跨平臺運(yùn)行,適合大型系統(tǒng),使用比較復(fù)雜。

(3)?MicrosoftAccess需要Windows操作系統(tǒng)支持,適合小型系統(tǒng),使用比較簡單。7.2.2建立后臺連接的方法

1.Access連接方法

(1)對Access數(shù)據(jù)庫可以直接寫代碼進(jìn)行連接:

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

Driver(*.mdb)}

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

(2)?Access數(shù)據(jù)庫的DSN-less連接方法:

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

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

Server.MapPath(“數(shù)據(jù)庫所在路徑”)

(3)?AccessOLEDB連接方法:

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

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

"DataSource="&Server.MapPath("數(shù)據(jù)庫所在路徑")2.SQLServer連接方法

(1)?SQLServer連接方法:

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

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

"database=數(shù)據(jù)庫名;"(2)?SQLServerOLEDB連接方法:

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

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

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

"initalCatalog=數(shù)據(jù)庫名"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;"

4.ODBC連接方法

首先設(shè)計好數(shù)據(jù)庫,然后通過控制面板中的ODBC數(shù)據(jù)源進(jìn)行配置,在系統(tǒng)DNS中添加所需要讀取的數(shù)據(jù)庫,可以設(shè)置用戶名和密碼。

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

mycon.Open"ODBC數(shù)據(jù)源名","用戶名","密碼"

%>

本節(jié)知識點

用戶注冊(瀏覽器端)

用戶注冊(服務(wù)器端)

加帖子(瀏覽器端)

加帖子(服務(wù)器端)

帖子具體內(nèi)容的顯示和回復(fù)

所有帖子的顯示7.3ASP編程該BBS主要由用戶注冊(瀏覽器端)、用戶注冊(服務(wù)器端)、加帖子(瀏覽器端)、加帖子(服務(wù)器端)、帖子具體內(nèi)容的顯示和回復(fù)以及所有帖子的顯示六個部分組成,其中用戶信息存放在數(shù)據(jù)庫Users.mdb中,帖子存放在數(shù)據(jù)庫bbs.mdb中。它們均為Access數(shù)據(jù)庫,結(jié)構(gòu)分別如表7-1和表7-2所示。表7-1Users.mdb表7-2bbs.mdb

1.用戶注冊(瀏覽器端)login.htm

由用戶輸入相關(guān)信息,通過表單傳送到服務(wù)器中。具體代碼如下:

<html>

<head><title>

register

a

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>

<INPUT

TYPE=SUBMIT

VALUE="注

冊">

<INPUT

TYPE=RESET

VALUE="清

除">

<a

href="/hosp/asp/dispbbs.asp">返回論壇</a><P>

</body>

</html>

2.用戶注冊(服務(wù)器端)register.asp

利用REQUEST.FORM("表單名")接收表單信息,采用ADO技術(shù)與數(shù)據(jù)庫Users.mdb連接,并將表單信息存入Users.mdb中。具體代碼如下:

<html>

<head><title>

存儲用戶信息

</title></head>

<body>

<!—讀取客戶瀏覽器輸入的用戶名和密碼

-->

<%

name=REQUEST.FORM("name")

code=REQUEST.FORM("password")

<!--

與Users.mdb連接

-->

Set

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

Connection.Open

"Users"

Set

RS=Connection.Execute("SELECT

*

FROM

Users")

<!--

如果該用戶名已存在,請重新輸入,否則存入數(shù)據(jù)庫

-->

If

Not

RS.EOF

Then

%>

該用戶名已被注冊,請您重新注冊新用戶名!

<%

Else

Connection.Execute("INSERT

INTO

Users(Username,password)

Values('"

&name&

"','"

&code&

"')")

RS.Close

Connection.Close

%>

<CENTER><B><%

=name

%></B>

注冊成功!<P>

<a

href="/hosp/asp/dispbbs.asp">返回論壇</a></CENTER>

<%

End

If

%>

</body>

</html>

3.加帖子(瀏覽器端)bbs_add.htm

由用戶輸入待加入帖子的相關(guān)信息,并傳到服務(wù)器中。具體代碼如下:

<html>

<head><title>

a

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>

主題:<INPUT

NAME="subject"

SIZE="66"><P>

內(nèi)容:<P>

<TEXTAREA

NAME="content"

ROWS=20

COLS=72></TEXTAREA><P>

<CENTER><INPUT

TYPE=SUBMIT

VALUE="發(fā)布信息">

<INPUT

TYPE=RESET

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

</FORM>

</body>

</html>

4.加帖子(服務(wù)器端)bbs.asp

接收帖子內(nèi)容,并存入bbs.mdb中。具體代碼如下:

<html>

<head><title>bbs.asp</title></head>

<body>

<%

name=REQUEST.FORM("name")

code=REQUEST.FORM("code")

subject=REQUEST.FORM("subject")

content=REQUEST.FORM("content")

curdate=Date

curtime=Time

<!--

與Users.mdb連接

-->

Set

Connection

=

Server.CreateObject("ADODB.Connection")

Connection.Open

"Users"

Set

RS

=

Connection.Execute("SELECT

*

FROM

author

WHERE

Username='"

&name&

"'

AND

password='"

&code&

"'")

<!--

判斷用戶名與密碼是否正確和匹配

-->

If

Not

RS.EOF

Then

<!--

打開數(shù)據(jù)文件,讀取該文件存放帖子的編號,每加一個帖子,編號加1

-->

Set

FileObject

=

Server.CreateObject("Scripting.FileSystemObject")

Set

InStream

=

FileObject.OpenTextFile

("c:inetpubwwwroothospaspdata.id",

1,

False,

False)

number

=

Cstr(InStream.Readline+1)

Set

OutStream

=

FileObject.CreateTextFile

("c:inetpubwwwroothospaspdata.id",

True,

False)

OutStream.WriteLine

number

If

Request.QueryString("ID")=""

Then

manswernum=number

Else

manswernum=Request.QueryString("ID")

End

If

If

Request.QueryString("topnum")=""

Then

mtopnum=number

Else

mtopnum=Request.QueryString("topnum")

End

If

Set

OutStream

=

Nothing

<!--

與bbs.mdb連接,將帖子信息存入數(shù)據(jù)庫中

-->

Set

Connbbs

=

Server.CreateObject("ADODB.Connection")

Connbbs.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

&

"

添加貼子

"

%>

<a

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

姓名:<%

=name

%><P>

主題:<%

=subject

%><P>

內(nèi)容:<%

=content

%><P>

<%

Else

%>

您的用戶名或密碼出錯,請您重新輸入!

<%

End

If

RS.Close

Connection.Close

%>

</body>

</html>

5.帖子具體內(nèi)容的顯示和回復(fù)detail.asp

具體代碼如下:

<html>

<head><title>bbs.asp</title></head>

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

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

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

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

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

主題:<%=RS(2)%><p>

內(nèi)容:<%=RS(3)%><p>

<!

--形成回復(fù)列表

-->

<%

resub="Re:"

&

RS(2)

mtopnum=RS(8)

RS.Close

Connection.Close

%>

<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>

內(nèi)容:<P>

<TEXTAREA

NAME="content"

ROWS=20

COLS=72></TEXTAREA><P>

<CENTER><INPUT

TYPE=SUBMIT

VALUE="信息回復(fù)">

<INPUT

TYPE=RESET

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

</FORM>

<a

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

</body>

</html>

6.所有帖子的顯示dispbbs.asp

列出所有帖子的主題、作者、時間、訪問人數(shù)等信息。具體代碼如下:

<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>

<A

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

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

BORDER=0></A>

<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

BY

ID

DESC")

Set

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

Conn.Open

"bbs"

Set

RSNEXT=Conn.Execute("SELECT

*

FROM

bbs")

Do

While

not

RS.EOF

%>

<%

=RS(0)

%>

<a

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>

<%

Set

RSNEXT=Conn.Execute("SELECT

*

FROM

bbs

WHERE

topnum<>ID

AND

opnum=

'"

&RS(0)&

"'

ORDER

BY

ID

AS

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論