【正文】 用程序。 以上構(gòu)建一個(gè)交友類網(wǎng)站實(shí)例。 學(xué)校的每一位指導(dǎo)老師都在各自的專業(yè)領(lǐng)域有著相當(dāng)深厚的知識，我們在寫作畢業(yè)論文的過程中如果遇到無法解決的困難時(shí)，就可以主動(dòng)與導(dǎo)師進(jìn)行聯(lián)系與溝通。同時(shí)要感謝在學(xué)習(xí)期間，給我極大關(guān)心和支持的同學(xué)和朋友們。 雖然困難很多，但是如果不怕吃苦，那么一切的困難都是紙老虎。但是實(shí)際上，萬事開頭難，不管座什么事情遇到困難時(shí)十分正常的。通過 ASP，可為 web 頁添加交互內(nèi)容或用 html 頁構(gòu)成整個(gè) web 應(yīng)用程序，這些應(yīng)用程序使用 html 頁作為客戶的界面。由微軟公司提供的基于運(yùn)行 Microsoft Windows 的互聯(lián)網(wǎng)基本服務(wù)。每頁行數(shù) pages= records= currentpage=request(currentpage) if currentpage= or currentpage1 then currentpage=1 currentpage=cint(currentpage) if currentpagepages then currentpage=pages =currentpage else currentpage=1 records=0 pages=1 end if % 此頁為管理員刪除用戶的信息頁面，刪除成功后將跳轉(zhuǎn)到管理首頁，因此沒有頁面示例。 alert(39。 admin_name amp。)0 or InStr(LCase(admin_password),or)0 then script language=39。 !include file= % if request(id) = then end if set rs_id = () sql = select * from leaveword where id= amp。叛斷 Session 變量是否超時(shí) if isempty(session(user_id)) then end if if session(user_id)=1 then end if % end if Set rs_word = () leaveword,conn,3,2 rs_word(name)=name rs_word(word)=word rs_word(date)=date rs_word(for_id)=user_id rs_word(user_id)=session(user_id) set rs_word=nothing script language=39。 39。 user_id1,conn,3,2 rs(photo)=rs(photo)1 % html 表單元素 此頁無需填寫 html 表單元素。 %Option Explicit%!include file=% dim rs_lar,rs dim sql dim i 39。 39。 名稱 表單元素類型 含義 最大長度 Name Text 真實(shí)姓名 10 Home Text 籍貫 10 Company Text 單位 50 Postcalcode Text 郵編 6 Tel Text 電話 20 20 Fresume Text 簡歷 200 Netname Text 網(wǎng)名 10 Homepage Text 個(gè)人主頁 50 Email Text 電子郵件 50 Netcallcode Text 網(wǎng)絡(luò)尋呼機(jī) 12 Chatroom Text 常去的聊天室 50 Sport Text 喜歡的運(yùn)動(dòng) 30 Book Text 喜歡的書籍 50 Music Text 喜歡的音樂 50 People Text 喜歡的名人 30 Interest Text 愛好或特長 50 Adage Text 人生格言 50 Character Text 性格自述 50 表 頁的表單元素 此頁面為用戶修改個(gè)人檔案信息，涉及到用戶詳細(xì)注冊信息數(shù)據(jù)庫表larchives 的操作。叛斷此用戶是否已經(jīng)提交檔案 if and then end if Set rs_word = () sql=select * from leaveword where for_id= amp。 /script end if 44 位用戶登入失敗時(shí)所看到的頁面。 43 為用戶登入時(shí)所看到的頁面。叛斷此用戶是否已經(jīng)入會(huì) if session(user_id)=1 then end if 39。 amp。 數(shù)據(jù)庫邏輯設(shè)計(jì) 信息表 user_reg， 如表 31 所示 表 31 用戶信息表 列名 數(shù)據(jù)類型 長度 允許空 User_id Int 4 User_name Nvarchar 18 √ Password Nvarchar 18 √ [date] Smalldatetin 4 √ leaveword，如表 32 所示。 網(wǎng)站會(huì)員管理 ： 管理員對注冊會(huì)員管理 。通過網(wǎng)上交友，可以消除社會(huì)暗示和物質(zhì)表象，平等地與對方溝通信息、交流思想、表達(dá)感情，以得到最大的理解和幫助。 本交友網(wǎng)站基于 ASP 和 Access 的數(shù)據(jù)庫原理開發(fā)實(shí)現(xiàn)，互聯(lián)網(wǎng)用戶可以免費(fèi)注冊會(huì)員，然后尋找網(wǎng)友信息并將之加入好友，用戶還可以通過發(fā)布一些個(gè)人信息來結(jié)交朋友，例如自己拍的照片等，讓交友變得簡單親切，并且具有良好的發(fā)展趨勢，為交友提供了一個(gè)雙向交流的良好平臺。 目前網(wǎng)絡(luò)市場上也不乏交友性質(zhì)的網(wǎng)站，但大多對會(huì)員的限制較多，注冊信息繁復(fù)等。通過互聯(lián)網(wǎng)進(jìn)行購物、娛樂、交流等。 此次開發(fā)的交友網(wǎng)站系統(tǒng)很好地實(shí)現(xiàn)了用戶的注冊和登錄、個(gè)人信息管理、加好友、寫留言、以及管理員對會(huì)員的管理等交友網(wǎng)站應(yīng)具有的基本功能。 系統(tǒng)設(shè)計(jì)背景 隨著計(jì)算機(jī)的迅速發(fā)展，人們的生活普遍趨向信息化。這種組合能夠保證整個(gè)系統(tǒng)的可擴(kuò)展性和合快速的運(yùn)行。 網(wǎng)友通過注冊填寫信息來進(jìn)行用戶登錄操作。 用戶詳細(xì)注冊信息： lar_ID (自動(dòng)編號 )、用戶 ID、姓名、生日、年齡、學(xué)歷、職業(yè)、單位、郵政編碼、電話、簡歷、性格和星座等。 % if session(user_id)1 then 12 end if % 圖 41 為用戶注冊會(huì)員的第一步所看到的頁面 圖 41 用戶注冊會(huì)員第一步 html 表單元素 此頁無需填寫 html 表單元素。 表 頁的表單元素 名稱 表單元素類型 含義 最大長度 Name Text 真實(shí)姓名 10 Home Text 籍貫 10 Company Text 單位 50 Postcalcode Text 郵編 6 Tel Text 電話 20 Fresume Text 簡歷 200 Netname Text 網(wǎng)名 10 Homepage Text 個(gè)人主頁 50 Email Text 電子郵件 50 Netcallcode Text 網(wǎng)絡(luò)尋呼機(jī) 12 14 Chatroom Text 常去的聊天室 50 Sport Text 喜歡的運(yùn)動(dòng) 30 Book Text 喜歡的書籍 50 Music Text 喜歡的音樂 30 People Text 喜歡的名人 50 Interest Text 愛好或特長 50 Adage Text 人生格言 50 character Text 性格自述 50 此頁為用戶填寫個(gè)人檔案頁面，并沒有涉及到數(shù)據(jù)庫表的操作。叛斷 Session 變量是否超時(shí) if isempty(session(user_id)) then end if Set rs_lar = () sql=select user_id from larchives where user_id = amp。數(shù)據(jù)填寫有錯(cuò) !39。叛斷 Session 變量是否超時(shí) if isempty(session(user_id)) then end if 39。 交友請求回復(fù)管理子模塊包含以下頁面。 !include file= % Set rs_lar = () sql=select * from larchives where user_id like 39。 request(id) sql,conn,3,2 22 Set rs_del = () sql=delete from frie