【導(dǎo)讀】時讓本身的系統(tǒng)能夠隨時便利升級，以支持未來網(wǎng)上業(yè)務(wù)的發(fā)展。務(wù)網(wǎng)站，成為勢在必行的上網(wǎng)策略。的網(wǎng)絡(luò)形象，成為服裝企業(yè)適應(yīng)信息化時代發(fā)展的最佳方式。不斷增長的個性化需求。服裝企業(yè)網(wǎng)站的建設(shè)和管理水平，直接影響服裝企。站，已經(jīng)成為服裝企業(yè)網(wǎng)絡(luò)化建設(shè)的一個重要內(nèi)容。本系統(tǒng)的開發(fā)恰恰滿足了這一要求。論文中介紹了系統(tǒng)的需求分析、總。體設(shè)計及各功能模塊的詳細設(shè)計。絡(luò)和客戶更好的交流，拉近企業(yè)和客戶的距離，掌握大量的客戶反饋信息，要是宣傳企業(yè)形象，發(fā)布產(chǎn)品信息、宣傳經(jīng)濟法規(guī)、提供商業(yè)服務(wù)。站不同于個人站點，個人站點是基于個人的目的而建設(shè)的。在電子商務(wù)中，網(wǎng)站是其擁有者和用戶交流及溝通的窗口是買賣雙方信。形象和經(jīng)營戰(zhàn)略的載體。商務(wù)網(wǎng)站是企業(yè)展開電子商務(wù)的基礎(chǔ)設(shè)施和信息平。系統(tǒng)運轉(zhuǎn)的承擔(dān)者和表現(xiàn)者。增強企業(yè)的競爭力。通過門戶，企業(yè)可以為自己的合作伙伴、客戶等提供訪

　　

【正文】 的全部留言信息，并對留言的回復(fù)狀態(tài)進行標(biāo)識，如果有回復(fù)信息的還需要提供查看回復(fù)信息的功能。查看留言信息的頁面的運行結(jié)果如圖 所示。 34 圖 查看留言信息的頁面設(shè)計效果 查看留言信息頁面主要用于分頁顯示留言信息 。 添加留言信息 單擊查看留言信息頁面的留言信息上方的“添加 ”超鏈接即可進入到添加留言信息頁面添加留言信息。添加留言信息頁面的運行結(jié)果如圖 所示。 圖 添加留言信息頁面運行結(jié)果 添加留言信息頁面主要通過 ，在該文件中放置了用于收集用戶留言信息的表單元素和將留言信息添加到數(shù)據(jù)表中，將留言信息添加到數(shù)據(jù)表中 和 將留言信息保存到數(shù)據(jù)庫 。 網(wǎng)站后臺首頁設(shè)計 企業(yè) 網(wǎng)站的后臺入口是通過網(wǎng)站 后 臺的“ 時代廣陽企業(yè)網(wǎng)站管理系統(tǒng) ”進入， 后臺登陸地址為 /Admin/。 管理員輸入正確的 admin用戶名和密碼 admin后即可進入到網(wǎng)站后臺對網(wǎng)站進行管理。網(wǎng)站后臺主要是對前臺 35 需要顯示的信 息進行管理、對留言簿信息進行管理和維護。企業(yè) 網(wǎng)站的后臺首頁的運行結(jié)果如圖 。 圖 時代廣陽企業(yè)網(wǎng)站管理系統(tǒng) 的后臺首頁的運行結(jié)果 網(wǎng)站的后臺主要通過框架頁實現(xiàn)。這樣可以很方便地實現(xiàn)頁面導(dǎo)航?？蚣茼摰?Top 部分主要用于顯示當(dāng)前用戶狀態(tài)、返回首頁及安全退出網(wǎng)站等功能；框架頁的 left 部分主要用于頁面導(dǎo)航；框架頁的 main 部分主要用于顯示各功能模塊的操作，在 left 部分的每個超鏈接都指定其 target 屬性，即為其指定顯示的目的窗口。 36 參考文獻 [1]． 宋坤、趙智勇 Visual Basic信息系統(tǒng)開發(fā)實例精選 機械工業(yè)出版社 2020年 7月 [2]． 李俊民、高春燕等 Access 數(shù)據(jù)庫開發(fā)實例解析 機械工業(yè)出版社 2020 年 1 月 [3]． 李嚴(yán)、于亞芳、王國輝 ASP數(shù)據(jù)庫開發(fā)實例解析 機械工業(yè)出版社 2020年 12月 [4]． 王國輝、牛強、李南南 ASP工程應(yīng)用與項目實踐 機械工業(yè)出版社 2020年 4月 [5]． 王國輝、牛強 ASP信息系統(tǒng)開發(fā)實例精選 機械工業(yè)出版社 2020年 7月 [6]． 明日科 技 Visual FoxPro 管理信息系統(tǒng)完整項目實例剖析 人民郵電出版社 2020年 7 月 37 附 錄 網(wǎng)站源碼 時代廣陽企業(yè)網(wǎng)站管理系統(tǒng) 首頁 的關(guān)鍵代碼如下： Dim LoginAction LoginAction=LCase(Request(Action)) if LoginAction=login then Dim AdminUserName,AdminPassWord,AdminCheckCode AdminUserName = Trim((AdminUserName)) AdminPassWord = trim((AdminPassWord)) AdminGetCode = trim((GetCode)) if AdminUserName = Or Len(AdminUserName)3 Or Len(AdminUserName)16 Then () End if if AdminPassWord = Or Len(AdminPassWord)32 Then script language=39。javascript39。alert(39。密碼填寫錯誤 !39。)。(1)。/script () End if if AdminGetCode = Or Lcase(AdminGetCode)Lcase(Session(GetCode)) Then script language=39。javascript39。alert(39。驗證碼錯 38 誤 !39。)。(1)。/script () End if Set LoginRs=() Select * From [AdminUser] where AdminUserName=39。amp。LCase(AdminUserName)amp。39。 ,conn,3,2 if then () End if if LoginRs(AdminLock)=禁用 then () End if Set LogRs=Nothing Session(SSC_AdminUserName)=Trim(LoginRs(AdminUserName)) Session(SSC_AdminPurview)=Trim(LoginRs(AdminPurview)) =60 End if 網(wǎng)站代碼： !include file= !include file= !include file= !include file= % Dim Action,ID,SortID,sKey,TopNum Action=FormatSQL(Request(Action)) 39 sType=FormatSQL(Request(sType)) sKey=FormatSQL(Request(sKey)) ID=FormatSQL(SafeRequest(ID,1)) if sType= Then sType=ProName End If if Request(SortID)= then SortID=0 else SortID=FormatSQL(SafeRequest(SortID,1)) End if % % 39。39。============================================== 39。39。首頁顯示各分類信息列表 39。39。參數(shù)：分類 ID ,每頁顯示條數(shù) TopNum 39。39。調(diào)用例子： Call ShowInfoListTop(1,10) (設(shè)置分類類別 :SortID=1,每類顯示條數(shù)： TopNum=10 ) 39。39。============================================== Private Sub ShowInfoListTop(SortID,TopNum) InfoSql=Select top amp。TopNumamp。 * From [View_SSC_InfoList_All] Where SortID in (amp。SortIDamp。InfoAllChildClass(SortID)amp。) and IsPassed=1 Order by UpdateTime Desc Set InfoRs= () InfoSql,Conn,1,1 % table width=100% border=0 cellspacing=0 cellpadding=0 % 40 if and then trtd height=39。3039。 align=39。center39。 bgcolor=39。FFFFFF39。暫無相關(guān)數(shù)據(jù) /td/tr else do while not % tr tdtable width=100% border=0 cellpadding=0 cellspacing=0 tr td height=23 class=WebBodyTitleBlack % 39。39。 //顯示標(biāo)題 amp。middot。a href=39。?ID=amp。InfoRs(ID)amp。39。 target=39。_blank39。amp。Myleft(InfoRs(Title),30)amp。/a 39。39。 //顯示時間 (amp。Month(InfoRs(UpdateTime))amp。/amp。Day(InfoRs(UpdateTime))amp。) % /td /tr /table/td /tr % Loop End if % /table % 41 Set InfoRs=Nothing End Sub 39。39。============================================== 39。39。首頁顯示最新最新圖片新聞列表 39。39。參數(shù)：分類 ID ,每頁顯示條數(shù) TopNum 39。39。調(diào)用例子： Call ShowNewInfoPicTop(1,10) (設(shè)置分類類別 :SortID=1,每類顯示條數(shù)： TopNum=10 ) 39。39。============================================== Private Sub ShowNewInfoPicTop(SortID,TopNum) Dim SetRow,SetList,SmallImgWidth,SmallImgHeight SetRow=6 39。39。//設(shè)置每頁顯示行數(shù) SetList=2 39。39。//設(shè)置每行顯示記錄數(shù) SmallImgWidth=140 39。39。//設(shè)置列表圖寬度 SmallImgHeight=124 39。39。//設(shè)置列表圖高度 InfoSql=Select top amp。TopNumamp。 * From [View_SSC_InfoList_All] Where SortID in (amp。SortIDamp。InfoAllChildClass(SortID)amp。) and IsPassed=1 Order by UpdateTime Desc Set InfoRs= () InfoSql,Conn,1,1 % table width=100% border=0 cellspacing=0 cellpadding=2 % if and then trtd height=39。3039。 align=39。center39。 bgcolor=39。FFFFFF39。暫無相關(guān)數(shù)據(jù) /td/tr else for j=1 to SetRow 42 if then Exit For End if % tr % for i=1 to SetList if then Exit for End if % td width=% =(100/SetList) %% align=centertable width=100% border=0 cellpadding=0 cellspacing=0 tr td height=110 align=center% a href=39。?ID=amp。InfoRs(ID)amp。39。 target=39。_blank39。img src=39。 if InfoRs(SmallPicUrl) then InfoRs(SmallPicUrl) else admin/img/ End if 39。 border=39。039。 onload=39。javascript:DrawImage(this,amp。SmallImgWidthamp。,amp。SmallImgHeightamp。)。39。/a %/td /tr tr 43 td align=center % 39。39。 //顯示標(biāo)題 a href=39。?ID=amp。InfoRs(ID)amp。39。 target=39。_blank39。 class=39。WebSmallSort39。amp。Myleft(InfoRs(Title),200)amp。/a %/td /tr /table /td % next % /tr % next End if % /table % Set InfoRs=Nothing End Sub 39。39。============================================== 39。39。首頁顯示最新產(chǎn)品列表 39。39。參數(shù)：分類 ID ,每頁顯示條數(shù) TopNum 39。39。調(diào)用例子： Call ShowNewProListTop(1,10) (設(shè)置分類類別 :SortID=1,每類顯示條數(shù)： TopNum=10 ) 44 39。39。===============================