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