杭州设计公司,杭州广告设计公司
网页设计
用ASP创建网站日志系统文件的源码
信息来源:未知     栏目类别: 网页设计     浏览次数:     发表评论 减小字体 增大字体

你是否有时想知道什么人访问你的站点,什么时间,IP地址等。下面我就这个问题向大家来阐述一下。这个例子使用文本文件来写入用户的信息创建一个logfile.asp放在每一个asp的页面的顶端<!--#I**clude File="LogFile.asp"-->当有人来访问你的站点logfile.asp**动把他的信息写入LogFile.txt,如果相关的URl一样的话则不写入文件
file: LogFile.asp

<%
Dim ValidE**try ' Log variable
' First set that this log is valid
ValidE**try = True

' If Sessio** Variable "LogI**" is **ot empty
' that mea** this perso** has already bee** logged
' the** set ValidLog to False
If **ot IsEmpty(Sessio**("LogI**")) the** ValidE**try = False

' Here you ca** add differe**t restrictio**
' If the referi**g url is from same site
' do**'t write to log file
If Left(Request.ServerVariables("HTTP_REFERER"), 17)="http://www.51wisdom.com.c**" The**
ValidE**try = False
E**d if
If Left(Request.ServerVariables("HTTP_REFERER"), 21)="http://www.51wisdom.com.c**" The**
ValidE**try = False
E**d If

' Now if ValidE**try is True the** e**ter to log file
If ValidE**try The**
Co**st ForAppe**di**g = 8
Co**st Create = true
Dim FSO
DIM TS
DIM MyFileName
Dim strLog

MyFileName = Server.MapPath("MyLogFile.txt")
Set FSO = Server.CreateObject("Scripti**g.FileSystemObject")
Set TS = FSO.Ope**TextFile(MyFileName, ForAppe**di**g, Create)

' Store all required values i** strLog
strLog = "<br><P><B>" & **ow & "</B> "
strLog = strLog & Request.ServerVariables("REMOTE_ADDR") & " "
strLog = strLog & Request.ServerVariables("HTTP_REFERER") & " "
strLog = strLog & Request.ServerVariables("HTTP_USER_AGENT") & "<BR>"
' Write curre**t i**formatio** to Log Text File.
TS.write strLog
TS.Writeli**e ""
' Create a sessio** varialbe to check **ext time for ValidE**try
Sessio**("LogI**") = "yes"
Set TS = Nothi**g
Set FSO = Nothi**g
E**d If
%>

本文标签:把本文收藏到 网摘 博采 百度
上一篇:网络境域中的视觉艺术符号及审美分析          回网页设计列表         下一篇:页面设计的色彩理论及应用
搜索本站其他内容: 百度一下:[用ASP创建网站日志系统文件的源码]   Google搜索:[用ASP创建网站日志系统文件的源码]
最新网友评论文章↓
1.靠2009-11-19 20:42:45
2.去2009-11-19 20:39:41
3.脑残还是变相炫富?2009-11-16 20:17:58
4.好感动哦2009-11-7 15:40:32
5.怎么学习2009-10-20 10:54:50

文章添加时间:2008-9-18,文件大小:20.33 KB,最近更新时间:2011-12-16 18:07:51 返回TOP↑            

本站文章搜集自网络;共享网络,共享快乐,我为人人,人人为我;如果您知道本站未知来源文章请告知本站谢谢!
文中及留言观点不代表本站;本站转载内容只是为了更好的交流;
若侵犯了您的版权请联系E-mail:有事儿,您Q我!,本站核实后立即处理!

  •             平面设计| 标志设计| 包装设计| 网页设计| 广告设计| VI设计| 画册设计| 专卖店设计| 展位设计| 名片设计| 网站地图|    建议使用IE5及以上1024*768分辨率
  •             友情链接 版权所有 © 杭州威迪广告公司 2008-2010 | TEL:0571-88385993 13296756810 浙ICP备09011107号