返回列表 发帖

[原创]asp+access留言本(带有详细说明)

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

191145.rar (48.6 KB)
一心一意做事,一心一意做人,做站如做人。关于网站上的事务你可以直接联系我:13320088060。

挺专业的!!

TOP

re:谢谢

一心一意做事,一心一意做人,做站如做人。关于网站上的事务你可以直接联系我:13320088060。

TOP

re:我要学习学习

TOP

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

TOP

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

制作完成!!
一心一意做事,一心一意做人,做站如做人。关于网站上的事务你可以直接联系我:13320088060。

TOP

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

TOP

re:不好意思,现在暂时没有.NET的版本。...

一心一意做事,一心一意做人,做站如做人。关于网站上的事务你可以直接联系我:13320088060。

TOP

re:为什么下不了啊拜托楼主重新传下好么?...

TOP

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

TOP

文件如下:
<%
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
%>
一心一意做事,一心一意做人,做站如做人。关于网站上的事务你可以直接联系我:13320088060。

TOP

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

TOP

可以啊
可以发地址我吗?
大家一起探讨下。
一心一意做事,一心一意做人,做站如做人。关于网站上的事务你可以直接联系我:13320088060。

TOP

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

head.fix (图片头)

body.fix (图片主体)

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

TOP

083200.rar (429 Bytes)
一心一意做事,一心一意做人,做站如做人。关于网站上的事务你可以直接联系我:13320088060。

TOP

re:专业!!

TOP

好帖子,向楼主致敬!~

TOP

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

TOP

返回列表

最新关注 关闭


关于论坛注册,最新修改,请网友们注意

由于最近大量垃圾信息出现在我们的论坛,为了营造一个良好的氛围,目前论坛只开发邀请注册,你可以点击以下链接自动邀请注册(如果有人使用了点击下一个试一试) ...


查看
珩源工控论坛热诚欢迎您联系我们进行合作!

Powered by Discuz! 7.2© 2001-2009 Comsenz Inc.

珩源工控论坛 ( 赣ICP备14003898号-1) |论坛统计|WAP| 客服中心-www.hymcu.com
  

GMT+8, 2020-10-25 10:24, Processed in 0.049176 second(s), 6 queries, Gzip enabled.