制作显ip图片
来源:百度知道 编辑:UC知道 时间:2024/06/02 02:12:00
在这里先加50分
我要的是怎么让自己的图显ip、先说明我是要放到qq空间里的
有会的请说明、满意者分数要多少给多少
只要能解决我的问题、分数自己要。
asp制作显示IP图片
这是写的的ASP程序,你自己把图片和文字处填上就能用了
本程序采用动网论坛格式数据库,可从动网论坛的data目录找到 数据库文件为:IPaddress.MDB
'------------------------------------
'File: Ip.asp
<!--#include file="conn.asp"-->
<!--#include file="inc/config.asp"-->
<%Response.ContentType = "image/gif"
ConnDatabase
Dim tempip,myipnumeber,sql,rs1
Dim country,city
tempip=ReqIP
tempip = Split(tempip,".")
if Ubound(tempip)=3 then
For i=0 To Ubound(tempip)
tempip(i)=left(tempip(i),3)
if isnumeric(tempip(i)) then
tempip(i)=cint(tempip(i))
else
tempip(i)=0
end if
next
myipnumeber=tempip(0)*256*256*256+tempip(1)*256*256+tempip(2)*256+tempip(3)
End If
sql="select country,city from DV_Address where IP1<="&myipnumeber&" and IP2>="&myipnumeber
set