仓酷云

标题: ASP网页设计收集精英计数器源程序 [打印本页]

作者: 愤怒的大鸟    时间: 2015-1-16 23:22
标题: ASP网页设计收集精英计数器源程序
ASP脚本是采用明文(plaintext)方式来编写的。程序|计数器|收集利用了imagelib组件!
<%
site_id=Request.QueryString("site_id")
ifisempty(site_id)then
Response.End
endif

SetSistema=CreateObject("Scripting.FileSystemObject")
setILIB=server.createobject("Overpower.ImageLib")
path=server.MapPath("../保留计数文件的路径/")
CounterFile=path&"count_"&site_id&".txt"
contagem=0
ifSistema.FileExists(counterfile)then
Setarquivo=Sistema.GetFile(counterfile)
Settexto=arquivo.OpenAsTextStream(1,-2)
contagem=texto.readline
texto.close
endif
contagem=contagem+1

Settexto=sistema.CreateTextFile(counterfile,true,false)
texto.writelinecontagem
texto.close

texto=contagem
ifcontagem>1thentexto=texto
textolen=len(texto)
fori=1to8-textolen
texto="0"&texto
next

ILIB.FontColor="#00ff00"字体色
ILIB.BrushColor="#000000"背景致
ILIB.FontFace="Verdana"
ILIB.FontFace="Checkers"
ILIB.FontSize=8
ILIB.FontBold=false
ILIB.width=ILIB.GetTextwidth(texto)+5
ILIB.height=ILIB.GetTextHeight(texto)+5
ILIB.PenColor="#307C3B"边框色
ILIB.Box1,1,ILIB.WIDTH,ILIB.HEIGHT
ILIB.Textouttexto,3,3

ILIB.Textout"",ILIB.width/2-tamanho/2,10

ILIB.PictureBinaryWrite2,0,""

SetSistema=nothing
setILIB=nothing
Setarquivo=nothing
Settexto=nothing
%>
本计数器利用了ImageLib组件,在利用程序前必要先注册该组件;
假设说你将文件保留为count.asp,然后在与count.asp,然后经由过程上面代码援用本计数器:
</a>


不外利用之前请发个email给我,以免我在清算的时分将你的数据删了:)
计数器程序代码请看这里http://www.chinanetboy.com/website/read.asp?id=123;

</p>ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了.关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用
作者: 兰色精灵    时间: 2015-1-24 19:15
以上是语言本身的弱点,在功能方面ASP同样存在问题,第一是功能太弱,一些底层操作只能通过组件来完成,在这点上是远远比不上PHP/JSP,其次就是缺乏完善的纠错/调试功能,这点上ASP/PHP/JSP差不多。
作者: 爱飞    时间: 2015-2-2 12:31
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
作者: 精灵巫婆    时间: 2015-2-7 19:32
学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:
作者: 山那边是海    时间: 2015-2-23 07:43
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
作者: 透明    时间: 2015-3-7 05:53
它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。
作者: 简单生活    时间: 2015-3-14 11:53
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
作者: 小妖女    时间: 2015-3-21 05:47
掌握asp的特性而且一定要知道为什么。




欢迎光临 仓酷云 (http://ckuyun.com/) Powered by Discuz! X3.2