【文章內容簡介】 entType content=text/html。 charset=gb2312 title會員登錄 /title !include file= script language=javascript function chkLogin() { if( == ) { alert(請輸入您的用戶名！ )。 ()。 return false } else if((3)||(20)) { alert(用戶名必須是 320 位字母或數字！ )。 ()。 return false } if( == ) { alert(請輸入密碼！ )。 ()。 return false } else if((6)||(20)) { alert(密碼必須是 620 位字母或數字！ )。 ()。 return false。 } return true } /script/head 13 body table width=90% border=0 align=center cellpadding=0 cellspacing=0 bgcolor=CCCCCC form name=login method=post action= onSubmit=return chkLogin() tr td height=49 valign=bottomdiv align=center class=head3會員登錄 /div/td /tr tr td align=centertable width=48% border=0 align=center cellpadding=0 cellspacing=0 class=table_dashed tr td width=40% height=27div align=right用戶名 :/div/td td width=60%input name=username type=text class=input_solid id=username size=20/td /tr tr td height=27div align=right密 碼 :/div/td tdinput name=password type=password class=input_solid id=password size=20/td /tr /table/td /tr tr tdtable width=19% height=44 border=0 align=center cellpadding=0 cellspacing=0 tr td width=50%div align=center input type=submit name=Submit value=提交 /div/td td width=50%div align=center input name=reset type=reset id=reset value=重置 /div/td /tr tr td colspan=2div align=centera href= target=_self注冊 /aA class=2 href= 忘記密碼 /A/div/td /tr /table/td /tr tr td height=57 div align=center % 39。 出錯提示 if msg = error then (用戶名或密碼錯誤 !) end if % /div/td /tr /form /table 14 !include file= /body/html 三 、 新聞 瀏覽 和公司信息 模塊的設計與實現 （一）模塊的 IPO 1. 功能 本模塊主要實現公司新聞和公司信息的瀏覽功能。 2. 輸入 選擇不同的新聞標題。 3. 處理 （ 1）顯示新聞標題。顯示數據庫中的新聞標題供用戶瀏覽 。 （ 2）獲取數據。用戶在點擊某條新聞后，該新聞的 id 就被提交給 進行處理。 （ 3）連接數據庫。建立數據庫連接，根據用戶提交的新聞 id 使用 SELECT 語句執(zhí)行數據庫查詢。 （ 4）顯示新聞內容。在新聞顯示頁面顯示新聞內容。 4. 輸出 輸出新聞顯示頁面。 （二）模塊的 asp 頁面 本模塊主要由 ， 和 組成，公司首頁如圖 733所示。 圖 733 公司首頁（ ） 顯示公司新聞頁面和查 看新聞頁面如圖 734 和圖 735 所示。 15 圖 734 公司新聞頁面（ ） 圖 735 查看新聞頁面（ ） （三）模塊各頁面所使用的數據庫表 本模塊使用了數據庫中的 Articles 表。 （四）相關頁面程序代碼 下面分別介紹各頁面的 ASP 程序。 1． 的程序代碼 %@LANGUAGE=VBSCRIPT CODEPAGE=936% !include file=/ html head meta equiv=ContentType content=text/html。 charset=gb2312 title企業(yè)門戶網站 /title 16 link href=/ rel=stylesheet type=text/css /head body table width=85% border=0 align=center cellpadding=0 cellspacing=0 class=table_solid tr td width=50% rowspan=2img src=/images/ alt=logo width=100% height=101/td td width=60% height=63 valign=bottom bgcolor=D5EDB3span class=head1天工電器公司/span/td /tr tr td bgcolor=D5EDB3 /td /tr tr td height=17 colspan=2 bgcolor=99CC66 /td /tr tr td height=307 colspan=3 valign=toptable width=100% height=307 border=0 cellpadding=0 cellspacing=0 bgcolor=F4FFE4 tr td width=19% height=278 rowspan=2 bgcolor=5C743Dtable width=100% border=0 cellspacing=0 cellpadding=0 tr td!include file=//td /tr tr td ! 顯示文章搜索窗口 table width=100% border=0 cellpadding=0 cellspacing=0 form name=search method=get action= tr td height=30 colspan=3 align=centerinput type=text name=key size=19 class=input_solid /td /tr tr td width=59% height=30 align=centerdiv align=right select name=key_type class=stedit option value=title selected class=input文章標題 /option option value=content class=input文章內容 /option option value=author class=input文章作者 /option /select /div/td 17 td width=28% align=centerinput type=submit name=Submit2 value=搜索 /td td width=13% align=center /td /tr /form /table/td /tr /table/td td width=57% class=STYLE3div align=center class=head3公司新聞 /div/td td width=24% class=table_soliddiv align=center class=head3最新公告 /div/td /tr tr td height=281 align=center valign=middle bgcolor=DFEFCAtable width=90% height=195 border=0 cellpadding=0 cellspacing=0 % 39。 顯示頭 10 條新聞 dim n, title, updateTime 39。定義要顯示的新聞條目 n = 10 call dbOpen 39。調用過程建立數據庫連接 39。定義用于數據庫查詢的字符串 strSQL=select * from articles where class1Name=39。公司新聞 39。order by id desc 39。執(zhí)行查詢 set rs=(strSQL) 39。判斷查詢是否成功，如果 rs 在記錄開頭并且在記錄結束則證明沒有查詢到記錄 if and then (數據庫中沒有記錄！ ) else 39。循環(huán)顯示文章標題 do while not title = rs(title) 39。將標題字數大于 22 個的顯示為“ *****...”的形式 if len(title) 22 then title = left(t