珩源工控论坛 - Powered by Discuz! Board

标题: [原创]asp+access留言本（带有详细说明） [打印本页]

作者: fghser 时间: 2007-5-30 19:11 标题: [原创]asp+access留言本（带有详细说明）

本asp留言本里面有详细说明！非常适合初学者。

191145.rar (48.6 KB)

附件: [asp+access留言本（带有详细说明）] 191145.rar (2010-10-10 09:09, 48.6 KB) / 下载次数 1342
http://bbs.hymcu.com/attachment.php?aid=7&k=dd88a58506e41b3d2eed2d5378fb408a&t=1713590877&sid=16Z13u

作者: 雨过天晴 时间: 2007-5-30 20:03

挺专业的!!

作者: fghser 时间: 2007-5-30 21:00 标题: re:谢谢

作者: Miner 时间: 2007-6-2 21:55 标题: re:我要学习学习

作者: xixi 时间: 2007-9-16 22:19

可以加个验证码和关键字过滤吗？那样会更好。

作者: fghser 时间: 2007-9-16 22:20

要实现asp中显示图片验证码，首先需要以下三个文件：

GetCode.asp (用于生成图片验证码)

head.fix (图片头)

body.fix (图片主体)

你也许会问，这些文件我从哪里可以得到呢？不用着急，这些文件在dvbbs7.0里面有。我也是在研究了dvbbs7.0里面的验证码之后才学会如何使用图片验证码的。

首先看getcode.asp文件，里面有几行是这样的：

Ados.LoadFromFile(Server.mappath("body.Fix"))
Ados1.write Ados.read(1280)
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("head.fix"))

看到body.fix和head.fix了吗？这里指的是他们与getcode.asp的相对位置。如果他们三个文件在一个目录里面，就按照以上的写法就可以了。如果不是，就需要写出他俩与getcode.asp的相对位置。比如：如果getcode.asp在根目录下，body.fix&head.fix在根目录下的test文件夹下，那么，上面的代码就需改为：

Ados.LoadFromFile(Server.mappath("test/body.Fix"))
Ados1.write Ados.read(1280)
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("test/head.fix"))

这样，才能保证图片显示的正常。

如何调用？

很简单，只需要这样：

<img src=getcode.asp border=0>

即可。

每当在调用getcode.asp之后，会自动生成一个session,这个session存储着和验证图片上显示的一样的四位数字。你只需把接收到的验证码和这个session比较，然后判断验证码是否输入正确。当然，最好像这样：

If Cstr(Trim(接收的变量名))=Cstr(Session("GetCode")) Then

Response.Write ("OK!")

Else

Response.Write ("No!")

End If

制作完成！！

作者: hehe 时间: 2007-9-16 22:23

请问有ASP.NET+ACCESS的留言本嘛？提供下啊

作者: fghser 时间: 2007-9-16 22:23 标题: re:不好意思，现在暂时没有.NET的版本。...

作者: wangjian9230 时间: 2007-9-17 18:32 标题: re:总版主你好!191145.rar这个文件...

作者: xiaochuanal 时间: 2007-12-2 22:52 标题: re:为什么下不了啊拜托楼主重新传下好么？...

作者: gg3022 时间: 2008-3-1 11:37

GetCode.asp这个文件在哪里啊？
我QQ是41461773
请教版主

作者: fghser 时间: 2008-3-1 17:52

文件如下：
<%
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("body.Fix"))
   Ados1.write Ados.read(1280)
   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("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
End Function
%>

作者: g95157 时间: 2008-3-26 08:58

下载了你的留言板，做的挺好的！
我自己昨天做了一个只有一个页面的放在服务器上运行了下，还真能留言，当时有点兴奋，有空去留点言！！

作者: fghser 时间: 2008-3-26 13:03

可以啊
可以发地址我吗？
大家一起探讨下。

作者: cainiao228 时间: 2008-4-10 20:04

GetCode.asp (用于生成图片验证码)

head.fix (图片头)

body.fix (图片主体)

这几个文件可以上传到上面来吗?我找不到!

作者: fghser 时间: 2008-4-12 08:33

083200.rar (429 Bytes)

附件: 083200.rar (2010-10-10 09:24, 429 Bytes) / 下载次数 1310
http://bbs.hymcu.com/attachment.php?aid=8&k=a15338f74d3922421d2ae5a54db32c80&t=1713590877&sid=16Z13u

作者: 左耳说爱我 时间: 2008-5-11 22:03 标题: re:[em05]好东西!

[em05]好东西!

作者: 梨 时间: 2008-6-28 14:47 标题: re:专业！！

作者: z3w6w5g9z5t 时间: 2010-11-18 20:05

好帖子，向楼主致敬！~

作者: z7m0n2y6s0e 时间: 2010-11-23 02:52

看来看去怎么都是水贴啊~~~

欢迎光临珩源工控论坛 (http://bbs.hymcu.com/)