登陆有关问题 急

登陆问题急!急!急!急!急!急!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