| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1443 人关注过本帖
标题:本地可以登陆,传到服务器上却说验证码错误!!!
只看楼主 加入收藏
acheng8
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2011-11-12
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:6 
本地可以登陆,传到服务器上却说验证码错误!!!
登陆页面:

<html><head><title>管理员登陆</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css.css" rel="stylesheet" type="text/css">
</head>
<body oncontextmenu=self.event.returnValue=false onselectstart="return false" leftmargin="0" topmargin="20" marginwidth="0" marginheight="0">
<TABLE WIDTH=420 BORDER=0 CELLPADDING=0 CELLSPACING=0 align=center>
<TR>
<TD><IMG SRC="../images/login_admin1.jpg" WIDTH=420 HEIGHT=36></TD>
</TR>
<TR>
<TD><IMG SRC="../images/login_admin2.jpg" WIDTH=420 HEIGHT=106></TD>
</TR>
<TR>


<TD background="../images/login_admin3.jpg" WIDTH=420 HEIGHT=137>
<form name="admininfo" method="post" action="chkadmin.asp" >
<table width="300" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td width="75%">管理员帐号:
<input class="wenbenkuang" name="admin" type="text" id="admin" size="20">
</td>
<td width="35%" align="center">
<input class="go-wenbenkuang" name="imageField" value="管理登陆" type="submit" >
</td>
</tr>
<tr>
<td>管理员密码:
<input class="wenbenkuang" name="password" type="password" id="password" size="20">
</td>
<td align="center">
<input class="go-wenbenkuang" onClick="ClearReset()" type=reset name="Clear" value="清除重来">
</td>
</tr>
<tr>
<td>程序验证码:
<input class=wenbenkuang name=verifycode type=text value="<%If GetCode=9999 Then Response.Write "9999"%>" maxLength=4 size=10>
<img src=GetCode.asp></td>
<td align="center">
<input class="go-wenbenkuang" onClick="window.location='index.asp'" type=button value="返回首页" name=Submit3></td>
</tr>
</table>
</form></TD>
</TR>
<TR>
<TD>
<IMG SRC="../images/login_admin4.jpg" WIDTH=420 HEIGHT=51></TD>
</TR>
</TABLE>
</body>
</html>

验证码页面:
<%
Option Explicit
Response.buffer=true
NumCode
Function NumCode()
    Response.Expires = -1
    Response.AddHeader "Pragma","no-cache"
    Response.AddHeader "cache-ctrol","no-cache"
    dim zNum,i,j
    dim Ados,Ados1
    Randomize timer
    zNum = cint(8999*Rnd+1000)
    Session("GetCode") = 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("images/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("images/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
%>

验证页面:
<!--#include file="conn.asp"-->            
<!--#include file="md5.asp"-->
<%dim admin,password,verifycode
admin=replace(trim(request("admin")),"'","")
password=md5(replace(trim(request("password")),"'",""))
verifycode=replace(trim(request("verifycode")),"'","")
if admin="" or password="" then
response.Write "<script LANGUAGE='javascript'>alert('您的管理ID或密码有误!');history.go(-1);</script>"
response.end
end if
if cstr(session("GetCode"))<>cstr(trim(request("verifycode"))) then
response.Write "<script LANGUAGE='javascript'>alert('请输入正确的验证码!');history.go(-1);</script>"
response.end
end if



set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_admin where admin='"&admin&"' and password='"&password&"' " ,conn,1,1
if not(rs.bof and rs.eof) then
if password=rs("password") then
session("shopv8admin")=trim(rs("admin"))
session("flag")=int(rs("flag"))
session.Timeout=20
rs.Close
set rs=nothing
response.Redirect "index.asp"
else
response.write "<script LANGUAGE='javascript'>alert('对不起,登陆失败!');history.go(-1);</script>"
end if
else
response.write "<script LANGUAGE='javascript'>alert('对不起,登陆失败!');history.go(-1);</script>"
end if
%>
搜索更多相关主题的帖子: 420 服务器 验证码 content return 
2011-11-12 10:24
acheng8
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2011-11-12
收藏
得分:0 
求救啊!!!
2011-11-12 10:26
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:14 
验证码页面前加一句
Session.Timeout=30强制Session的过期时间
2011-11-15 12:36
acheng8
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2011-11-12
收藏
得分:0 
回复 3楼 yms123
还不行,以前是可以的,知识更新过后就不行了,我也没修改够任何东西!!!继续求救!!!
2011-11-16 14:35
acheng8
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2011-11-12
收藏
得分:0 
解决了!!是服务器问题,服务器里有两个隐藏文件,把它们删除就可以了
2011-12-07 11:12
柏歌
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2012-1-7
收藏
得分:0 
是哪两个文件?分享一下好么?谢谢了,我今天也遇到了这种情况,搜索了一下午也买找到解决办法。。。
2012-01-07 21:30
柏歌
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2012-1-7
收藏
得分:0 
昏倒了,恢复系统都不行,acheng8,救救我吧~!
2012-01-08 00:54
快速回复:本地可以登陆,传到服务器上却说验证码错误!!!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.034593 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved