log.asp

来自「网上引用的asp蜘蛛查询软件」· ASP 代码 · 共 37 行

<%
vyear=year(now())
vmonth=right("0" & month(now()),2)
vday=right("0" & day(now()),2)
MyDay=vyear&vmonth&vday

now2=now()-1
vyear2=year(now2)
vmonth2=right("0" & month(now2),2)
vday2=right("0" & day(now2),2)
MyDay2=vyear2&vmonth2&vday2


	Dim fso,f1,cnrs
	MyFilePath=server.MapPath("data/log"&MyDay&".htm")
	MyFilePath2=server.MapPath("data/log"&MyDay2&".htm")	

	Set fso = Server.CreateObject("Scripting.FileSystemObject") 

	if  fso.FileExists(MyFilePath) then
		response.redirect ("data/log"&MyDay&".htm")
	else
%>
<p align=center>
<p align=center><font color=#808000>今天(<%=MyDay%>)还没有蜘蛛爬过，等待之中...</font></p>
<%
	end if

	if fso.FileExists(MyFilePath2) then
%>

		<p align=center>　</p>
		<p align=center>想看昨天(<%=MyDay2%>)的蜘蛛爬行记录吗？<a href=data/log<%=MyDay2%>.htm>是</a></p>
<%		
	end if
%>