guestip.asp

一套非常实用的博客源代码,功能全,界面简单易用.

<%
Dim UserIP
UserIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If UserIP = "" Then
    UserIP = Request.ServerVariables("REMOTE_ADDR")
End If
`调用IP
Dim ipbLog
Set ipbLog=Server.CreateObject("Adodb.Recordset")
SQL="SELECT blog_SpamIP FROM blog_Info"
ipbLog.Open SQL,znwl,1,1
If ipbLog.EOF AND ipbLog.BOF Then 

End If
ipbLog.Close
Set ipbLog=Nothing
%>