asp实训报告(绝对规范附代码)_asp代码

asp实训报告(绝对规范附代码)_asp代码

源代码 2013-3-3　版权投诉上传论文复制论文网址上传用户：121你好

等大多数工作中实际用的上的知识点，并且让您在理解 JS 原理，熟悉 JS 原生代码编写的基础上，全面掌握 jQuery。当然，更重要的是在课程中强化培养编程的逻辑思路。开发环境：此次开发使用 asp+access，可运行在IIS apache中，客户端浏览器兼容 IE 系列，和 chrome，firefox 尚不支持。
    六、需求分析
    □实现文章显示，采用 B/S 结构开发 □实现多模块，便于维护 □表现和逻辑分离 □使用数据提供数据支持 □后台管理功能，添加删除文章
    七、系统设计 1、系统目标分析
    √实现文章显示，采用 B/S 结构开发 √实现多模块，便于维护 √表现和逻辑分离 √使用数据提供数据支持 √后台管理功能，添加删除文章
    3
     2、系统功能结构
    首页显示数据库后台列表页内容页
    后台
    3、功能预览
    首页显示效果
    内容列表页效果
    4
     内容详细页
    后台管理页面 4、系统流程图
    首页
    列表页
    内容页
    后台操作
    5
     5、文件夹结构
    /………………………………根目录 /admin…………………管理后台 /db…………………数据库 /images…………………图片 /style……………………css 文件 /moduel…………………方法模块
    6、数据库设计
    此次设计中使用数据库名为 web，共有 9 张关系为平行的数据库表分别对应每个科目
    7、首页设计
    首页 photoshop 设计，按照模块分别对每个项目实现，有详细列表、最近更新、热门推荐模块。
    6
     头部设计，渐变效果导航菜单
    这里是 body，页面内容区
    首页的 Photoshop 设计效果图
      收藏|设为主页   搜索简洁有效创新
首页
HTML 教程
JAVASCRIPT
ASP 教程
CSS 教程
站长博客
    代码样例
    8、文章列表页面设计
    7
     效果和首页相似
     <% crouse=request.QueryString("crouse") set rs = Server.CreateObject("ADODB.recordset") rs.Open "SELECT * FROM "&;crouse, application("conn"
    ),1,2 rs.PageSize = 3 response.write "" PageNo = request.QueryString("PageNo") if PageNo = Empty then PageNo = 1 rs.AbsolutePage= PageNo '生成内容摘要的函数 Function subtxt(txt,num) if Len(txt) > num then subtxt = Left(txt,num)&;"..." else subtxt= txt end if end function
    while not (rs.EOF or k > rs.PageSize) txt=rs("txt") response.write "
"&;rs("chapter")&;"

摘要：<% =subtxt(txt,50)%>

作者：<% =rs("author") %> 发表时间： <%=date%>

<% <% rs.MoveNext crouse=request.QueryString("crouse") k=k+1 set rs = Server.CreateObject("ADODB.recordset") wend rs.Open "SELECT * FROM "&;crouse, application("conn"),1,2 response.write "

" rs.PageSize = 3 response.write "" %> PageNo = request.QueryString("PageNo")

if PageNo = Empty then PageNo = 1  rs.AbsolutePage= PageNo '生成内容摘要的函数 Function subtxt(txt,num) if Len(txt) > num then subtxt = Left(txt,num)&;"..." else subtxt= txt end if 8 end function while not (rs.EOF or k > rs.PageSize) txt=rs("txt")
     10、后台页面设计
    <% '打开数据库表 crouse =request.QueryString("crouse") set rs = Server.CreateObject("ADODB.recordset") if crouse = "" then rs.Open "SELECT * FROM html ", application("conn"),1,2 crouse= "html" Else rs.Open "SELECT * FROM "&;crouse, application("conn"),1,2 end if%>

你的位置：管理首页&;gt<%=crouse%>

文章列表 <% '输出内容 rs.MoveFirst() while not rs.EOF response.write "" response.write rs("id")&;"."&;rs("chapter")&;" "&;rs("dat")&;"" response.write "编辑" response.write "<a 八、单元测试及其整合测试。 href=dbaction.asp?action=insert&;crouse="&;crou

首页 12原创

版权说明

免费论文,原创论文,参考论文,论文源代码-网学

asp实训报告(绝对规范附代码)_asp代码