[原创]asp+access留言本（带有详细说明） 留言本, access, 详细说明, asp, 原创

fghser

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

191145.rar (48.6 KB)

asp+access留言本（带有详细说明）
下载次数: 1642

2010-10-10 09:09

雨过天晴

挺专业的!!

fghser

Miner

xixi

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

fghser

要实现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

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

fghser

wangjian9230

xiaochuanal

gg3022

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

fghser

文件如下：
<%
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

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

fghser

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

cainiao228

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

head.fix (图片头)

body.fix (图片主体)

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

fghser

083200.rar (429 Bytes)

下载次数: 1588

2010-10-10 09:24

左耳说爱我

[em05]好东西!

梨

z3w6w5g9z5t

好帖子，向楼主致敬！~

z7m0n2y6s0e

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