組合語言程式設計

<% function counter_add(file_name) mp=Server.MapPath(file_name) set fs=CreateObject("Scripting.FileSystemObject") Set fh=fs.OpenTextFile(mp,1) data0=Server.HTMLEncode(fh.ReadLine) fh.Close Application.Lock Application(file_name)=CLng(data0) Application.UnLock if Session("master")<>1215 then if Session(file_name)<>72 then Application.Lock Application(file_name)=Application(file_name)+1 Application.UnLock Session(file_name)=72 mp1=Server.MapPath(file_name) set fs1=Server.CreateObject("Scripting.FileSystemObject") Set fh2=fs1.CreateTextFile(mp1,True,Fales) fh2.WriteLine Application(file_name) fh2.Close end if end if counter_add=Application(file_name) end function %> 組合語言程式設計 <% ip0=Request.ServerVariables("REMOTE_ADDR") if ip0="221.169.96.102" then Session("master")=1215 else Session("master")=0 end if session.Timeout=5 %>

NOTE　 [您是第位訪客]， <% Response.Write "目前線上共有 " & Application("person") & " 人" %>]　　　　

組合語言程式設計

訪客留言板

程式討論區