IP记录程序，PHP And ASP。。。
星期一, 一月 11th, 2010先来个PHP的吧：
下载: ip.php
- <?php
- $str = $_SERVER["REMOTE_ADDR"]." ".date("Y-m-d H:i:s").chr(13).chr(10) ."<br />\n";
- $getip = $_SERVER["REMOTE_ADDR"];
- echo "Your IP is:\n" .$getip ."<hr>My E-Mail:LenovoUnion#Gmail.Com,Welcome contact me!";
- $fp = fopen("ip.htm","a");
- fwrite($fp,$str);
- fclose($fp);
- ?>
以下是ASP的：
下载: ip.asp
- <%
- Dim strIP
- strIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
- If strIP = "" Then
- strIP = Request.ServerVariables("REMOTE_ADDR")
- ipFileAddr=Server.mapPath("ip.txt")
- getIP=Request.ServerVariables("remote_addr")
- set ipFS=Server.createObject("Scripting.FileSystemObject")
- set ipFile=ipFS.openTextFile(ipFileAddr,8)
- ipFile.write(getIP&" ")
- ipFile.writeLine(now())
- ipFile.close
- Response.Cookies("visited")="True"
- End If
- %>
- 当前时间：<%=Now%><br /><hr />
- <h1>请勿做坏事，谢谢合作！</h1><br /><br />
- 您的IP地址：<%=strIP%>
- <!-- By lsmr 2010.01.11-->
