这是写的的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 rs1=conn.execute(sql)
if not rs1.eof Then
country = rs1(0)
city = rs1(1)
Else
country = "51Tiao.Com"
city = ""
End If
rs1.close : Set rs1 = Nothing
CloseDatabase
Dim LocalFile,TargetFile
LocalFile = Server.MapPath("Ip.gif")
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
If -2147221005=Err then
Response.write "没有这个组件,请安装!" '检查是否安装AspJpeg组件
Response.End()
End If
Jpeg.Open (LocalFile) '打开图片
If err.number then
Response.write"打开图片失败,请检查路径!"
Response.End()
End if
Dim aa
aa=Jpeg.Binary '将原始数据赋给aa
'=========加文字水印====http://www.devdao.com/=============
Jpeg.Canvas.Font.Color = &H000000 '水印文字颜色
Jpeg.Canvas.Font.Family = "宋体" '字体
Jpeg.Canvas.Font.Bold = False '是否加粗
Jpeg.Canvas.Font.Size = 12 '字体大小
Jpeg.Canvas.Font.ShadowColor = &Hffffff '阴影色彩
Jpeg.Canvas.Font.ShadowYOffset = 1
Jpeg.Canvas.Font.ShadowXOffset = 1
Jpeg.Canvas.Brush.Solid = False
Jpeg.Canvas.Font.Quality = 4 ' '输出质量
Jpeg.Canvas.PrintText 30,30,"-------------------------------------" '水印位置及文字
Jpeg.Canvas.PrintText 30,50," 你的IP: "& ReqIP
Jpeg.Canvas.PrintText 30,70," 你的位置: "&country&" "&city
Jpeg.Canvas.PrintText 30,90," 操作系统: "&ClientInfo(0)
Jpeg.Canvas.PrintText 30,110," 浏 览 器: "&RegExpFilter("Microsoft<sup>®</sup> ", ClientInfo(1), 0, "")
Jpeg.Canvas.PrintText 30,130,"-------------------------------------"
Jpeg.Canvas.PrintText 30,145,"个性签名来自风易在线 www.knowsky.com"
bb=Jpeg.Binary '将文字水印处理后的值赋给bb,这时,文字水印没有不透明度
'============调整文字透明度================
Set MyJpeg = Server.CreateObject("Persits.Jpeg")
MyJpeg.OpenBinary aa
Set Logo = Server.CreateObject("Persits.Jpeg")
Logo.OpenBinary bb
MyJpeg.DrawImage 0,0, Logo, 0.9 '0.3是透明度
cc=MyJpeg.Binary '将最终结果赋值给cc,这时也可以生成目标图片了
Response.BinaryWrite cc '将二进输出给浏览器
set aa=nothing
set bb=nothing
set cc=nothing
Jpeg.close : Set Jpeg = Nothing
MyJpeg.Close : Set MyJpeg = Nothing
Logo.Close : Set Logo = Nothing
%>
'--------------------------------------------------
'File: conn.asp
<%dim conn,dbpath,UserIP
sub ConnDatabase
On Error Resume next
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("IP.MDB")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库正在更新中,请稍后再试!"
Response.End
End If
End Sub
Sub CloseDatabase
Conn.close
Set Conn = Nothing
End Sub%>
'-------------------------------------------------
'File: config.asp
<%
Dim User_Agent
User_Agent = Request.ServerVariables("HTTP_USER_AGENT")
' ============================================
' 获取客户端配置
' ============================================
Public Function ClientInfo(sType)
If sType = 0 Then
If InStr(User_Agent, "Windows 98") Then
ClientInfo = "Windows 98"
ElseIf InStr(User_Agent, "Win 9x 4.90") Then
ClientInfo = "Windows ME"
ElseIf InStr(User_Agent, "Windows NT 5.0") Then
ClientInfo = "Windows 2000"
ElseIf InStr(User_Agent, "Windows NT 5.1") Then
ClientInfo = "Windows XP"
ElseIf InStr(User_Agent, "Windows NT 5.2") Then
ClientInfo = "Windows 2003"
ElseIf InStr(User_Agent, "Windows NT") Then
ClientInfo = "Windows NT"
ElseIf InStr(User_Agent, "unix") or InStr(User_Agent, "Linux") or InStr(User_Agent, "SunOS") or InStr(User_Agent, "BSD") Then
ClientInfo = "Unix & Linux"
Else
ClientInfo = "Other"
End If
ElseIf sType = 1 Then
If InStr(User_Agent, "MSIE 7") Then
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 7.0"
ElseIf InStr(User_Agent, "MSIE 6") Then
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 6.0"
ElseIf InStr(User_Agent, "MSIE 5") Then
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 5.0"
ElseIf InStr(User_Agent, "MSIE 4") Then
ClientInfo = "Microsoft<sup>®</sup> Internet Explorer 4.0"
ElseIf InStr(User_Agent, "Netscape") Then
ClientInfo = "Netscape<sup>®</sup>"
ElseIf InStr(User_Agent, "Opera") Then
ClientInfo = "Opera<sup>®</sup>"
Else
ClientInfo = "Other"
End If
End If
End Function
' ============================================
' 按照指定的正则表达式替换字符
' ============================================
Public Function RegExpFilter(Patrn, Str, sType, ReplaceWith)
Dim RegEx
Set RegEx = New RegExp
If sType = 1 Then
RegEx.Global = True
Else
RegEx.Global = False
End If
RegEx.Pattern = Patrn
RegEx.IgnoreCase = True
RegExpFilter = RegEx.Replace(Str, ReplaceWith)
End Function
Public Function ReqIP()
ReqIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If ReqIP = "" or IsNull(ReqIP) Then ReqIP = Request.ServerVariables("REMOTE_ADDR")
End Function
%>
分享到:
相关推荐
13:系统设置,包括[本本名字][站长名字][联系方式(QQ,Email)][默认使用的显示模式][留言本模式下显示的条数][论坛模式下显示的条数][后台管理显示的条数][上传图片的大小限制]; 14:留言人的QQ、Email、主页、...
页面显示计数和IP防刷新计数两种计数模式。 3.Script脚本方式调用计数器代码。 4.共5种图片样式任您选择使用,并且可以方便地增加计数器图片样式。 5.稳定性、安全性、速度上表现都很优秀,功能齐全,代码集成...
本程序单用户本收集于网络。本人只是针对程序进行部分更进 主要更新: 1.增加检查IE7浏览器功能,并显示 ...'您制作的IP签名图片必须是8位BMP格式 '图片宽度最好大一点,因为有些IP定位的地址会很长
如何在ASP.NET中获得客户端IP地址 181.如何取得一定范围内的随机数 182.如何取得文件的扩展名示例一 182.如何取得文件的扩展名示例二 183.如何把字符串型数据转换为整型 184.如何取得当前系统...
阅速CMS系统,产品代号为Aspxadmin CMS(以下简称Aspxadmin CMS),诞生于2023年,是asp.net技术中更为强大的内容管理系统。本系统基于B/S结构和MVC架构创建,传承53BK数字报刊系统优秀安全基因。它能快速搭建新闻...
180.如何在ASP.NET中获得客户端IP地址 181.如何取得一定范围内的随机数 182.如何取得文件的扩展名示例一 182.如何取得文件的扩展名示例二 183.如何把字符串型数据转换为整型 184.如何取得当前系统时间 185....
仿世纪佳缘婚介交友系统5.3 ASP+SQL Nslove5使用手册 一、运行环境: 1、服务器要求:windows2000及更高系统版本,IIS5+以上! 2、组件要求:Jmail邮件组件、aspjpeg水印组件、上传组件(aspupload组件)、FSO...
3.计数器的图片制作的PhtoShop和Flash源文件放在QQCF_Pic目录里,你可以修改成你自己的图片,当然也可以自己做啦。 4.如果忘记密码请打开数据库修改,把Password字段的对应值修改为254a978baaa071ad,这样密码就变为...
19.3 用ASP.NET 3.5制作PDF格式化工具 242 19.3.1 创建文本型PDF文档 243 19.3.2 在PDF中添加导航链接 244 19.3.3 在PDF中添加页眉页脚 245 19.3.4 在PDF中插入图片 247 19.4 小结 248 第20章 留言板...
<br>6、可开关的图片自动缩小,及图片随鼠标滚轮缩放功能。 <br>7、敏感字出现到系统设定的次数,日志会自动转为未审核。 <br>8、底部页面刷新次数,执行时间开关选项 <br>9、增加了一些调用标签,增强...
相册管理:可分类查看照片、修改照片、批量推荐、删除照片等。相册分类。 服务项目:管理、添加、删除 团队管理:管理、分类、添加、删除! 服务流程:管理、添加、删除 产品管理:产品共有二级分类。产品略缩图、...
2.页面显示计数和IP防刷新计数两种计数模式。 3.Script脚本方式调用计数器代码。 4.共5种图片样式任您选择使用,并且可以方便地增加计数器图片样式。 5.稳定性、安全性、速度上表现都很优秀,功能齐全,代码集成...
在那年的圣诞假期,伯纳斯-李制作了要一个网络工作所必须的所有工具:第一个万维网浏览器(同时也是编辑器)和第一个网页服务器。 1991年8月6日,他在alt.hypertext新闻组上贴了万维网项目简介的文章。这一天也...
57.管理员可自行制作文件下载详细信息页,放置各种广告代码。 58.完善的等级防盗链及流量控制功能。 59.支持大文件、多文件、断点续传、进度显示上传。 60.支持直接下载其它网站文件至空间,带详细进度显示功能。 61...
·上传jpg图片时可提取元数据(Exif,数据相机照片的拍摄参数) ·用户整合接口,可实现跨站会员注册、修改、登陆、退出、删除、取资料 ·按web标准规范代码,html编辑器支持Xhtml ·网站调查功能 ·广告管理系统,...
1、在进行网页制作时,可以预留出广告的大类位置,比如首页最上部,中间右侧或者网页最下部等等。然后在广告管理中分别添加大类。 2、在每个大类中还可以细分若干广告位,比如中间右侧第1、2、3广告位,然后在...
实例298 在ASP中利用Word自动打印指定格式的会议记录 470 实例299 在PHP中调用Word自动打印指定格式的会议记录 472 11.3 利用Excel打印报表 474 实例300 将Web页面中的数据导出到Excel 474 实例301 将Web页面中的...
57.管理员可自行制作文件下载详细信息页,放置各种广告代码。 58.完善的等级防盗链及流量控制功能。 59.支持大文件、多文件、断点续传、进度显示上传。 60.支持直接下载其它网站文件至空间,带详细进度显示功能。 61...