主题:  认证码问题

llancelot
职务：普通成员
等级：1
金币：0.0
发贴：2
#12007/1/19 14:14:57
在网上找的验证码程序，但按照网上说的方法就是搞不定。

首先是个发布系统，必须会员才能访问这个页面：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<!-- #include file="adovbs.asp" -->
<!-- #include file="hecha.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>欢迎您！</title>
<link href="maincss.css" rel="stylesheet" type="text/css">
<script language="javascript" src="script.js"></script>
<% dim id
 id=session("hyid")
 %>
<style type="text/css">
<!--
.STYLE1 {color: #FF6633}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" onLoad="welcom();return true;">
<!-- #include file="top.htm" -->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td valign="top"> 
      <table width="100%" border="0">
        <tr> 
          <td><!--#include file="hymenu.asp" --></td>
        </tr>
        <tr> 
          <td valign="top">
<table width="778" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="182" height="198" valign="top" bgcolor="#F2F2F2"><!--#include file="userlogin.asp" --> </td>
                <td width="596" align="center" valign="top">
<TABLE style="FONT-SIZE: 9pt; FONT-FAMILY: 宋体" cellSpacing=0 
                  cellPadding=0 width=550 border=0>
                    <TBODY>
                      <TR> 
                        <TD><IMG src="images/you_tu01.gif" width="550" height="10"></TD>
                      </TR>
                      <TR> 
                        <TD vAlign=top background=images/you_tu02.gif 
                      height=450> <P align=center>
                          <form action="addgqxx.asp" method="post" enctype="multipart/form-data" name="gqform" id="gqform" >
                            <table width="100%" border="0" cellpadding="3" cellspacing="0" class="f12lin25">
                              <tr> 
                                <td colspan="4" align="center" class="f14"><font color="#FF0000"><strong>发布供求信息</strong></font></td>
                              </tr>
                              <tr> 
                                <td width="17%" align="center">发布类型：</td>
                                <td colspan="3"><input name="gqtype" type="radio" value="0" checked>
                                  供应 
                                  <input type="radio" name="gqtype" value="1">
                                  求购</td>
                              </tr>
                              <tr> 
                                <td align="center">联 系 人：</td>
                                <td colspan="3"><input name="contacter" type="text" id="contacter">
                                  <span class="STYLE1">请填写</span></td>
                              </tr>
                              <tr> 
                                <td align="center">联系地址：</td>
                                <td colspan="3"><input name="address" type="text" id="address" size="40"></td>
                              </tr>
                              <tr> 
                                <td align="center">联系电话：</td>
                                <td width="33%"><input name="telephone" type="text" id="telephone"></td>
                                <td width="12%">E-mail:</td>
                                <td width="38%"><input name="email" type="text" id="email"></td>
                              </tr>
                              <tr> 
                                <td align="center">保留时间：</td>
                                <td><select name="existdays" id="existdays">
                                    <option value="3天">3天</option>
                                    <option value="7天">7天</option>
                                    <option value="半月" selected>半月</option>
                                    <option value="一个月">一个月</option>
                                    <option value="三个月">三个月</option>
                                    <option value="一年">一年</option>
                                  </select></td>
                                <td>网址：</td>
                                <td><input name="weburl" type="text" id="weburl"></td>
                              </tr>
                              <tr> 
                                <td align="center">标&nbsp;&nbsp;题：</td>
                                <td colspan="3"><input name="title" type="text" id="title">
                                  <span class="STYLE1">(注意)请填写</span></td>
                              </tr>
                              <tr>
                                <td align="center" valign="top">上传图片：</td>
                                <td colspan="3"><input name="gqimg" type="file" id="gqimg"></td>
                              </tr>
                              <tr> 
                                <td align="center" valign="top">发布内容： 
                                  <input name="compid" type="hidden" id="compid" value=<%=id %> ></td>
                                <td colspan="3">（最多不得超过200个字）<br> <textarea name="content" cols="60" rows="10" id="content"></textarea></td>
                              </tr>
                              <tr> 
                                <td align="center">&nbsp;</td>
                                <td colspan="3"><table width="50%" border="0" cellspacing="0" cellpadding="3">
                                    <tr> 
                                      <td align="center"> <input name="Submit" type="button" id="Submit"  value=" 发 布 " onClick="gqformcheck();" ></td>
                                      <td><input name="reset" type="reset" id="reset" value="重新填写"> 
                                      </td>
                                    </tr>
                                  </table></td>
                              </tr>
                            </table>
                            </form>
                            </IFRAME>
                          </P></TD>
                      </TR>
                      <TR> 
                        <TD valign="top"><IMG src="images/you_tu03.gif" width="550" height="5"></TD>
                      </TR>
                      <TR> 
                        <TD 
                      style="FONT-SIZE: 9pt; LINE-HEIGHT: 13pt; FONT-FAMILY: 宋体; LETTER-SPACING: 0pt" 
                      height=5></TD>
                      </TR>
                    </TBODY>
                  </TABLE> </td>
              </tr>
            </table> </td>
        </tr>
      </table></td>
  </tr>
</table>
<!-- #include file="footer.htm" -->

</body>
</html>


然后是处理页面：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<!-- #include file="adovbs.asp" -->
<!-- #include file="uploadv2.asp" -->
<% dim rs,sql,upload,file,formName,formPath,iCount,newname
sql="select * from shipinsq where id is null"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3,adcmdtext
rs.addnew
set upload=new upload_5xsoft '建立上传对象
'--------将日期转化成文件名--------
function MakedownName()
	dim fname
	fname = now()
	fname = replace(fname,"-","")
	fname = replace(fname," ","") 
	fname = replace(fname,":","")
	fname = replace(fname,"PM","")
	fname = replace(fname,"AM","")
	fname = replace(fname,"上午","")
	fname = replace(fname,"下午","")
	fname = int(fname) + int((10-1+1)*Rnd + 1)
	MakedownName=fname
end function 
formPath="uploadimg/"
iCount=0
for each formName in upload.objFile
  set file=upload.file(formName)
  newname=MakedownName()&"."&mid(file.Filename,instrrev(file.Filename,".")+1 )
  if file.FileSize>0 then 
   
    file.SaveAs Server.mappath(formPath&newname)
    rs("gqimg")=formpath&newname
    iCount=iCount+1
  end if
next

rs("compid")=upload.Form("compid")
rs("gqtype")=upload.Form("gqtype")
rs("contacter")=upload.Form("contacter")
rs("address")=upload.Form("address")
rs("telephone")=upload.Form("telephone")
rs("email")=upload.Form("email")
rs("weburl")=upload.Form("weburl")
rs("title")=upload.Form("title")
rs("content")=upload.Form("content")
rs("postdate")=date()
rs("existdays")=upload.Form("existdays")

rs.update
rs.close
set rs=nothing
response.write "<script languaage=javascript>alert('发布成功!');location.href='mgrgqxx.asp';</script>"

 %>


验证码的程序就是包含head.fix和body.fix和getcode.asp那种比较常见的。

哪位老大指点一下。

注：服务器是租用的，不知道是不是那边也需要设置一下啊？



llancelot
职务：普通成员
等级：1
金币：0.0
发贴：2
#22007/1/19 14:19:18
ASP怎么添加验证码的解决方法


作者：chinamx 文章来源：网络 点击数：1137 更新时间：2006-5-17



　　1、下载文件

imgchk.rar:http://www.blueidea.com/articleimg/2005/08/2671/imgchk.rar

　　该压缩包为 imgchk 文件夹 ，其中有三个文件：validatecode.asp，validatebody.fix，validatehead.fix

　　主要即是为生成 验证码 服务的。

　　将解压文件夹直接释放在需要在某页添加验证码的同目录下，（比如 addnew.asp 需要添加验证码，该文件在 cnbruce 文件夹下，则将 imgchk 文件夹同时释放到 cnbruce 文件夹 中）

　　2、添加显示验证码和输入框

　　在需要添加验证码的页面中添加如下代码：

<input name='validatecode' type='text' size='5'> <img src='imgchk/validatecode.asp' align='absmiddle' border='0'>

　　3、记录接受页面处理

　　在步骤2中，一定会将记录提交到某个页面处理，那么在该处理页中添加如下代码：



If Trim(Request.Form("validatecode")=Empty Or Trim(Session("cnbruce.com_ValidateCode")<>Trim(Request.Form("validatecode") Then
response.write("请注意正确输入验证码"
response.end
end if


　　验证码原理：

　　在生成验证码图片的时候，同时生成了一个Session，其值就是验证码图片中的数字值。

　　同时，提供输入框让用户输入，提交输入值后，与已有的Session值进行比较，根据判断结果做相应判断。

　　如果需要修改Session的name，只有两个地方改动：

　　a：您下载的imgchk文件夹中的validatecode.asp，其中涉及到cnbruce.com的该成您的；

　　b：就是刚才的步骤3中Trim(Session("cnbruce.com_ValidateCode")<>Trim(Request.Form("validatecode") 中的cnbruce.com换成a所设定的。

　　另外===================================================
　　显示校验码的补丁（有些朋友显示不出验证码，这里看看）

　　用下面内容创建文件SP2.reg(用记事本就可以，保存时选“另存为”)

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Security]
"BlockXBM"=dword:00000000

　　双击导入注册表中，然后重启机器。