ASP网页设计ASP进阶之文章在线办理更新（七）
无法实现跨操作系统的应用。当然这也是微软的理由之一，只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP，ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的；在线ASP进阶之文章在线办理更新--主页面及搜刮篇沙岸小子
经由了文章的增加、保留、显现，那末如今应当来谈谈关于办理程序的显现主页面，也就是显现一切文章的题目毗连，以便利扫瞄者查找文章，其应当具有的功效有：显现一切文章的题目毗连，到场日期，扫瞄次数等信息，别的还必需供应分页功效，要否则这么多的文章题目在一个页面都显现出来，那将十分的费时且方便扫瞄，别的因为本程序在这里分离了文章分栏目搜刮的功效，以是在这里也将一同先容了。
上面就为人人具体的先容主页面index.asp的这些功效的完成历程和其详细服从：
"创建数据库毗连
<!--#includefile="conn.asp"-->
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title>ASP专题栏目</title>
<metaname="GENERATOR"content="MicrosoftFrontPage3.0">
<linkrel="stylesheet"type="text/css"href="style.css">
<scriptlanguage="javascript">
functionpopwin2(path)
{window.open(path,"","height=450,width=600,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
</script>
</head>
<%
"界说每页最年夜文章题目显现量MaxPerPage,你能够本人修正这里的数字来到达你的最好显现效果
constMaxPerPage=18
dimtotalPut
dimCurrentPage
dimTotalPages
dimi,j
"假设前往的页面信息是空的,也就是假如你间接输出index.asp,那末就用这里界说的页数第一页
ifnotisempty(request("page"))then
currentPage=cint(request("page"))
else
currentPage=1
endif
dimsql
dimrs
dimrstype
dimtypesql
dimtypeid,typename
"假如前往的栏目信息为空,那末就用这里界说的栏目,这里指定的是第三个栏目
ifnotisEmpty(request("typeid"))then
typeid=request("typeid")
else
typeid=3
endif
"经由过程前往的栏目typeid号,翻开数据库显现指定的栏目,并把其值交给typename
setrstype=server.createobject("adodb.recordset")
typesql="select*fromtypewheretypeID="&cstr(typeid)
rstype.opentypesql,conn,1,1
typename=rstype("type")
rstype.close
%>
<body>
<divalign="center"><center>
<tableborder="0"width="95%"cellspacing="0"cellpadding="0">
<tr>
<tdwidth="100%"style="border-left:thindottedrgb(0,128,0);border-right:thindottedrgb(0,128,0)"><palign="center"><br>
"显现栏目信息,当你点击了任何一个栏目,在typename的地位城市显现相干信息,这里没有接纳栏目标主动显现体例是思索了页面的显现效果,而接纳手工增加的形式,要想接纳主动形式,就本人写吧:)信任你进修到如今,不会连这个都编不出来吧!
动网ASP技能专题>><fontcolor="#FF0000"><%response.write""&typename&""%></font><br>
<ahref="index.asp?typeid=1">ASPFAQ</a>｜<ahref="index.asp?typeid=2">ASP组件</a>｜<ahref="index.asp?typeid=3">ASP文摘</a>｜<ahref="index.asp?typeid=4">ASP实例</a>｜<ahref="index.asp?typeid=5">ASP平安</a></p>
<divalign="center">
"翻开指定的纪录集article并依照文章的到场日期排序,在这里翻开有两个前提,一个是使用like来查询数据库并显现相干文章题目,另有就是经由过程前往的typeid显现指定栏目标文章
<%
sql="select*fromarticlewheretitlelike%"&request("txtitle")&"%andtypeid="+cstr(typeid)+"orderbydatedesc"
Setrs=Server.CreateObject("ADODB.Recordset")
rs.opensql,conn,1,1
"假如查询数据库的了局指向纪录集的入手下手大概开头,暗示数据库中没有任何相干文章
ifrs.eofandrs.bofthen
response.write"<palign=center>没有或没有找就任何文章</p>"
else
"假如数据库内有内容，则获得数据库内文章数量
totalPut=rs.recordcount
"假设页面参数currentpage小于1,则指定为1
ifcurrentpage<1then
currentpage=1
endif
"使用文章总数和每页最年夜文章数算得分页的页数
if(currentpage-1)*MaxPerPage>totalputthen
if(totalPutmodMaxPerPage)=0then
currentpage=totalPutMaxPerPage
else
currentpage=totalPutMaxPerPage+1
endif
endif
"假如分页的页数为1大概页面数减1乘与页面最年夜文章数小于文章总数,则用已做好的functionshowpage在showContent子程序也就是显现文章题目部分的下面和上面显现分页程序
ifcurrentPage=1then
showpagetotalput,MaxPerPage,"index.asp"
showContent
showpagetotalput,MaxPerPage,"index.asp"
else
if(currentPage-1)*MaxPerPage<totalPutthen
rs.move(currentPage-1)*MaxPerPage
"界说书签
dimbookmark
bookmark=rs.bookmark
showpagetotalput,MaxPerPage,"index.asp"
</p>Access是一种桌面数据库，只适合数据量少的应用，在处理少量数据和单机访问的数据库时是很好的，效率也很高。但是它的同时访问客户端不能多于4个。access数据库有一定的极限，如果数据达到100M左右，很容易造成服务器iis假死，或者消耗掉服务器的内存导致服务器崩溃。 代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。 先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。 没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。 掌握asp的特性而且一定要知道为什么。 先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习
页:
[1]