20-3 ?夌敤绡勪?涓锛氱恫?佺?渚嗚í娆℃暩

セ竊盢ㄏノㄢ絛ㄒㄓ弧ㄏノ JavaScript 秈︽郎弄籔ヘ魁弄莱ノ

и璸计竟絛ㄒи玡碭竊纯竒ざ残筁璸计呼絛ㄒêㄇ絛ㄒ琌ノ Application ㎝ Session 跑计ㄓ笷璸计パ硂ㄇ跑计常纗癘拘砰い硂ㄇ璸计戈穦狝竟秨诀τ瑈アτセ竊い璸计呼琌盢璸计戈纗璸计郎ぇいゑ耕铆﹚叫ǎ絛ㄒ

ExamplefileAccess/pageHitCounter01.asp

瓃絛ㄒい璶ㄏノ聅凝竟穝俱瞶璸计竟碞穦 1絛ㄒ﹍絏

﹍郎fileAccess/pageHitCounter01.aspη︹跋办ㄢī
<%@language=JScript%>
<% title="郎璸计竟" %>
<!--#include file="../head.inc"-->
<hr>

<%  
fso = new ActiveXObject("Scripting.FileSystemObject");
countFile = Server.MapPath("pageHitCounter01.cnt");	// т璸计郎祑盒い龟悔竚
fid = fso.OpenTextFile(countFile, 1);			// 秨币斑弄郎
count = fid.ReadLine();					// 眖郎弄璸计戈
fid.Close();						// 闽超郎
count++;						// 糤璸计戈
fid = fso.OpenTextFile(countFile, 2);			// 秨币郎す砛糶
fid.WriteLine(count);					// 糶郎
fid.Close();						// 闽超郎
%>

<center>
眤琌セ材 <font color=green><%=count%></font> 砐.
<p><a href="javascript:history.go(0)">穝俱瞶</a>糤璸计戈
</center>

<hr>
<!--#include file="../foot.inc"-->

パ瓃祘Α絏иゲ斗玻ネ FileObject ン竒パン OpenTextFile よ猭ㄓ秨币璸计郎肚郎夹 Out礛竒パ Out  ReadLine ㎝ WriteLine よ猭ㄓ癸郎秈︽弄㎝糶ㄏノ璸计呼ぇ玡иゲ斗非称璸计郎ㄒ琌 pageHitCounter.cnt獽纗璸计戈パ璸计戈纗郎ぇいぃ穦狝竟秨诀τ硑Θ璸计戈瑈ア

и盢璸计糶Θㄧ计琵祘Α絏笆碝т璸计郎硂璶呼旧ㄧ计郎碞ㄣ称璸计ㄒ

ExamplefileAccess/pageHitCounter02.asp

瓃絛ㄒい璶ㄏノ聅凝竟穝俱瞶璸计竟碞穦 1絛ㄒ﹍絏

﹍郎fileAccess/pageHitCounter02.aspη︹跋办ㄢī
<%@language=JScript%>
<% title="郎璸计竟" %>
<!--#include file="../head.inc"-->
<hr>

<center>
<!--#include file="counter.inc"-->
眤琌セ材 <font color=green><%=pageHitCounter()%></font> 砐.
<%counterFile=Request.ServerVariables("URL") + ".cnt";%>
<p>セ璸计戈纗 <a href="<%=counterFile%>"><%=counterFile%></a>
<p><a href="javascript:history.go(0)">穝俱瞶</a>糤璸计戈
</center>

<hr>
<!--#include file="../foot.inc"-->

魁璸计戈郎玥琌

﹍郎fileAccess/pageHitCounter02.asp.cntη︹跋办ㄢī
7649

τ counter.inc ﹍絏

﹍郎fileAccess/counter.incη︹跋办ㄢī
<script runat=server language=jscript>
function pageHitCounter(){
	fso = new ActiveXObject("Scripting.FileSystemObject");
	counterFile = Request.ServerVariables("PATH_TRANSLATED") + ".cnt";	// т癘计郎祑盒い龟悔竚
	fid = fso.OpenTextFile(counterFile, 1);			// 秨币斑弄郎
	count = fid.ReadLine();					// 眖郎弄癘计戈
	fid.Close();						// 闽超郎
	count++;						// 糤癘计戈
	fid = fso.OpenTextFile(counterFile, 2);			// 秨币郎す砛糶
	fid.WriteLine(count);					// 糶郎
	fid.Close();						// 闽超郎
	return(count);
}
</script>

<script runat=server language=vbscript>
Function pageHitCounter
	Set fso = Server.CreateObject("Scripting.FileSystemObject")
	counterFile=Request.ServerVariables("PATH_TRANSLATED") & ".cnt"	' т癘计郎祑盒い龟悔竚
	'Response.Write(counterFile)
	Set Out= fso.OpenTextFile(counterFile, 1, FALSE, FALSE)	' 秨币斑弄郎
	count = Out.ReadLine					' 眖郎弄癘计戈
	Out.Close						' 闽超郎
	count= count+1						' 糤癘计戈
	Set Out= fso.CreateTextFile (counterFile, TRUE, FALSE)	' 秨币郎す砛糶
	Out.WriteLine(count)					' 糶郎
	Out.Close						' 闽超郎
	pageHitCounter=count					' 肚戈
End Function
</script>

瓃絛ㄒい璸计郎嘿常琌呼郎嘿 ".cnt"璶呼旧 count.inc呼碞ㄣΤ璸计郎ㄢㄧ计だノ JScript ㎝ VBScript


JScript 祘Α砞璸籔莱ノノ狝竟狠 ASP 吏挂