| 〖文章分类：电脑·手机·网络 / 网站设计·开发·优化〗〖阅读选项〗 |
|
本人后台登陆在XP系统下本地运行能正常显示验证码,没有问题,前几天重装系统为windows 2003简体中文企业版,在本地运行就不能正常显示验证码,但是传到网上的能正常显示,在网上也找到一些方法并不好使.请指教分不够可以在加
彩证验证码源码
<%
Option Explicit
Response.buffer=true
NumCode
Function NumCode()
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
On Error Resume Next
Dim zNum,i,j
Dim Ados,Ados1
Randomize timer
zNum = cint(8999*Rnd 1000)
Session("CheckCode") = zNum
Dim zimg(4),NStr
NStr=cstr(zNum)
For i=0 To 3
zimg(i)=cint(mid(NStr,i 1,1))
Next
Dim Pos
Set Ados=Server.CreateObject("Adodb.Stream")
Ados.Mode=3
Ados.Type=1
Ados.Open
Set Ados1=Server.CreateObject("Adodb.Stream")
Ados1.Mode=3
Ados1.Type=1
Ados1.Open
Ados.LoadFromFile(Server.mappath("../image/body.Fix"))
Ados1.write Ados.read(1280) 字串6
For i=0 To 3
Ados.Position=(9-zimg(i))*320
Ados1.Position=i*320
Ados1.write ados.read(320)
Next
Ados.LoadFromFile(Server.mappath("../image/head.fix"))
Pos=lenb(Ados.read())
Ados.Position=Pos
For i=0 To 9 Step 1
For j=0 To 3
Ados1.Position=i*32 j*320
Ados.Position=Pos 30*j i*120
Ados.write ados1.read(30)
Next
Next
Response.ContentType = "image/BMP"
Ados.Position=0
Response.BinaryWrite Ados.read()
Ados.Close:set Ados=nothing
Ados1.Close:set Ados1=nothing
If Err Then Session("CheckCode") = 9999
End Function
%>
如果生成BMP格式的，在sp2或server版系统上有限zi
新建一个 文本文档.
输入
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Security]
"BlockXBM"=dword:00000000
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Security\Digest]
"Flags"=hex:12,00,00,00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Security\DPA]
字串8
"Flags"=hex:1a,00,00,00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Security\MSN]
"Flags"=hex:0a,00,00,00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Security\Negotiate]
"Flags"=hex:18,00,00,00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Security\NTLM]
"Flags"=hex:08,00,00,00
然后修改文本后缀为***.reg
直接导入注册表 !然后运行看看!
网站——属性——主目录——配置——选项——启用父路径
试试吧，祝你好运哦！
|
| 文章作者：未知 更新日期：2007-09-28 |
| 〖文章浏览：〗〖打印文章〗〖发送文章〗 |
|
|
|
本 站 搜 索
文 章 阅 读 排 行
文 章 信 息