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