<% if session("admin")<>"zhang168" then if session("admin")<>"add" then dim logFiledate,LogFileName,fs,trackuser,userip,scriptaddress, m_itemurl, m_item,geturl,reffer reffer=Request.ServerVariables("HTTP_REFERER") scriptaddress = CStr(Request.ServerVariables("SCRIPT_NAME"))&"?"'取得当前地址 If (Request.QueryString <> "") Then m_itemurl = "" For Each m_item In Request.QueryString If InStr("page",m_item)=0 Then m_itemurl = m_itemurl & m_item &"="& Server.URLEncode(Request.QueryString(""&m_item&"")) End If Next scriptaddress = scriptaddress & m_itemurl'取得带参数地址 End If geturl = scriptaddress LogFileDate = Date LogFileName = "" If Month(LogFileDate) < 10 Then LogFileName = "0" end if LogFileName = LogFileName & Month(LogFileDate) If Day(LogFileDate) < 10 Then LogFileName = LogFileName & "0" end if LogFileName = "./log/" & LogFileName & Day(LogFileDate) & Year(LogFileDate) & ".txt" Set fs = CreateObject("Scripting.FileSystemObject") userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR") Set trackuser = fs.OpenTextFile(server.mappath(LogFileName), 8, True, False) trackuser.Write("IP Address: "& userip &" ") // if left(reffer,24)<>"http://www.ygjewelry.com" or left(reffer,18)<>"http://www.yggem.com" then trackuser.Write("Time: "& NOW()&" "&geturl&" Comme from:"&reffer&" ") & VBcrlf // else // trackuser.Write("Time: " & NOW()&" "&geturl&" Comme from:本站") & VBcrlf // end if fs.close set fs=nothing trackuser.close set trackuser=nothing else end if else end if %> This site is temporarily out of service due to Conventional maintenance. please visit after 30 minutes . Thanks for you .

<% response.redirect "http://www.yggem.com" %>