官方论坛官方微博
由于GAE(Google App Engine)被墙,导致PJBlog过去发布在GAE的源码无法正常下载,我们已于2015年1月4日转移至论坛附件。如发现类似问题,敬请反馈。

[PJBlog^2017]用户聚居地 - ASP中文开源轻型云博客系统PJBlog5

 找回密码
 立即加入PJHOME

QQ登录

只需一步,快速开始

扫一扫,访问微社区

PJHOME-PJBlog官方论坛 你的关注和支持,是PJBlog不断成长的动力 指南 - 建议 - 展示 - 风云互联 - 合作

PJBlog3 经典版本(推荐) 最终版本:PJBlog3 V3.2.9.518(2011/11/01) 安装 - 升级 - 转换 - 模板 - 插件 - 反馈

PJBlog5 云博客(不推荐) 公测版本:PJBlog5 V1 公测版(2015/01/01) 发布 - 交流 - 文档 - 主题 - 插件 - 云平台

查看: 771|回复: 1

[程序建议] 验证码问题求解答

[复制链接]
发表于 2013-12-12 12:24 | 显示全部楼层 |阅读模式
原代码:
<!--#include file="commond.asp" -->
<!--#include file="header.asp" -->
<!--内容-->
<div id="Tbody">
<%
'==================================
'  用户登录页面
'    更新时间: 2006-5-29
'==================================
dim Referer_Url
If Request.QueryString("action") = "logout" Then
    logout(True)
    Referer_Url = Cstr(Request.ServerVariables("HTTP_REFERER"))
    If len(Referer_Url) < 8 Then Referer_Url= "http://" & Request.ServerVariables("HTTP_HOST")
%><br/><br/>
   <div style="text-align:center;">
    <div id="MsgContent" style="width:300px">
      <div id="MsgHead">退出系统</div>
      <div id="MsgBody">
                 <div class="MessageIcon"></div>
        <div class="MessageText"><b>退出登录成功</b><br/>
         <a href="default.asp">单击返回首页</a> | <a href="<%=Referer_Url%>">单击返回退出前页面</a>
         <br/>三秒后自动返回登录前页面</div>
         <meta http-equiv="refresh" content="3;url=<%=Referer_Url%>"/>
                </div>
          </div>
        </div>
<br/><br/>
<%
ElseIf Request.Form("action") = "login" Then
    Dim loginUser
    Referer_Url = Session(CookieName & "_Login_Referer_Url")
    If len(Referer_Url) < 8 Then Referer_Url = Cstr(Request.ServerVariables("HTTP_REFERER"))
    If len(Referer_Url) < 8 Then Referer_Url = "http://" & Request.ServerVariables("HTTP_HOST")
    loginUser = login(Request.Form("UserName"), Request.Form("Password"))
%><br/><br/>
   <div style="text-align:center;">
    <div id="MsgContent" style="width:300px">
      <div id="MsgHead"><%=loginUser(0)%></div>
      <div id="MsgBody">
           <div class="<%=loginUser(2)%>"></div>
       <div class="MessageText"><%=Replace(Replace(loginUser(1),"default.asp",Referer_Url),"返回主页</a>","返回登录前页</a> | <a href=""default.asp"">返回首页</a><br/>三秒后自动返回登录前页面")%></div>
          </div>
        </div>
  </div><br/><br/>
<%
Else
        Referer_Url = Cstr(Request.ServerVariables("HTTP_REFERER"))
    If len(Referer_Url) < 8 then Referer_Url= "http://" & Request.ServerVariables("HTTP_HOST")
    Session(CookieName & "_Login_Referer_Url") = Referer_Url
%><br/><br/>
   <div style="text-align:center;">
  <form name="checkUser" action="login.asp" method="post">
    <div id="MsgContent">
      <div id="MsgHead">用户登录</div>
      <div id="MsgBody">
          <input name="action" type="hidden" value="login"/>
           <label>用户名:<input name="username" type="text" size="18" class="userpass" maxlength="24"/></label><br/>
           <label>密 码:<input name="password" type="password" size="18" class="userpass"/></label><br/>
           <label>验证码:<input name="validate" type="text" size="4" class="userpass" maxlength="4"/> <span id="checkcode"><label style="cursor:pointer;">点击获取验证码</label></span> <span id="isok_checkcode"></span></label><br/>
             <label><input name="KeepLogin" type="checkbox" value="1"/>记住我的登录信息</label><br/>
           <input type="submit" value="登 陆" class="userbutton"/> <input type="button" value="用户注册" class="userbutton"/>
           </div>
        </div>
  </form>
  </div><br/><br/>
<%End if%>
</div>
<!--#include file="footer.asp" -->


修改以后:
<!--#include file="commond.asp" -->
<!--#include file="header.asp" -->
<!--内容-->
<div id="Tbody">
<%
'==================================
'  用户登录页面
'    更新时间: 2006-5-29
'==================================
dim Referer_Url
If Request.QueryString("action") = "logout" Then
    logout(True)
    Referer_Url = Cstr(Request.ServerVariables("HTTP_REFERER"))
    If len(Referer_Url) < 8 Then Referer_Url= "http://" & Request.ServerVariables("HTTP_HOST")
%><br/><br/>
   <div style="text-align:center;">
    <div id="MsgContent" style="width:300px">
      <div id="MsgHead">退出系统</div>
      <div id="MsgBody">
                 <div class="MessageIcon"></div>
        <div class="MessageText"><b>退出登录成功</b><br/>
         <a href="default.asp">单击返回首页</a> | <a href="<%=Referer_Url%>">单击返回退出前页面</a>
         <br/>三秒后自动返回登录前页面</div>
         <meta http-equiv="refresh" content="3;url=<%=Referer_Url%>"/>
                </div>
          </div>
        </div>
<br/><br/>
<%
ElseIf Request.Form("action") = "login" Then
    Dim loginUser
    Referer_Url = Session(CookieName & "_Login_Referer_Url")
    If len(Referer_Url) < 8 Then Referer_Url = Cstr(Request.ServerVariables("HTTP_REFERER"))
    If len(Referer_Url) < 8 Then Referer_Url = "http://" & Request.ServerVariables("HTTP_HOST")
    loginUser = login(Request.Form("UserName"), Request.Form("Password"))
%><br/><br/>
   <div style="text-align:center;">
    <div id="MsgContent" style="width:300px">
      <div id="MsgHead"><%=loginUser(0)%></div>
      <div id="MsgBody">
           <div class="<%=loginUser(2)%>"></div>
       <div class="MessageText"><%=Replace(Replace(loginUser(1),"default.asp",Referer_Url),"返回主页</a>","返回登录前页</a> | <a href=""default.asp"">返回首页</a><br/>三秒后自动返回登录前页面")%></div>
          </div>
        </div>
  </div><br/><br/>
<%
Else
        Referer_Url = Cstr(Request.ServerVariables("HTTP_REFERER"))
    If len(Referer_Url) < 8 then Referer_Url= "http://" & Request.ServerVariables("HTTP_HOST")
    Session(CookieName & "_Login_Referer_Url") = Referer_Url
%><br/><br/>
   <div style="text-align:center;">
  <form name="checkUser" action="login.asp" method="post">
    <div id="MsgContent">
      <div id="MsgHead">用户登录</div>
      <div id="MsgBody">
          <input name="action" type="hidden" value="login"/>
           <label>用户名:<input name="username" type="text" size="18" class="userpass" maxlength="24"/></label><br/>
           <label>密 码:<input name="password" type="password" size="18" class="userpass"/></label><br/>


           <input type="submit" value="登 陆" class="userbutton"/> <input type="button" value="用户注册" class="userbutton"/>
           </div>
        </div>
  </form>
  </div><br/><br/>
<%End if%>
</div>
<!--#include file="footer.asp" -->



出现的效果:


求解答

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即加入PJHOME

x
欢迎来到PJHOME社区,PJ有你更精彩!!
您需要登录后才可以回帖 登录 | 立即加入PJHOME

本版积分规则

关闭

PJHOME小黑板报上一条 /1 下一条

小黑屋|手机版|纯文字版|BBS.PJHOME.NET ( 粤ICP备12036560号-1  

GMT+8, 2018-7-19 06:25 , Processed in 0.294413 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表