|
?? 经由了文章的增添、保存、显示,那么现在应当来谈谈关于管理程序的显示主页面,也就是显示所有文章的标题连接,以便利浏览者查找文章,其应该存在的功能有:显示所有文章的标题连接,加入日期,阅读次数等信息,另外还必须供给分页功能,要不然这么多的文章标题在一个页面都显示出来,那将十分的费时且不便浏览,另外因为本程序在这里结合了文章分栏目搜索的功能,所以在这里也将一起介绍了。
?? 下面就为大家具体的介绍主页面index.ASP的这些功能的实现进程以及其详细功能:
?? "树立数据库衔接
ASP专题栏目FrontPage 3.0">function popwin2(path){ window.open(path,"","height=450,width=600,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");}
?? "定义每页最大文章标题显示量MaxPerPage,你可以自己修正这里的数字来到达你的最佳显示效果?? const MaxPerPage=18?? dim totalPut?? ?? dim CurrentPage?? dim TotalPages?? dim i,j
?? "如果返回的页面信息是空的,也就是假如你直接输入index.asp,那么就用这里定义的页数第一页?? if not isempty(request("page")) then????? currentPage=cint(request("page"))?? else????? currentPage=1?? end if?? dim sql?? dim rs?? dim rstype?? dim typesql?? dim typeid,typename
?? "如果返回的栏目信息为空,那么就用这里定义的栏目,这里指定的是第三个栏目?? if not isEmpty(request("typeid")) thentypeid=request("typeid")?? elsetypeid=3?? end if
?? "通过(兄弟啊我们是同命相连啊,我去年一年的工资两万多全扔里面了,开个月薪不到三天就没了,你这回赢一百下回叫你输三百,老想往回赢点:信我的在别玩了:我现在都戒了:你想想你辛苦挣的还有你的父母钱就别玩了)返回的栏目typeid号,翻开数据库显示指定的栏目,并把其值交给typenameset rstype=server.createobject("adodb.recordset")? typesql="select * from type where typeID="&cstr(typeid)? rstype.open typesql,conn,1,1? typename=rstype("type")? rstype.close%>
? ???
?? "显示栏目信息,当你点击了任何一个栏目,在typename的地位都会显示相关信息,这里不采用栏目标自动显示方法是斟酌了页面的显示后果,而采用手工增加的模式,要想采用主动模式,就本人写吧 信任你学习到当初,不会连这个都编不出来吧!??? 动网ASP技能专题??? ASP FAQ|ASP组件 |ASP文摘|ASP实例|ASP安全 ???
?? "打开指定的记录集article并按照文章的加入日期排序,在这里打开有两个前提,一个是利用like来查询数据库并显示相关文章标题,还有就是通过返回的typeid显示指定栏目的文章
? "如果查询数据库的成果指向记录集的开端或者结尾,表示数据库中没有任何相关文章? if rs.eof and rs.bof then?????? response.write "没有或没有找到任何文章"?? else? "如果数据库内有内容,则取得数据库内文章数量? totalPut=rs.recordcount? "如果页面参数currentpage小于1,则指定为1????? if currentpagetotalput then?? if (totalPut mod MaxPerPage)=0 then???? currentpage= totalPut MaxPerPage?? else????? currentpage= totalPut MaxPerPage + 1?? end if
????? end if? "如果分页的页数为1或者页面数减1乘与页面最大文章数小于文章总数,则用已经做好的function showpage在showContent子程序也就是显示文章标题部分的上面和下面显示分页程序?????? if currentPage=1 then??????????? showpage totalput,MaxPerPage,"index.asp"??????????? showContent??????????? showpage totalput,MaxPerPage,"index.asp"?????? else????????? if (currentPage-1)*MaxPerPage
%>????? ??????? ID号??????? 文章标题??????? 加入日期??????? 点击????? ????? ?? "顺次显示文章ID号,文章标题,文章加入日期及浏览数,这里的openarticle.asp是用来从新定向文章的,以后将为大家介绍??????? ??????? &typeid=')">??????? ??????? ????? =MaxPerPage then exit do?? "显示完一篇文章当前,自动移到记载集的下一个记载????? rs.movenext?? loop? %>??? ???
?? "显示分页的functionfunction showpage(totalnumber,maxperpage,filename)? dim n
?? "利用文章数算出文章的分页数N? if totalnumber mod maxperpage=0 then???? n= totalnumber maxperpage? else???? n= totalnumber maxperpage+1? end if? response.write ""? response.write "分页"
?? "如果当前页数小于2,则显示的文章首页跟上一页不显示连接,否则用当前页数减去1来显示上一页,直接用page=1来显示首页? if CurrentPage首页 上一页"? else??? response.write "首页"??? response.write "上一页"? end if
??? "如果分页页数小于1,则直接显示下一页和尾页,否则用当前页数加上1来显示下一页,用已经算出的文章分页数N显示文章的尾页? if n-currentpage下一页 尾页"? else??? response.write ""??? response.write "下一页 尾页"? end if
??? "用N和maxperpage显示文章的分页数和每页的文章数?? response.write "页次:"共"&totalnumber&"篇文章 "&maxperpage&"篇文章/页 "
??? "直接输入文章所在页面转到相关页面?? response.write " 转到:"?? response.write ""???? end function%>
?? "文章搜索相关程序
?? "把输入的查询字符赋值给txtitle,这样在前面的显示文章语句就起了作用title like '%"&request("txtitle")&"%'????? 标题:
?? "显示与文章相关的栏目信息,可以抉择一个进行查询,这里的typeid也赋值给了typeid,以使前面的显示文章的程序对须要显示内容做出断定? typesql="select * from type"rstype.open typesql,conn,1,1? do while not rstype.eof??????????????????????????????? sel="selected"??? ???????????? response.write ""+rstype("type")+""+chr(13)+chr(10)???????????? rstype.movenext?????????????? looprstype.closeset conn=nothing%>????? ??? ??? ?
?? 在这里顺便介绍一下关于打开文章的程序openarticle.asp,这个也是一个更新数据库内容(update浏览数)和重定向文件。很简略,所以这里只是简单介绍一下它的程序内容:?? ?? "打开数据库连接
?? 好了,对于文章的显示首页面就完成了,它能够显示文章的标题,参加日期等文章相干信息,另外还联合了文章的分栏目搜寻查询功效。在这里你会发明,应用ASP对数据库进行查询并不是一件很难的事件,只有利用一个like就可以轻易实现,文章治理的前台程序咱们已经基础实现,下面该来先容管理体系的后盾程序了。
?
文章出自: www.3baidu.net |
|