%@LANGUAGE="VBSCRIPT" CODEPAGE="874"%>
<% if isNull(Session("conn")) or Session("conn") = "" then GlobalDbConnect "conn", conn end if file_name = "../ads.htm" chk_ads = 0 Set objFSO = Server.CreateObject("Scripting.FileSystemObject") if objFSO.FileExists(Server.MapPath("\")&"\"&file_name) then chk_ads = 1 end if ' +++++++ Basic Counter by Session from aspbuilder.webhostme.com +++++++ set act = objFSO.opentextfile(server.mappath("../scounter.txt")) counter = clng(act.readline) if session("been_here_before") = "" then session("been_here_before") = "Yes" counter = counter + 1 Set act = objFSO.CreateTextFile(server.mappath("../scounter.txt"), true) act.WriteLine(counter) End if act.Close ' + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Set objFSO = Nothing %> ʶҺѹ¾Ñ²¹ÒÍØµÊÒË¡ÃÃÁÊÔè§·Í
|
||
«ÍµÃÕÁԵà ¡ÅéǹÓä· ¶¹¹¾ÃÐÃÒÁ·Õè 4 á¢Ç§¾ÃÐ⢹§ ࢵ¤ÅͧàµÂ ¡·Á. 10110 <% Logos_THTI_in ("../../") %> |
||