asp把字符转换为图片显示

有时候我们不希望某些重要的信息被搜索引擎抓取，或者被别人采集到，这时候把这部分的文字以图片形式显示是不错的选择，有效防止被抓取到。例如把"www.rsnet668.com"这串字符转变成图片显示您只需带入函数即可，不生成图片文件，完整代码如下：

Dim zNum,CnText,NewString,urlget
urlget=Request.ServerVariables("HTTP_REFERER")
if urlget="" then
Response.Write ("")
Response.End
End IF
NewString="www.rsnet668.com"
Randomize timer
zNum = cint(9*Rnd)
CnText=""
'for i=1 to 4
'CnText=CnText&Mid(newString,Int(Rnd()*498)+1,1)
CnText=zw'CnText&Mid(newString,Int(Rnd()*498)+1,1)
'next
'TargetFile="GetCode/"&zNum&".gif"
TargetFile="GetCode/hao.gif"
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
If Err.Number=-2147221005 then
Response.write "没有这个组件，请安装!"'
Response.End()
End If
Jpeg.Open Server.MapPath(TargetFile)
If err.number then
Response.write"打开图片失败,请检查路径！"
Response.End()
End if
Dim TempA
Dim TempB
Dim TempC
TempA=Jpeg.Binary
'==========================

Jpeg.Canvas.Font.Family = "宋体"
Jpeg.Canvas.Font.Bold = false
Jpeg.Canvas.Font.Size = 14
Jpeg.Canvas.Font.ShadowColor = &H000000
Jpeg.Canvas.Font.ShadowYOffset = 0
Jpeg.Canvas.Font.ShadowXOffset = 0
Jpeg.Canvas.Brush.Solid = True
Jpeg.Canvas.Font.Quality = 0
Jpeg.Canvas.PrintText 4,6,CnText
TempB=Jpeg.Binary

Set MyJpeg = Server.CreateObject("Persits.Jpeg")
MyJpeg.OpenBinary TempA
Set Logo = Server.CreateObject("Persits.Jpeg")
Logo.OpenBinary TempB
MyJpeg.DrawImage 0,0, Logo, 0.8
TempC=MyJpeg.Binary
response.BinaryWrite TempC
set TempA=nothing
set TempB=nothing
set TempC=nothing
Jpeg.close
MyJpeg.Close
Logo.Close

转自：http://shengbios.blog.163.com/blog/static/5049034201105521237/