【正文】 層深入，使得客戶既能很容易得到所需要的信息，又對網(wǎng)站的安全性能有很好的保障。 (3). 留言版圖解： 留言版分為三部分：客戶留言、站長回復、系統(tǒng)管理?？蛻袅粞允箍蛻暨M行留言，站長回復則回復客戶的留言，而系統(tǒng)管理則有站長對整個留言版進行管理，由于要進行密碼登陸，因此很好的保證了吸引的安全性。 綜合信息是本網(wǎng)站的最重要的部分，他主要向外界介紹本公司的詳細信息，同時也是本公司內部管理的重要工具。雖然現(xiàn)在功能還沒有完善，還沒有達到理想的效果，但是還是初步模塊已經成型。如對外把一些公司基本信息顯示給客戶，對內部管理則可以通過插入、刪除、更改記錄等進行信息的更新。2. 公司介紹部分：站長公告，公司理念，公司簡介，成功案列。通過成功案列的介紹，使客戶明白本公司是一個很好的公司，讓他有想了解更多信息的欲望。3. 公司與外界聯(lián)系部分：服務范圍，新老顧客，聯(lián)系我們，請您留言。 4. 行業(yè)動態(tài)部分：市場動態(tài)，熱點新聞。ash欣賞。因此就加大了娛樂部分。八、 網(wǎng)頁界面和程序代碼：1. JAVA程序代碼：(1). 向上滾動文字程序JAVA代碼：script language=JavaScript type=text/javascript!// var version = other browserName = 。 if (browserName == Netscape amp。 browserVer = 3) version = n3。amp。 else if (browserName == Microsoft Internet Explorer amp。 browserVer = 4) version = e4。amp。 function ms() { if (version == e4) { (marquee behavior=scroll direction=up width=100% height=200 scrollamount=1 scrolldelay=12 onmouseover=39。 onmouseout=39。) } } function me() { if (version == e4) { (/marquee) } } // /script script language=JavaScript type=text/javascriptms()。 today = new Date()。 var date。date = 今天是 + (()) + 年 + (() + 1 ) + 月 + () + 日 + day +。// /script(3). 關閉網(wǎng)頁時彈出窗口代碼：script language=vbs!sub window_onunload()msgbox歡迎下次再進入我的網(wǎng)站,0,goodbyeend sub/script(4). 防復制程序：SCRIPT language=javascript function click() { if (==2) { alert(39。) } } =click /SCRIPT(5). 顯示“歡迎……”SCRIPT language=JavaScript var msg = 歡迎光臨劉寬平lsflash綜合信息網(wǎng)站?。海?。 var spacelen = 120。 var seq=0。 = (0, seq+1)。 if ( seq = len ) { seq = 0。39。, interval )。, interval )。 /SCRIPT(6). 加載網(wǎng)頁時彈出窗口程序：SCRIPT LANGUAGE=39。(39。,39。,39。)。 FileName=39。 DesigntimeType=ADO39。 Catalog=39。%b. 留言版數(shù)據(jù)源連接代碼：%39。 Type=ADO 39。 HTTP=false39。 Schema=Dim MM_guestbook_STRINGMM_guestbook_STRING = Driver={Microsoft Access Driver (*.mdb)}。Uid=Admin。%(2). 頁面數(shù)據(jù)連接實現(xiàn)a. 登陸頁面表單實現(xiàn)部分：amp。amp。amp。amp。 用戶名： input name=textfield type=text /ppamp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。 密amp。 碼： input name=textfield2 type=password/p pa href=amp。返回amp。amp。/aamp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。input type=submit name=Submit value=站長登陸b. 登陸頁面數(shù)據(jù)連接部分：%LANGUAGE=VBSCRIPT%!include file=../Connections/ %Dim Recordset1Dim Recordset1_numRowsSet Recordset1 = () = MM_gengxinmima_STRING = SELECT * FROM 表1 ORDER BY 用戶名 ASC = 0 = 2 = 1()Recordset1_numRows = 0%%39。 , amp。 FROM 表1 WHERE 用戶名=39。 Replace(MM_valUsername,39。39。39。 amp。,39。) amp。 = 0 = 2 = 3 If Not Or Not Then 39。nbsp。 *** Edit Operations: declare variablesDim MM_editActionDim MM_abortEditDim MM_editQueryDim MM_editCmdDim MM_editConnectionDim MM_editTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordedDim MM_fieldsStrDim MM_columnsStrDim MM_fieldsDim MM_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_iMM_editAction = CStr((SCRIPT_NAME))If ( ) Then MM_editAction = MM_editAction amp。 ()End If boolean to abort record editMM_abortEdit = falsequery string to executeMM_editQuery = %%39。If (CStr(Request(MM_update)) = form1 And CStr(Request(MM_recordId)) ) Then MM_editConnection = MM_gengxinmima_STRING MM_editTable = 表1 MM_editColumn = 用戶名 MM_recordId = 39。 MM_editRedirectUrl = MM_fieldsStr = Element|value|Element2|value MM_columnsStr = 用戶名|39。39。,none,39。39。 set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr((MM_fields(MM_i))) Next append the query string to the redirect URL If (MM_editRedirectUrl And ) Then If (InStr(1, MM_editRedirectUrl, ?, vbTextCompare) = 0 And ) Then MM_editRedirectUrl = MM_editRedirectUrl amp。 Else MM_editRedirectUrl = MM_editRedirectUrl amp。 amp。End If%%39。 MM_editTable amp。) Then 39。 amp。,39。) amp。 Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i LBound(MM