Ϊʲôͬһ¸ö³ÌÐòÓò»Í¬µÄ±à¼Æ÷дÓв»Í¬µÄ´íÎó°¡
Ò»¸ö¼ÇÊýÆ÷µÄ³ÌÐò <% dim counter sub incrementcounter() set fs=server.CreateObject ("scripting.filesystemobject") counterfile=server.MapPath ("/counter.txt") set txt=fs.OpenTextFile (counterfile,1,true) counter=txt.readline txt.close counter=counter+1 set txt=fs.CreateTextFile (counterfile,true) txt.writeline(counter) txt.close end sub
Application.Lock incrementcounter Application.UnLock %> <html> <body> <center><h2>»¶Ó·ÃÎÊÊý¾Ý¿â±à³Ì</h2></center> ÄãÊDZ¾Õ¾µÄµÚ<%=counter%>λ¹ó±ö </body> </html> ΪʲôÎÒÔÚͬһ̨µçÄÔÉÏÓüÇʱ¾Ð´ ±¨´íΪ
¸ÃÒ³ÎÞ·¨ÏÔʾ | |
ÄúÒª·ÃÎʵÄÒ³ÓÐÎÊÌ⣬ÎÞ·¨ÏÔʾ¸ÃÒ³¡£ | |
Çë³¢ÊÔÒÔϲÙ×÷:
HTTP 500 - ÄÚ²¿·þÎñÆ÷´íÎó Internet Explorer |