《《電子商務(wù)網(wǎng)站建設(shè)》程序代碼》由會(huì)員分享，可在線閱讀，更多相關(guān)《《電子商務(wù)網(wǎng)站建設(shè)》程序代碼（22頁珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、第3 章 ch3_02.htm

歡迎光顧

商品信息：

本站圖書品種繁多，適合各界讀者，每天均有特價(jià)圖書， 并有多種精美禮物相送。請(qǐng)人們告訴人們！

2、lockquote> ch3_03.htm

　　　　HTML可以設(shè)立的文字格式有多種， 　　　　每種格式都可以與其她格式混合使用。

B：粗體字
    I：

3、斜體字
    U：下劃線

---

1號(hào)紅色宋體
2號(hào)橙色楷體
3號(hào)黃色隸書
4號(hào)綠色黑體
5號(hào)青色華文行楷
6號(hào)藍(lán)色華文新魏
7號(hào)紫色華文彩云

5、 ch3_04.htm

歡迎光顧網(wǎng)上書城

---

暢銷書排行榜：

1. 電子商務(wù)網(wǎng)站建設(shè)
2. ASP網(wǎng)頁程序設(shè)計(jì)實(shí)例教程

   6、i>信息系統(tǒng)分析與設(shè)計(jì)

今日特價(jià)圖書：

• 向左走，向右走
• 失蹤的網(wǎng)絡(luò)作家
• 非典時(shí)期的非典型生活

7、> ch3_05.htm

商品一覽表

8、h width="87" align="right">單價(jià)

9、 align="center" width="72">臺(tái)

10、ble>

員工表

商品名稱	單位
背投電視機(jī)	臺(tái)	$13,699
三門冰箱	$2,699
全自動(dòng)洗衣機(jī)	臺(tái)	$4,188

11、 width="35%" align="center">聯(lián)系電話

13、

姓名	性別	年齡
王志剛	男	46	12、e="2">88765699
朱敏	女	37	88562158
李大友	男	52	64322108

14、html> ch3_06.htm

超鏈接范例

點(diǎn)擊帶 　　下劃線 　　的文字，可以鏈接到"表格范例"頁面。

點(diǎn)擊圖片 可以鏈接到"搜

15、狐新聞網(wǎng)站"。

ch3_09.htm

請(qǐng)留下個(gè)人資料

16、 align="right">姓名：
E-mail:
17、="right">電話：
性別：	女  18、男
年齡：	20如下 20~29 30~45 45~60 19、tion>
留言版：
您的愛好：	20、h="315"> 運(yùn)動(dòng) 閱讀 聽音樂 旅游

21、

    

第5 章 讀取數(shù)據(jù)庫內(nèi)容 <% '運(yùn)用Connection對(duì)象連接數(shù)據(jù)庫 Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DSN=db1; UID=test;

22、PWD=123456" '建立Recordset對(duì)象實(shí)例并打開“客戶”表獲得記錄集 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "客戶",Conn,1,3 %>

讀取數(shù)據(jù)庫內(nèi)容并在網(wǎng)頁上輸出舉例
<% '運(yùn)用Response.Write措施在網(wǎng)頁上輸出表中各列名稱 Fo

23、r i=0 To rs.Fields.Count-1 Response.Write "

" Next %> <% '運(yùn)用雙重循環(huán)語句輸出表中每一行記錄的內(nèi)容 rs.MoveFirst '記錄指針指向第一條記錄 While Not rs.EOF Row="" For i=0 To rs.Fields.Count-1 Row = Row&"" Next Response.Write Row&""

24、 rs.MoveNext '記錄指針指向下一條記錄 Wend '關(guān)閉Recordset對(duì)象并斷開與數(shù)據(jù)庫的連接 rs.close Set Conn=Nothing %>

"&rs(i).Name&"

"&rs(i)&"

查詢數(shù)據(jù) <% '創(chuàng)立Connection對(duì)象實(shí)例并連接數(shù)據(jù)庫 Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DSN=db1;UID=test;PWD=123456" '建立Recordset對(duì)象實(shí)例 Set rs = Server.C

25、reateObject("ADODB.Recordset") '建立SQL的查詢命令文本 strSQL="Select * From 客戶 where 都市='天津'" '運(yùn)用Recordset.Open措施執(zhí)行查詢，并獲得成果記錄集 rs.Open strSQL,Conn,3,2 %>

查詢數(shù)據(jù)庫內(nèi)容并輸出到網(wǎng)頁舉例
<% '將記錄集中

26、各字段名稱輸出到網(wǎng)頁中 For i=0 To rs.Fields.Count-1 Response.Write "

" Next Response.Write "" '將記錄集中的查詢成果輸出到網(wǎng)頁的表中 rs.MoveFirst While Not rs.EOF Row="" For i = 0 To rs.Fields.Count-1 Row = Row&"" Next Response.Write Row&"

27、

" rs.MoveNext Wend '關(guān)閉Recordset對(duì)象并斷開與數(shù)據(jù)庫的連接 rs.close Set Conn=Nothing %>

"&rs(i).Name&"

"&rs(i)&"

添加記錄 <% '創(chuàng)立Connection對(duì)象實(shí)例并連接數(shù)據(jù)庫 Set Conn = Server.CreateObject("ADODB.Connection") P1="Provider=Microsoft.Jet.OLEDB.4.0;" Path1="Data Source="&Server.MapPath("db1.mdb"

28、) Conn.Open P1&Path1 '創(chuàng)立用于插入記錄的SQL命令文本 StrSQL1 = "Insert into 客戶(公司名稱,聯(lián)系人,電話) " StrSQL = StrSQL1&"Values('春來茶館','阿慶嫂','')" '運(yùn)用Connection對(duì)象的Execute措施執(zhí)行插入操作 conn. Execute strSQL, RecordsAffected, adCmdText '斷開與數(shù)據(jù)庫的連接 Set Conn = Nothing %> 更新數(shù)據(jù) <% '創(chuàng)立Connection對(duì)象實(shí)例并連接數(shù)據(jù)庫 Set Conn = Serve

29、r.CreateObject("ADODB.Connection") P1="Provider=Microsoft.Jet.OLEDB.4.0;" Path1="Data Source="&Server.MapPath("db1.mdb") Conn.Open P1&Path1 '創(chuàng)立用于更新記錄數(shù)據(jù)的SQL命令文本 StrSQL1 = "Update 客戶 Set 聯(lián)系人='楊女士', 電話='(0571)4476766' " StrSQL = StrSQL1&"Where 公司名稱='春來茶館'" '運(yùn)用Connection對(duì)象的Execute措施執(zhí)行修改操作 conn.

30、Execute strSQL, RecordsAffected, adCmdText '斷開與數(shù)據(jù)庫的連接 Set Conn = Nothing %> 刪除記錄 <% '創(chuàng)立Connection對(duì)象實(shí)例并連接數(shù)據(jù)庫 Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DSN=db1;UID=test;PWD=123456" '創(chuàng)立用于更新記錄數(shù)據(jù)的SQL命令文本 StrSQL = "Delete From 客戶 Where 公司名稱='春來茶館'" '運(yùn)用Connection對(duì)象的Execute措

31、施執(zhí)行刪除操作 conn. Execute strSQL, RecordsAffected, adCmdText '斷開與數(shù)據(jù)庫的連接 Set Conn = Nothing %> 第7章 Login.htm

客戶登錄

35、tr> 登錄名： 密  碼：< 34、/td>      注冊(cè)

Checkuser.asp <%@ Language=VBScript %> <% dim Nick,Password Nick=Request.Form("Nick") Password=Request.Form("Password") If Password="" OR Nick="" then Response.Write "登錄名或密碼沒有輸入,

36、"&_ "按這里返回" Set Conn=Nothing Response.End Else Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DSN=db1; UID=test; PWD=123456" sql="Select Password,UserID From Users "&_ "Where Nick='"&Nick&"'" Set rs=Server.CreateObject("ADODB.Reco

37、rdset") rs.Open sql,Conn,0,1 If rs.BOF AND rs.EOF Then Response.Write "

登錄名不存在,"&_ "按這里返回" rs.Close Set rs=Nothing Set Conn=Nothing Response.End End if If rs("Password")<>Password Then Response.Write "密碼錯(cuò)誤,"&_ "按

38、ory.go(-1)>這里返回" rs.Close Set rs=Nothing Set Conn=Nothing Response.End End if Session("Nick")=Nick Session("UserID")=rs("UserID") rs.Close Set rs=Nothing Set Conn=Nothing Response.Redirect "Products.asp" End if %> Register.asp

39、content="zh-cn">

新客戶注冊(cè)

42、 width="78%">  **

45、r>

昵稱：	41、="Nick">**
密碼：	**
密碼確認(rèn)：
真實(shí)姓名：	**
電子郵件：	**
省份：
44、idth="22%" align="right" height="30">都市：
具體地址：
郵政編碼：
聯(lián)系電話：	**

  

（注：有**

47、ont> 標(biāo)記的項(xiàng)目必須填寫?。?/font>

Checkregi.asp <%@ Language=VBScript %> <% Dim Nick,Name,Password,Email Dim Province,City,Address,Zip,Phon Nick=Trim(Request.Form("Nick")) Name=Trim(Request.Form("Name")) Password=Trim(Request.Form("Password")) rePass=Trim

48、(Request.Form("rePass")) Email=Trim(Request.Form("Email")) Province=Trim(Request.Form("Province")) City=Trim(Request.Form("City")) Address=Trim(Request.Form("Address")) Zip=Trim(Request.Form("Zip")) Phon=Trim(Request.Form("Phon")) If Nick="" OR Name="" OR Password="" OR rePass=""_ OR Email="

49、" OR Phon="" then ShowMessage "有必填項(xiàng)目沒有填寫！" Set Conn=Nothing Else If Password<>rePass Then ShowMessage "兩次輸入的密碼不同樣！" Set Conn=Nothing End if Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DSN=db1; UID=test; PWD=123456" Set rs = Server.CreateObject("ADODB.Recor

50、dset") sql="Select * From Users Where Nick='"&Nick&"'" rs.Open sql,Conn,0,1 If rs.EOF AND rs.BOF Then sql="Insert Into Users(Nick,Password,Name,Email,"&_ "Province,City,Address,Zip,Phon)"&_ "Values('"&Nick&"','"&Password&"','"&Name&_ "','"&Email&"','"&Province&"','"&City&_ "','"&Addr

51、ess&"','"&Zip&"','"&Phon&"')" Conn.Execute sql rs.Close Set rs=Nothing Set Conn=Nothing Response.Write "

祝賀你注冊(cè)成功!"&_ "按這里開始購物" Response.Redirect "Products.asp" Else rs.Close Set rs=Nothing Set Conn=Nothing ShowMessage "此登錄名已被注冊(cè)！" End if End if %> '顯示返回重新填寫信息的程序過程 <%Sub ShowMessage(msg)%>

<%=msg%>

<% Response.End End Sub %>