|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
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写得更有效率和更方便重用 |
|