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