《《電子商務(wù)網(wǎng)站建設(shè)》程序代碼》由會(huì)員分享,可在線閱讀,更多相關(guān)《《電子商務(wù)網(wǎng)站建設(shè)》程序代碼(22頁珍藏版)》請?jiān)谘b配圖網(wǎng)上搜索。
1、第3 章ch3_02.htm段落標(biāo)記范例歡迎光顧本站備有多種圖書和音像制品,價(jià)格公道,童叟無欺,歡迎選購!商品信息:本站圖書品種繁多,適合各界讀者,每天均有特價(jià)圖書,并有多種精美禮物相送。請人們告訴人們!ch3_03.htm 字體格式范例 HTML可以設(shè)立的文字格式有多種,每種格式都可以與其她格式混合使用。 B:粗體字 I:斜體字 U:下劃線 1號(hào)紅色宋體 2號(hào)橙色楷體 3號(hào)黃色隸書 4號(hào)綠色黑體 5號(hào)青色華文行楷 6號(hào)藍(lán)色華文新魏 7號(hào)紫色華文彩云 ch3_04.htm列表標(biāo)記范例歡迎光顧網(wǎng)上書城暢銷書排行榜: 電子商務(wù)
2、網(wǎng)站建設(shè) ASP網(wǎng)頁程序設(shè)計(jì)實(shí)例教程 信息系統(tǒng)分析與設(shè)計(jì) 今日特價(jià)圖書: 向左走,向右走 失蹤的網(wǎng)絡(luò)作家 非典時(shí)期的非典型生活 ch3_05.htm表格范例商品一覽表商品名稱單位單價(jià)背投電視機(jī)臺(tái)$13,699/tr三門冰箱臺(tái)$2,699全自動(dòng)洗衣機(jī)臺(tái)$4,188員工表姓名性別年齡聯(lián)系電話王志剛男4688765699朱敏女3788562158李大友男5264322108ch3_06.htm 超鏈接范例 超鏈接范例 點(diǎn)擊帶下劃線的文字,可以鏈接到表格范例頁面。 點(diǎn)擊圖片 可以鏈接到搜狐新聞網(wǎng)站。 ch3_09.htm 表單范例 td font-size:12px 請留下個(gè)人資料 姓名: E-mai
3、l: 電話: 性別: 女 男 年齡: 20如下 2029 3045 4560 留言版: 您的愛好: 運(yùn)動(dòng) 閱讀 聽音樂 旅游 第5 章讀取數(shù)據(jù)庫內(nèi)容讀取數(shù)據(jù)庫內(nèi)容并在網(wǎng)頁上輸出舉例 %運(yùn)用Response.Write措施在網(wǎng)頁上輸出表中各列名稱For i=0 To rs.Fields.Count-1 Response.Write &rs(i).Name&Next%運(yùn)用雙重循環(huán)語句輸出表中每一行記錄的內(nèi)容rs.MoveFirst 記錄指針指向第一條記錄While Not rs.EOF Row= For i=0 To rs.
4、Fields.Count-1 Row = Row&rs(i)& Next Response.Write Row& rs.MoveNext 記錄指針指向下一條記錄Wend關(guān)閉Recordset對象并斷開與數(shù)據(jù)庫的連接rs.closeSet Conn=Nothing%查詢數(shù)據(jù)查詢數(shù)據(jù)庫內(nèi)容并輸出到網(wǎng)頁舉例 %將記錄集中各字段名稱輸出到網(wǎng)頁中For i=0 To rs.Fields.Count-1 Response.Write &rs(i).Name&NextResponse.Write 將記錄集中的查詢成果輸出到網(wǎng)頁的表中rs.MoveFirstWhile Not rs.EOF Row= For
5、i = 0 To rs.Fields.Count-1 Row = Row&rs(i)& Next Response.Write Row& rs.MoveNextWend關(guān)閉Recordset對象并斷開與數(shù)據(jù)庫的連接rs.closeSet Conn=Nothing%添加記錄更新數(shù)據(jù)刪除記錄第7章Login.htm客戶登錄客戶登錄登錄名:密 碼: 注冊 Checkuser.asp%dim Nick,PasswordNick=Request.Form(Nick)Password=Request.Form(Password)If Password=
6、OR Nick= thenResponse.Write 登錄名或密碼沒有輸入,&_按這里返回Set Conn=NothingResponse.EndElseSet Conn = Server.CreateObject(ADODB.Connection) Conn.Open DSN=db1; UID=test; PWD=123456sql=Select Password,UserID From Users &_Where Nick=&Nick&Set rs=Server.CreateObject(ADODB.Recordset)rs.Open sql,Conn,0,1If rs.BOF AND
7、rs.EOF ThenResponse.Write 登錄名不存在,&_按這里返回rs.CloseSet rs=NothingSet Conn=NothingResponse.EndEnd ifIf rs(Password)Password ThenResponse.Write 密碼錯(cuò)誤,&_按這里返回rs.CloseSet rs=NothingSet Conn=NothingResponse.EndEnd ifSession(Nick)=NickSession(UserID)=rs(UserID)rs.CloseSet rs=NothingSet Conn=NothingResponse.Re
8、direct Products.aspEnd if%Register.asp新客戶注冊新客戶注冊 昵稱: * 密碼: * 密碼確認(rèn): * 真實(shí)姓名: * 電子郵件: * 省份: 都市: 具體地址: 郵政編碼: 聯(lián)系電話: * (注:有* 標(biāo)記的項(xiàng)目必須填寫?。?Checkregi.asp%Dim Nick,Name,Password,EmailDim Province,City,Address,Zip,PhonNick=Trim(R
9、equest.Form(Nick)Name=Trim(Request.Form(Name)Password=Trim(Request.Form(Password)rePass=Trim(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 Ni
10、ck= OR Name= OR Password= OR rePass=_OR Email= OR Phon= thenShowMessage 有必填項(xiàng)目沒有填寫!Set Conn=NothingElseIf PasswordrePass ThenShowMessage 兩次輸入的密碼不同樣!Set Conn=NothingEnd ifSet Conn = Server.CreateObject(ADODB.Connection) Conn.Open DSN=db1; UID=test; PWD=123456 Set rs = Server.CreateObject(ADODB.Records
11、et) sql=Select * From Users Where Nick=&Nick&rs.Open sql,Conn,0,1If rs.EOF AND rs.BOF Thensql=Insert Into Users(Nick,Password,Name,Email,&_Province,City,Address,Zip,Phon)&_Values(&Nick&,&Password&,&Name&_,&Email&,&Province&,&City&_,&Address&,&Zip&,&Phon&)Conn.Execute sqlrs.CloseSet rs=NothingSet Conn=NothingResponse.Write 祝賀你注冊成功!&_按這里開始購物Response.Redirect Products.aspElsers.CloseSet rs=NothingSet Conn=NothingShowMessage 此登錄名已被注冊!End ifEnd if%顯示返回重新填寫信息的程序過程