ipinfo.asp

来自「是一个QQWRY.DAT的ASP利用程序」· ASP 代码 · 共 20 行

<!--#include file="Inc/Const.asp" -->
<!--#include file="Inc/iXs_Ip.asp" -->
<%
Dim sType, IpStr, Action

Action = iXs.ReqNum("Action")
If Action = "" Then Action = 0

If Action = 0 Then
	sType = iXs.ReqNum("sType")
	If sType = "" Then sType = 0
	Response.Write(GetIpInfoAv(iXs.ReqIp(), sType))
Else
	' 生成IP签名图片
	' 因为是无组件，所以执行效率比较低
	' 其调用代码如下：                                                  注意去掉这里的\
	' <script language="javascript1.2" src="http://www.114xp.cn/IpInfo.asp?Action=1"><\/script>
	Response.Write("document.write(""<a href=\""" & iXs.Sys_Info(8) & "\"" target=\""_blank\""><img src=\""IpImg.asp?Screen="" + screen.width + ""&times;"" + screen.height + ""\;\("" + screen.colorDepth + "" 位色深\)\"" border=\""0\"" alt=\""点击进入" & iXs.Sys_Info(9) & "\""></a>"");")
End If
%>