阿赛·游梦鱼·郭言赛·阿赛工作室
技术分类
推荐技术
近期热门技术

ASP日志代码片段

  •  字体:
  • 保存下面代码到ASP文件中,同目录内建立rz.txt文本用来储存日志。
    <%
    dim rzip,rzstr
    rzstr=Request.ServerVariables("QUERY_STRING")
    if rzstr<>"" then
    rzip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
    if rzip="" then rzip=Request.ServerVariables("REMOTE_ADDR")
    rzstr="["&now()&"]("&rzip&")"&rzstr
    dim anfilefso,anfilewrite
    Set anfilefso=Server.CreateObject("Scr" & "ipt" & "ing.Fil" & "eSy" & "ste" & "mOb" & "j" & "ect")
    Set anfilewrite=anfilefso.OpenTextFile(Server.MapPath("rz.txt"),8,True)
    anfilewrite.WriteLine(rzstr)
    Set anfilewrite=Nothing
    end if
    %>

    Powered by eesai.Com ©  2017  阿赛工作室 All Rights Reserved
    本网站由 阿赛工作室 提供源代码技术支持.  备案号:苏ICP备08114364号

    网站地图建议反馈MapRssXml回到顶部