ipaddress.asp

淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序

<!--#include file="Conn.asp"-->
<!--#include file="Inc/Cl_ClsSystem.asp"-->
<!--#include file="Inc/Cl_ClsQQWry.asp"-->
<%
Dim IPStr, Wry, iType, CountryStr
IPStr = Trim(Request("ip"))
Set Wry = New Cls_QQWry
iType = Wry.QQWry(IPStr)
CountryStr = Wry.Country & Wry.LocalStr
Set Wry = Nothing
If Request("Action")="Js" Then
	Response.write("document.write('"&CountryStr&"');")
Else
	Response.write(CountryStr)
End If

'==================================================
'CreateLive CMS Version 3.1
'							Powered by Aspoo.Net
'
'邮箱: [e-mail]		[e-mail]
'ＱＱ: 3315263				596197794
'网站: www.aspoo.cn			www.aspoo.com
'论坛: bbs.aspoo.cn			bbs.aspoo.com
'
'Copyright (C) 2005 Aspoo.Net All Rights Reserved.
'==================================================
%>