|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP一般认为只能运行在IIS上,正如前面所提到的,这并不是十分正确,事实上,ASP也能运行在Apache上。ApacheASP可在任意Apache服务器上运行有限的ASP功能,所需做的,只需打开mod_perl。创立你是不是偶然想晓得甚么人会见你的站点,甚么工夫,IP地点等。上面我就这个成绩向
人人来论述一下。这个例子利用文本文件来写进用户的信息创立一个logfile.asp放
在每个asp的页面的顶端<!--#IncludeFile="LogFile.asp"-->当有人来会见你
的站点logfile.asp主动把他的信息写进LogFile.txt,假如相干的URl一样的话则不
写进文件
File:LogFile.asp
<%
DimValidEntryLogvariable
Firstsetthatthislogisvalid
ValidEntry=True
IfSessionVariable"LogIn"isnotempty
thatmeanthispersonhasalreadybeenlogged
thensetValidLogtoFalse
IfnotIsEmpty(Session("LogIn"))thenValidEntry=False
Hereyoucanadddifferentrestriction
Ifthereferingurlisfromsamesite
dontwritetologfile
IfLeft(Request.ServerVariables("HTTP_REFERER"),17)
="http://devasp.com"Then
ValidEntry=False
Endif
IfLeft(Request.ServerVariables("HTTP_REFERER"),21)
="http://www.devasp.com"Then
ValidEntry=False
EndIf
NowifValidEntryisTruethenentertologfile
IfValidEntryThen
ConstForAppending=8
ConstCreate=true
DimFSO
DIMTS
DIMMyFileName
DimstrLog
MyFileName=Server.MapPath("MyLogFile.txt")
SetFSO=Server.CreateObject("Scripting.FileSystemObject")
SetTS=FSO.OpenTextFile(MyFileName,ForAppending,Create)
StoreallrequiredvaluesinstrLog
strLog="<br><P><B>"&now&"</B>"
strLog=strLog&Request.ServerVariables("REMOTE_ADDR")&""
strLog=strLog&Request.ServerVariables("HTTP_REFERER")&""
strLog=strLog&Request.ServerVariables("HTTP_USER_AGENT")&"<BR>"
WritecurrentinformationtoLogTextFile.
TS.writestrLog
TS.Writeline""
CreateasessionvarialbetochecknexttimeforValidEntry
Session("LogIn")="yes"
SetTS=Nothing
SetFSO=Nothing
EndIf
%>
</p>实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,ASP拥有应用系统所有权,用户拥有使用权,应用系统集中放在ASP的数据中心中,集中管理,分散使用,以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务,实现规模效益。 |
|