门户网站建设课程设计 第1篇
在浏览器地址栏中输入http://localhost之后,屏幕中将显示如图 所示的公司的首页.顶部为一行导航菜单,可以链接到网站的各个功能模块,中上部为企业产品幻灯片一览和行业两类新闻,左边为会员登陆系统, ,最下面是主要的产品.
图 首行网络技术有限公司的首页
图 关于公司
图 新闻中心
图 产品展示
门户网站建设课程设计 第2篇
1、:连接数据库文件
<%
'启用缓冲处理
dim conn,db
dim connstr
db=_/data/w78#126@#@#!.mdb_'数据库链接路径
connstr=_DBQ=_+(__&db&__)+_;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};_
set conn=(__)
connstr
If Err Then
Set Conn = Nothing
_数据库连接出错，请检查数据库连接文件中的数据库参数设置。_
End If
sub Chkhttp()
server_vv=len((_SERVER_NAME_))
server_v1=left(Cstr((_HTTP_REFERER_)),server_vv)
server_v2=left(Cstr(_http://_&(_SERVER_NAME_)),server_vv)
if server_v1<>server_v2 or server_v1=__ or server_v1=__ then
_utf-8_
(__)
end if
end sub
%>
2、:网站调用参数页面
<%
function w78_News_fl_list()'新闻分类调用参数
set newsfl=(__)
_select * from news_fl order by px_id asc_,conn,1,1
if and then
(_ 暂无记录 !_)
end if
while not
wend
set newsfl=nothing
end function
%>
3、:主要实现页面跳转跟分页显示功能
<%
'提示错误信息
sub strA(str1)
(__)
()
end sub
'成功提示信息
sub strB(str2,url)
(__)
()
end sub
'页面自动跳转
sub AutoJump(str1,url)
(_
_&str1&_
_)
(_
正在跳转...
_)
(_
页面没有自动跳转【点这里】
_)
(__)
end sub
'分页子程序
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
Dim query, a, x, temp
action = _http://_ & (_HTTP_HOST_) & (_SCRIPT_NAME_)
query = Split((_QUERY_STRING_), _&_)
For Each x In query
a = Split(x, _=_)
If StrComp(a(0), _page_, vbTextCompare) <> 0 Then
temp = temp & a(0) & _=_ & a(1) & _&_
End If
Next
(_
(_
(_
(font_style & vbCrLf )
' _【返回前页】 _
if page<=1 then
(_首页 _ & vbCrLf)
(_上一页 _ & vbCrLf)
else
(_首页 _ & vbCrLf)
(_上一页 _ & vbCrLf)
end if
if page>=pagecount then
(_下一页 _ & vbCrLf)
(_尾页 _ & vbCrLf)
else
(_下一页 _ & vbCrLf)
(_尾页 _ & vbCrLf)
end if
(_页次：_ & page & _/_ & pageCount & _页_& vbCrLf)
(_ 共_ & iCount & _条记录_ & vbCrLf)
(_ 转_ & __ & _页_ & vbCrLf & __)
(_
(_
(_
End Sub
sub Left1(str1,url)
(_
_&str1&_
_)
(_
正在跳转...
_)
(_
页面没有自动跳转【点这里】
_)
(__)
end sub
%>
1、会员登陆验证代码：
<%
useradmin=Replace((_useradmin_), _'_, _''_)
password=md5(Request(_password_))
VerifyCode=(_VerifyCode_)
if useradmin=__ then
(__)
end if
if Request(_password_)=__ then
(__)
end if
if VerifyCode=__ then
(__)
end if
if cstr(Session(_firstecode_))<>cstr((_VerifyCode_)) then
(__)
end if
sql=_select * from user where useradmin='_&useradmin&_' and userpassword='_&password&_'_
set rs=(sql)
if or then
(__)
end if
if rs(_sh_)=0 then
(__)
end if
session(_username_)=rs(_id_)
sql=_update user set dlcs=dlcs+1 where id=_ & session(_username_) '登陆次数+1
(sql)
sql=_update user set dldata=#_ & now & _# where id=_ & session(_username_) '记录登陆时间
(sql)
(_
1、向数据库写入数据页面，代码分析：
<%
set rs=(__)
sql=_select * from about_
sql,conn,1,3
title=(_title_)
body=(_body_)
keywords=(_keywords_)
description=(_description_)
px_id=(_px_id_)
if title=__ then
(__)
end if
if px_id=__ then
(__)
end if
IF not isNumeric(request(_px_id_)) then
(__)
end if
if body=__ then
(__)
end if
rs(_title_)=title
rs(_body_)=body
rs(_keywords_)=keywords
rs(_description_)=description
rs(_px_id_)=px_id
set rs=nothing
set rs=nothing
__
%>
2、向数据库里删除程序代码分析：
<%
if request(_del_)=_ok_ then
set rs=(__)
id=(_id_)
sql=_select * from admin where id=_&id
sql,conn,2,3
__
end if
%>
3、向数据库里修改程序代码分析：
<%
id=request(_id_)
title=(_title_)
url=(_url_)
body=(_body_)
color=(_color_)
ssfl=(_ssfl_)
ly=(_ly_)
zz=(_zz_)
img=(_img_)
tuijian=(_tuijian_)
if id=__ or not isnumeric(id) then
__
end if
SQL=_Select * from news where id=_&id
set rs=(__)
SQL,conn,1,3
if and then
__
end if
if title=__ then
(__)
end if
if body=__ then
(__)
end if
rs(_title_)=title
rs(_url_)=url
rs(_body_)=body
rs(_color_)=color
rs(_ssfl_)=ssfl
rs(_ly_)=ly
rs(_zz_)=zz
rs(_img_)=img
rs(_tuijian_)=tuijian
__ %>
门户网站建设课程设计 第3篇
在完成编码的工作以后,根据以上的方法和步骤进行了如下的测试:
· 功能测试:对网站的几大功能模块逐一测试,尽最大可能发现起潜在的错误,比如邮箱的格式,电话号码是否全为数字.
· 性能测试:将程序以局域网的形式发布,查看其是否满足多用户的要求.
· 需求测试:根据需求分析的内容,测试网站是否和当初的设计一样.
通过这几方面的测试，我及时修正了系统中存在的问题，很好的提高了系统的性能，达到了预期目标。
1、ASP 高级编程 WROX出版社 2002
2、《ADO程序员参考》 Microsoft著
3、《Microsoft Jet ACCESS参考》Microsoft著
一个程序员，都是以开发操作方便，功能完善的系统为目标的去每天创新。虽然我们还没步入社会，但在学校，我们也能体会到作为一个程序员的那种感觉，总结的目的，就是要我们在实践的过程中，学会团队精神，总结出自己在平时的一些不好毛病，不断去努力学习新知识，提高自己的能力，提高自己本身的素质，以后出去了才能成为一个好程序员。
经过几周的奋战我的课程设计终于完成了。我负责做的是“网站建设详细设计”和“网站程序文件设计与编写”在没有做课程设计以前觉得课程设计只是对这一年来所学知识的单纯总结，但是通过这次做课程设计发现自己的看法有点太片面。课程设计不仅是对前面所学知识的一种检验，而且也是对自己能力的一种提高。通过这次课程设计使我明白了自己原来知识还比较欠缺。自己要学习的东西还太多，以前老是觉得自己什么东西都会，什么东西都懂，有点眼高手低。通过这次毕业设计，我才明白学习是一个长期积累的过程，在以后的工作、生活中都应该不断的学习，努力提高自己知识和综合素质。
07软件班 朱 首 行
2009年6月23日星期二