【導讀】越多的人每天都要在互聯(lián)網上發(fā)布和獲取信息。計算機應用技術的日益成熟進一。步給互聯(lián)網的無限空間。應性的信息和服務。站，并對設計進行了總結。交友網站將可完成人們之間的在線交流。網絡和接入網絡兩個層次的架構。全國有中國電信為背景的中國公用計算機互聯(lián)。網和中國金橋網CHINAGBN共四個網絡。截止1998年底，中國上網用戶。而1999年更是被中國政府定位為“政府上網年”，全面啟動政府行政機。在略顯疲軟的國內市場，互聯(lián)網成了新的經濟增長點。既能節(jié)省人力、場地租金，又可以擴大企業(yè)知名度，從而提高企業(yè)的競爭力。圳天虹商場是中國首家全面進行網上購物的百貨商場。1998年5月天虹商場在。零售業(yè)中率先開通網絡在線購物，至今已有10萬人次上網瀏覽。商業(yè)銀行的網絡在線服務，已經成為發(fā)達國家網絡商務的一個主要內容。為電話銀行和網上銀行，銀行完全可能不需要一個具體的營業(yè)網點。上銀行正是沿著這個發(fā)展軌跡，在1998年7月誕生了專業(yè)網上銀行。

　　

【正文】 此頁涉及到用戶數據庫表 user_reg 的操作。 3．頁面代碼分析 %else session(user_id)=rs_user(user_id) !include file= % Set rs_user = () sql=select * from user_reg where user_name like 39。 amp。 user_name amp。 39。and password like 39。 amp。 password amp。 39。 sql,conn,3,2 if and then % set rs_user=nothing set conn=nothing end if% 4 圖 35為用戶登錄失敗時所看到的頁面。 圖 35 用戶登錄失敗 1．頁面中需要用戶填寫的 html 表單元素 此頁面為用戶登錄成功信息頁面，頁面中無需填寫 html 表單元素。 。 此頁使用了系統(tǒng)中的用戶簡單注冊信息表 user_reg、用戶詳細注冊信息表larchives、留言信息表 leaveword 和好友信息列表 friend 等。 !include file= % dim rs_lar,rs_word,rs_apply,rs_back,rs_friend,rs_user dim sql 39。叛斷 Session 變量是否超時 if isempty(session(user_id)) then end if 39。叛斷此用戶是否已經注冊 if session(user_id)=1 then Set rs_lar = () sql=select * from larchives where user_id = amp。 session(user_id) sql,conn,3,2 39。叛斷此用戶是否已經提交檔案 if and then end if Set rs_word = () sql=select * from leaveword where for_id= amp。 session(user_id) amp。 order by id desc sql,conn,1,1 set rs_apply=() sql=select * from apply where for_id= amp。 session(user_id) sql,conn,3,2 set rs_back=() sql=select * from back where for_id= amp。 session(user_id) sql,conn,3,2 set rs_friend=() sql=select * from friend where for_id= amp。 session(user_id) sql,conn,3,2 Set rs_user = () sql=select * from user_reg where user_id= amp。 session(user_id) sql,conn,3,2 % %:set rs_lar=nothing :set rs_word=nothing :set rs_apply=nothing :set rs_friend=nothing :set rs_user=nothing% 4 圖 36 為用戶登錄成功后所看到的頁面。 圖 36 用戶登錄成功 網友個人管理模塊 網友個人管理模塊包含以下子模塊。 ? 資料 管理 ? 相片管理 ? 交友請求回復管理 ? 留言管理 資料管理子模塊包含以下頁面。 ? ? ? 相片管理子模塊包含以下頁。 ? ? ? 交友請求回復管理子模塊包含以下頁面。 ? ? ? ? 留言管理子模塊包含以下頁面。 ? ? 各頁面間的關系如圖 317 所示 圖 37 各頁面間的關系 html 表單元素 該頁面中共有 18個需要用戶填寫的表單元素，如表 37 所示。 個人管理頁 資料管理 檔案修改頁 檔案修改成功 刪除好 友 圖片列表 圖片添加 圖片刪除 相片管理 接受交友請求 拒絕交友請求 刪除好友請求 移入好友列表 交友請求回復 刪除留言 留言管理 回復留言 表 37 名稱 表單元素類型 含義 最大長度 Name Text 真實姓名 10 Home Text 籍貫 10 Company Text 單位 50 Postcalcode Text 郵編 6 Tel Text 電話 20 Fresume Text 簡歷 200 Netname Text 網名 10 Homepage Text 個人主頁 50 Email Text 電子郵件 50 Netcallcode Text 網絡尋呼機 12 Chatroom Text 常去的聊天室 50 Sport Text 喜歡的運動 30 Book Text 喜歡的書籍 50 Music Text 喜歡的音樂 50 People Text 喜歡的名人 30 Interest Text 愛好或特長 50 Adage Text 人生格言 50 Character Text 性格自述 50 此頁為用戶修改個人檔案信息，涉及到用戶詳細注冊信息數據庫表larchives 的操作。 !include file= % 39。叛斷此用戶是否已經入會 if session(user_id)= then end if Set rs_lar = () sql=select * from larchives where user_id= amp。 session(user_id) sql,conn,3,2 if and then end if % % set rs_lar=nothing set conn=nothing % html 表單元素 頁面中無需填寫 html 表單元素。 此頁涉及到用戶詳細注冊信息數據庫表 larchives 的操作。 此頁同 代碼非常類似，代碼分析請見 代碼 此頁為用戶刪除好友列表頁面，刪除成功后頁面跳轉到個人管理首頁，因此沒有頁面示例。 html 表單元素 此頁面無需填寫 html 表單元素。 此 頁涉及到用戶好友數據庫表 friend 的操作。 !include file= % if request(id) = then end if set rs_id = () sql = select * from friend where id= amp。 request(id) sql,conn,3,2 Set rs_del = () sql=delete from friend where id= amp。 request(id) sql,conn,3,2 % html 表單 元素 該頁面中僅有 1 個表單元素，如表 35 所示。 表 38 名稱 表單元素類型 含義 big file 相片文件 此頁為用戶管理相片頁，涉及到對圖片數據庫表 pic 的操作。 !include file=% dim rs_lar,rs dim sql dim i 39。叛斷此用戶是否已經注冊 Set rs_lar = () sql=select * from larchives where user_id=amp。 session(user_id) sql,conn,3,2 if and then if session(user_id)=1 then end if %!include file=% Set rs = () sql=select * from pic where user_id= amp。 session(user_id) sql,conn,3,2 % 此頁為添加相片頁面，相片添加成功后頁面跳轉到個人管理首頁，因此沒有頁面示例。 html 表單元素 此頁無需填寫 html 表單元素。 此頁涉及到用戶相片數據庫表 pic 的操作。 !include file= % dim rs dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata formsize= formdata=(formsize) bncrlf=chrB(13) amp。 chrB(10) divider=leftB(formdata,clng(instrb(formdata,bncrlf))1) datastart=instrb(formdata,bncrlf amp。 bncrlf)+4 dataend=instrb(datastart+1,formdata,divider)datastart mydata=midb(formdata,datastart,dataend) Set rs = () select * from larchives where user_id= amp。 session(user_id),conn,3,2 rs(photo)=rs(photo)+1 %!include file=% Set rs = () pic,conn,3,2 rs(big).appendchunk mydata rs(user_id)=session(user_id) rs(date)=date set rs=nothing set conn=nothing % 此頁為用戶刪除相片列表頁面，刪除成功后頁面跳轉到個人相片管理首頁，因此沒有頁面示例。 html 表單元素 此頁無需填寫 html 表單元素。 此頁涉及到用戶相片數據庫表 pic 的操作。 % if request(id) = then end if % !include file= %Set rs_id = () sql = select User_id,id from pic where id= amp。 request(id) sql,conn,3,2 if session(admin_pass) ok then if session(user_id) rs_id(user_id) then (您沒有刪除這個圖片的權限！ ) end if end if user_id1=rs_id(user_id) Set rs_del = () sql=delete * from pic where id= amp。 request(id) sql,conn,3,2 % !include file= % Set rs = () select * from larchives where user_id= amp。 user_id1,conn,3,2 rs(photo)=rs(photo)1 % html 表單元素 此頁無需填寫 html 表單元素。 此頁涉及到交友請求數據庫表 apply、交友請求回復數據庫表 back 和好友數據庫表 friend 的操作。 !include file= % dim id,rs_friend,sql id=request(id) user_id=request(user_id) set rs_apply=() sql=delete from apply where id = amp。 id sql,conn,3,2 s