首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 网站开发 > ASP >

登陆有关问题 急

2012-02-11 
登陆问题急!急!急!急!急!急!login.asp的代码:htmlheadmetahttp-equiv Content-Type content tex

登陆问题 急!急!急!急!急!急!
login.asp的代码:

<html>
<head>
<meta   http-equiv= "Content-Type "   content= "text/html;   charset=gb2312 "   />
<title> login </title>
<link   href= "css/style.css "   rel= "stylesheet "   type= "text/css "   /> <style   type= "text/css ">
body   {
margin-top:   150px;
}
</style>
</head>

<body>
<form   name= "loginform "   action= "checkuser.asp "   method= "post ">
<table   width= "333 "   height= "216 "   border= "0 "   align= "center "   cellpadding= "0 "   cellspacing= "0 ">
    <tr>
        <td   background= "image/daohangbeijing.gif "> <table   width= "333 "   height= "261 "   border= "0 "   cellpadding= "0 "   cellspacing= "0 "   align= "center ">
            <tr>
                <td   height= "106 "> <table   width= "333 "   height= "106 "   border= "0 "   cellpadding= "0 "   cellspacing= "0 ">
                    <tr>
                        <td   height= "80 "> &nbsp; </td>
                    </tr>
                    <tr>
                        <td   height= "26 "   align= "center "   valign= "bottom "   class= "ziti-bai "> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;如果您是本站会员,请在此登陆! </td>
                    </tr>
                </table> </td>
            </tr>
            <tr>
                <td   height= "155 "   align= "center "   valign= "top "> <table   width= "200 "   height= "130 "   border= "0 "   cellpadding= "0 "   cellspacing= "0 ">
                        <tr>
                            <td   height= "110 "   colspan= "4 "   align= "right "   valign= "top "> <table   width= "160 "   height= "75 "   border= "0 "   cellpadding= "0 "   cellspacing= "0 ">
                                    <tr>
                                        <td   width= "50 "   height= "25 "   align= "right "   class= "ziti-bai "> 用户名: </td>


                                        <td   align= "left ">
                                            <label>
                                                <input   name= "username "   type= "text "   class= "input3 "   />
                                            </label>                                         </td>
                                        </tr>
                                    <tr>
                                        <td   width= "50 "   height= "25 "   align= "right "   class= "ziti-bai "> 密码: </td>
                                        <td   align= "left "> <input   name= "password "   type= "password "   class= "input3 "   /> </td>
</tr>
                                    <tr>
                                        <td   width= "50 "   height= "25 "   align= "right "   class= "ziti-bai "> 验证码: </td>
                                        <td   align= "left "> <input   name= "validatecode "   type= "text "   class= "input4 "   /> &nbsp; <img   src= "include/validatecode.asp ">   </td>
                                        </tr>
                            </table>
                                <table   width= "160 "   height= "35 "   border= "0 "   cellpadding= "0 "   cellspacing= "0 ">
                                    <tr>
                                        <td   width= "40 "   align= "center "> <table   width= "150 "   height= "30 "   border= "0 "   cellpadding= "0 "   cellspacing= "0 ">


                                            <tr>
                                                <td   align= "center "   class= "ziti "> <input   onClick= "return   check(); "   type= "image "   value= "botton "   src= "image/daohanglogin.gif "   width= "150 "   height= "30 "> </td>
                                            </tr>
                                        </table> </td>
                                    </tr>
                                </table> </td>
                        </tr>
                        <tr>
                            <td   width= "40 "   height= "20 "   align= "right "   class= "ziti "> &nbsp; </td>
                            <td   width= "60 "   align= "left "   valign= "bottom "   class= "ziti "> <a   href= "members/user_reg.asp "   class= "ziti-bai "> <font   color= "#FFFFFF "> 用户注册 </font> </a> </td>
                            <td   width= "90 "   align= "right "   valign= "bottom "   class= "ziti "> <a   href= "# "   class= "ziti-bai "> <font   color= "#FFFFFF "> 找回密码 </font> </a> </td>
                            <td   width= "10 "   align= "right "   class= "ziti "> &nbsp; </td>
                        </tr>
                </table> </td>
            </tr>
        </table> </td>
    </tr>
</table>
</form>
</body>
</html>
<script   LANGUAGE= "javascript ">
<!--
function   checkspace(checkstr)   {
    var   str   =   ' ';
    for(i   =   0;   i   <   checkstr.length;   i++)   {
        str   =   str   +   '   ';
    }
    return   (str   ==   checkstr);
}


function   check()
{
    if(checkspace(document.loginform.username.value))   {
document.loginform.username.focus();
        alert( "用户名不能为空! ");
return   false;
    }
    if(checkspace(document.loginform.password.value))   {
document.loginform.password.focus();
        alert( "密码不能为空! ");
return   false;
    }
        if(checkspace(document.loginform.validatecode.value))   {
document.loginform.validatecode.focus();
        alert( "验证码不能为空! ");
return   false;
    }
document.loginform.submit();
    }

    document.loginform.username.focus();
//-->
</script>  

checkuser.asp的代码

<!--#include   file   =   "include/conn.asp "-->
<!--#include   file   =   "include/md5.asp "-->
<!--#include   file   =   "include/config.asp "-->
<%
if   NOT   isempty(request( "LoginSubmit "))   then
dim   username,password,passcode

username   =   checkStr(trim(Request.Form( "username ")))
password   =   md5(checkStr(trim(Request.Form( "password "))))
passcode   =   checkStr(trim(Request.Form( "passcode ")))

if   username= " "   or   password= " "   then
call   MsgBox( "对不起,登录失败,请检查您的登录名和密码 ", "none ", "None ")
end   if

if   not   isnumeric(validatecode)   then
call   msgbox( "登录失败!验证码必须是数字,请正确填写! ", "none ", "none ")
end   if

if   Trim(Session( "wwwtoot.com_ValidateCode ")) <> Trim(Request.Form( "validatecode "))   then
call   msgbox( "登录失败!验证码错误! ", "back ", "none ")
end   if

set   rs=server.CreateObject( "adodb.recordset ")

SQL=   "select   *   from   [table_user]   where   username= ' "&username& " '   and   password= ' "&password& " '   "  
rs.open   sql,conn,1,3

if   not(rs.bof   and   rs.eof)   then
if   password=rs( "password ")   then
session( "userid ")   =   trim(rs( "userid "))
session( "username ")   =   trim(rs( "username "))
if   rs( "vip ")   =   "yes "     then
      rs( "lastvst ")=now()
      rs( "loginnum ")=rs( "loginnum ")+1
      rs.Update
      rs.Close
      set   rs=nothing
      response.redirect   "myinfo.asp "
else  
      rs( "lastvst ")=now()
      rs( "loginnum ")=rs( "loginnum ")+1
      rs.Update
      rs.Close
      set   rs=nothing
      response.redirect   "index.asp "
                End   if
     

else
call   MsgBox( "对不起,您的用户名或密码有误! ", "Back ", "None ")


end   if
else
call   MsgBox( "对不起,您的用户名或密码有误! ", "Back ", "None ")
end   if

end   if


%>

希望vip用户登陆到myinfo.asp     普通用户登陆到index.asp

这有什么问题啊   怎么我在数据库里添加了一个用户   在登陆叶面却无法登陆到index.asp呢

[解决办法]
看了,代码没问题,不过记得在if、else、end if的时候加上response.end如:

if username= " " or password= " " then
call MsgBox( "对不起,登录失败,请检查您的登录名和密码 ", "none ", "None ")
response.end
end if

if not isnumeric(validatecode) then
call msgbox( "登录失败!验证码必须是数字,请正确填写! ", "none ", "none ")
response.end
end if
.....后面的还有
如果问题还没得到解决,很有可能是数据库更新的问题,建议先测试数据库更新代码
rs.update

热点排行