%
Dim oFSO
Dim oFile
Dim nCount
Dim sFilePath
Application.Lock
sFilePath=Server.MapPath("Count.txt")
IF LEN(Application("TotalCount"))=0 THEN
Set oFSO=Server.CreateObject("Scripting.FileSystemObject")
IF Not oFSO.FileExists(sFilePath) THEN
Set oFile=oFSO.CreateTextFile(sFilePath,true)
oFile.Write "1"
Application("TotalCount")=1
ELSE
Set oFile=oFSO.OpenTextFile(sFilePath,1)
nCount=oFile.ReadLine
Application("TotalCount")=Clng(nCount)+1
End IF
oFile.Close
Application("LastwriteTime")=Now
ELSE
Application("TotalCount")=Application("TotalCount")+1
IF DateDiff("n",Application("LastwriteTime"),Now)>1 THEN
Set oFSO=Server.CreateObject("Scripting.FileSystemObject")
Set oFile=oFSO.OpenTextFile(sFilePath,2,True)
oFile.Write CStr(Application("TotalCount"))
oFile.Close
Application("LastwriteTime")=Now
End IF
End IF
TotalCount = Application("TotalCount")
Application.UnLock
%>
¡G¥ú»ÉÆl¤uµ{¬I§@°Ñ¦Ò½d¨Ò»¡©ú¡G
|
|
|
|
|
|
|
¥|¡B¤U¤ô¹D¬I¤u ¡@¡@
ùþ ¬I¤u»¡©ú¡G
ùþ Æl½u¬[³]©ó¤U¤ô¹D²[ºÞ¤º®É¡A©T©w¤è¦¡¤Î¦ì¸mÀ³¨Ì¥DºÞ¾÷Ãö³W©w¿ì²z¡C
£»¬ï¶V¤H¤Õ¤§½uÆl¶·¶K¾À©T©w¡C
£»Æl½u§G©ñ¶·Â¶¹L»Ùꪫ¤W¤è(¦p±Æ¤ôºÞµ¥)¡C
£»Æl½u¾î¸ó¤U¤ô¹D®É¡A¶·±NÆl½u©T©w©ó¤U¤ô¹D¤W¤è¡A¨Ã¥Î©T©w§¨©T©w¤§¡C
£»Æl½u§G©ñ¦p»Ý¥Ñ¤U¤ô¹D¡A¸g¥ÑÃä·¾±Æ¤ôºÞ¡A¤Þ¦ÜÃä·¾®É¡A¨ä¬I¤u¦pªþ¹Ï¡C
½d¨Ò¤K

½d¨Ò¤E

¬I¤u·Ó¤ù
ùþ²{³õÀˬd«ÂI¡G
£»Æl½u¶·ºò¶K¾ÀÀð¡AµL««¸¨
£»«D¤£Äÿû¹s¤ª÷Ãw«C¦³§_§¡¤Ã¶î©Ù
£»Âਤ³B¶·¥HÂù¼hPE±²Â¶ºÞ«OÅ@

¬I¤u·Ó¤ù
 |
|
|
¤¡B¾ô¼Ùªþ±¾¬I¤u ¡@¡@
ùþ ¬I¤u»¡©ú¡G
£»¤£±o¯}Ãa¾ô¼Ùµ²ºc¡C
£»±¾³]¥úÆl¤£±o§C©ó¾ô¤UÁa¾î¼Ù¡A¨Ã¾¨¶qªþ±¾©ó¾ô¼Ù¤U´å°¼¡C
£»¸Ë¸m©ó¾ô¼Ù¤W¤§ªþ±¾®MºÞºÞ¸ô¡A¨Ï¥Î¾É¹q©Ê¤§§÷½è®É¡AÀ³§@¦³®Ä±µ¦a¬I¤u¡C
£»ªþ±¾ºÞ®MºÞ¹DY±ÄPEºÞ¡A¦]À³®ð·ÅÅܤơB®¶°Ê©Î¦a¾_¦Ó¤Þ°_ºÞ¸ô²¾°Ê¡A¶·³]¸m¦ùÁY®MºÞ³B¡C
£»Y¿¤¥«¬F©²¦³¨ä³W©w¡A¨Ì¨ä³W©w¡C
¬I¤u·Ó¤ù
ùþ²{³õÀˬd«ÂI¡G
£»Æl½u¶·ºò¶K¾ô¼Ù¡AµL««¸¨
£»³]¸m¦ùÁY®M
£»¤Þ¥X³B¶·¥HÂù¼hPE±²Â¶ºÞ«OÅ@

¬I¤u·Ó¤ù

¼ÐÅҼХܳW©w
ùþ¼ÐÅҼХܡG
ùþ¼ÐÅÒ¦ì¸m(¥i¤À¿ë²M·¡¤½¥qÆl½u³B)¡G
£»ªþ±¾ÂI¤Î±µÄò¦¬®e³B¼ÐÅÒÂH¶K©ó¨â°¼¡C
£»ªþ±¾¤U¤ô¹DÆl½u¨C5M³BÂH¶K¤@±i¡C
£»Ãä·¾»\¡B¤H¤Õ¡B¤Þ¤W(¤U)³B¡C
£»Y¦U¿¤¥«¬F©²¦³³W©wªÌ¡A¨Ì¨ä³W©w¡C
|
|
|