马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。显现<%
dimmyfso,myread
setmyfso=createobject("scripting.filesystemobject")
setmyread=myfso.opentextfile(server.mappath("./new_list.asp"),1,0)
ifmyread.atendofstreamthen
Response.Write"今朝没有增加旧事"
Response.End
else
dimmytext,listarray
mytext=myread.readall
listarray=split(mytext,"|")#######把一切纪录支解成一个数组a
dimrecordcount,pagecount,pagesize,pagenum
recordcount=ubound(listarray)############纪录条数
pagesize=2
pagecount=recordcount/pagesize#######获得页面数
ifinstr(1,pagecount,".")=nullorinstr(1,pagecount,".")=0then
pagenum=pagecount
else
pagenum=int(pagecount)+1
endif
dimtopage
topage=cint(Request.QueryString("topage"))########获得要显现的页面
iftopage<=0then
topage=1
endif
iftopage>pagenumthen
topage=pagenum
endif
dimi,j,n
b=listarray
fori=0torecordcount-1########把每笔记录构成一个数组
j=split(listarray(i),",")
ifubound(j)=6then
b(i)="<SPANstyle=COLOR:#ffbd00;FONT-SIZE:7px><li></SPAN><spanstyle=font-size:10pt><ahref=news_view.asp?id="&j(0)&"target=blank>"&j(1)&"(图)</a>点击:"&j(4)&"次最初公布工夫:"&j(5)&"</span>"
else
b(i)="<SPANstyle=COLOR:#ffbd00;FONT-SIZE:7px><li></SPAN><spanstyle=font-size:10pt><ahref=news_view.asp?id="&j(0)&"target=blank>"&j(1)&"</a>点击:"&j(4)&"次最初公布工夫:"&j(5)&"</span>"
endif
next
########把纪录反排序存储在新的数组完成定时间反排序
dimc(100)
n=0
fori=recordcountto0step-1
c(n)=b(i)
n=n+1
next
dimcurrentrecord
currentrecord=pagesize*(topage-1)+1#########显现每页
fork=1topagesize
iflen(c(currentrecord))=0then
exitfor
endif
Response.Writec(currentrecord)&"<br>"
currentrecord=currentrecord+1
next
Response.Write"<bodybgcolor=#EDF0F5topmargin=10marginheight=5leftmargin=4marginwidth=0>"
form=1topagenum
response.write"<spanstyle=font-size:10pt><ahref=news_list.asp?topage="&m&">"&m&"</a></span>"
next
endif
%>
</p>国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了 |