|
第三章 系统设计3.1 资料显示模块 资料显示模块包含以下子模块。 内容来自论文无忧网 www.paper51.com ● 资料显示 copyright paper51.com ● 资料搜索 copyright paper51.com 资料显示子模块包含以下页面。 内容来自www.paper51.com
● index.asp http://www.paper51.com ● detail.asp 内容来自www.paper51.com ● download.asp 内容来自www.paper51.com
● teacherinfo.asp 内容来自www.paper51.com 资料搜索子模块包含以下页面。 内容来自论文无忧网 www.paper51.com ● search.asp http://www.paper51.com ● list.asp 内容来自论文无忧网 www.paper51.com 各页面间的关系如图3-1所示。 paper51.com 内容来自论文无忧网 www.paper51.com 3-1各页面间的关系 内容来自www.paper51.com
内容来自www.paper51.com
3.1.1资料信息显示页 paper51.com 1. index.asp页面示例 http://www.paper51.com 图3-2为显示资料信息所看到的页面。 内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com 内容来自论文无忧网 www.paper51.com 图 3-2 显示资料信息 内容来自www.paper51.com 2.页面中需要用户填写的HTML表单元素。 paper51.com 此页无需填写HTML表单元素。 内容来自www.paper51.com 3.页面所涉及的数据库表信息。 http://www.paper51.com
此页面用来显示资料信息,使用了系统中的资料信息表main和教师信息表teacher。 copyright paper51.com 4.页面代码分析 http://www.paper51.com ‘引用创建数据库连接对象函数文件 copyright paper51.com <!--#includefile="conn.asp"--> copyright paper51.com
‘引用网站设置文件 paper51.com <!--#includefile="fenlei.asp"--> paper51.com <%’取得网站设置信息 copyright paper51.com sql = "select * fromconfig" paper51.com set rs =server.createobject("adodb.recordset") paper51.com
rs.open sql,conn,1,3 内容来自论文无忧网 www.paper51.com
schoolname =rs("schoolname") 内容来自论文无忧网 www.paper51.com gonggao = rs("gonggao") 内容来自www.paper51.com todaytimes =rs("todaytimes") http://www.paper51.com times = rs("times") 内容来自论文无忧网 www.paper51.com
‘今日访问统计 内容来自论文无忧网 www.paper51.com if rs("todaydate") <>date() then copyright paper51.com rs("todaydate") = date() http://www.paper51.com
rs.update http://www.paper51.com todaytimes = 0 paper51.com end if http://www.paper51.com ‘总访问统计 http://www.paper51.com ifrequest.cookies("counted") <> "yes" then http://www.paper51.com response.cookies("counted")= "yes" 内容来自论文无忧网 www.paper51.com ‘设置cookies失效时间 http://www.paper51.com response.cookies("counted").expires= now() + 1/72 内容来自www.paper51.com ‘统计数加1 内容来自论文无忧网 www.paper51.com times = times + 1 内容来自论文无忧网 www.paper51.com todaytimes = todaytimes + 1 paper51.com rs("times") = times 内容来自论文无忧网 www.paper51.com rs("todaytimes") =todaytimes http://www.paper51.com rs.update paper51.com end if http://www.paper51.com ‘关闭记录集对象 内容来自论文无忧网 www.paper51.com rs.close 内容来自www.paper51.com dim num1 内容来自www.paper51.com dim rndnum http://www.paper51.com Randomize paper51.com
%> 内容来自论文无忧网 www.paper51.com ‘Html页面显示部分 copyright paper51.com
…… http://www.paper51.com <%’取最近更新的10条资料记录 paper51.com sql = "select * frommain,teacher where main.idofteacher=teacher.teacherid order by main.timesdesc" 内容来自论文无忧网 www.paper51.com
rs.open sql,conn,1,1 copyright paper51.com
‘显示最近更新的10条资料记录 copyright paper51.com for i = 1 to 10 内容来自www.paper51.com if rs.eof then http://www.paper51.com
response.write"<tr><td> </td><td> </td><td> </td><td> </td></tr>" 内容来自www.paper51.com else 内容来自论文无忧网 www.paper51.com
if len(rs("title")) > 10then 内容来自www.paper51.com filetitle =left(rs("title"),10)&"..." 内容来自论文无忧网 www.paper51.com else copyright paper51.com filetitle = rs("title") 内容来自论文无忧网 www.paper51.com end if paper51.com %> copyright paper51.com <tr><tdalign=left> <img src=images/arrow.gif> paper51.com <a href=#title="<%=rs("title")%>" onclick=javascript:showdetail(<%=rs("mainid")%>);><%=filetitle%></a> paper51.com
</td><tdalign=center><ahref=teacherinfo.asp?id=<%=rs("teacherid")%> title="查看<%=rs("teacher")%>的个人专集"><%=rs("teacher")%></a></td> paper51.com <tdalign=center><%=rs("times")%></td> 内容来自论文无忧网 www.paper51.com <tdalign=left> <%=rs("fenlei2")%></td></tr> http://www.paper51.com <%‘取下一条资料记录 copyright paper51.com rs.movenext copyright paper51.com end if paper51.com next copyright paper51.com
‘关闭记录集对象 内容来自www.paper51.com
rs.close paper51.com
%> copyright paper51.com |