基于asp的企业门户网站设计指导源程序

基于asp的企业门户网站设计指导源程序内容摘要：

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 语句执行数据库查询。 （ 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企业门户网站 /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。 执行查询 set rs=(strSQL) 39。 判断查询是否成功，如果 rs 在记录开头并且在记录结束则证明没有查询到记录 if and then (数据库中没有记录。 ) else 39。 循环显示文章标题 do while not title = rs(title) 39。 将标题字数大于 22 个的显示为“ *****...”的形式 if len(title) 22 then title = left(t。