回 帖 发 新 帖 刷新版面

主题:【求助】登录无法显示问题

这是主页登录代码
<link href="css.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function chkform(theForm){
        if (theForm.loginusername.value == ""){
                alert("请输入您的用户名!");
                theForm.loginusername.focus();
                return (false);
        } 
    if (theForm.loginpassword.value == ""){
                alert("请输入您的密码!");
                theForm.loginpassword.focus();
                return (false);
        }    
        }
        -->
</script>
<table width="945" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="38" height="29">&nbsp;</td>
    <form action="login.asp" method="post" name="Userlogin"  onSubmit="return chkform(this)">
    <td width="509" height="29" align="left" class="font_gray">
    <%
    if session("persusername")<>"" and session("perspassword")<>"" and session("usertype")="pers" then
    response.Write("欢迎您&nbsp;<font color=red>"&session("persusername")&"</font>,<a href='pers_main.asp'>进入个人求职管理界面</a>,<a href='logout.asp'>退出登陆</a>")
    else if session("compusername")<>"" and session("comppassword")<>"" and session("usertype")="comp" then
    response.Write("欢迎您&nbsp;<font color=red>"&session("compusername")&"</font>,<a href='comp_main.asp'>进入企业招聘管理界面</a>,<a href='logout.asp'>退出登陆</a>")
    else if session("bbsusername")<>"" and session("bbspassword")<>"" and session("usertype")="bbs" then
    response.Write("欢迎您&nbsp;<font color=red>"&session("bbsusername")&"</font>,<a href='bbsreg.asp'>进入招聘求职注册选择界面</a>,<a href='logout.asp'>退出登陆</a>")
    else
    %>
    会员登陆:用户名
      <input name="loginusername" type="text" size="15" class="input"/>
      密码
      <input name="loginpassword" type="password" size="15" class="input"/>
      <input type="submit" name="Submit" value="登陆" />
      <%end if
      end if
      end if
      %>
      </td></form>
    
    
这是登录验证页面
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="inc/Conn.asp"-->
<!--#include file="inc/MD5.asp"-->
<%
Ip_address=Request.ServerVariables ("HTTP_X_FORWARDED_FOR")
     If Ip_address=""      Then
     Ip_address= Request.ServerVariables ("REMOTE_ADDR")
     end if
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
username=trim(request("loginusername"))
password=md5(trim(request("loginpassword")),16)
set rs=server.createobject("adodb.recordset")
sql="select * from dv_user where username='"&username&"' and UserPassword='"&password&"'"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
Response.write "<script language='javascript'>" & chr(13)
        Response.write "alert('密码或者用户名错误!');" & Chr(13)
        Response.write "history.go(-1);"&Chr(13)
        Response.write "</script>" & Chr(13)
        Response.End
else 
rs("lastlogin")=now()
rs("userlogins")=rs("userlogins")+1
rs("userlastip")=ip_address
rs.update
end if
usertype=rs("usertype")
rs.close
set rs=nothing
if usertype="pers" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from pers where username='"&username&"'"
rs.open sql,conn,1,1
perslevel=rs("perslevel")
rs.close
set rs=nothing
session("PersUserName")=username
session("PersPassword")=password
session("usertype")="pers"
session("PersLevel")=perslevel
session.timeout=60
response.Cookies("37job")("persusername")=username
response.Cookies("37job")("perspassword")=password
response.cookies("37job").Expires=date+1
response.Redirect(server_v1)
else if usertype="comp" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from comp where username='"&username&"'"
rs.open sql,conn,1,3
compvipend=rs("compvipend")
if rs("compvipend")=null then
rs("complevel")=0
else if now()<compvipend then
rs("complevel")=1
else
rs("complevel")=0
end if
end if
rs.update
complevel=rs("complevel")
rs.close
set rs=nothing
session("CompUsername")=username
session("CompPassword")=password
session("usertype")="comp"
session("CompLevel")=complevel
session.timeout=60
response.Cookies("37job")("compusername")=username
response.Cookies("37job")("comppassword")=password
response.cookies("37job").Expires=date+1
response.Redirect(server_v1)
else if rs("usertype")="bbs" then
session("BbsUserName")=username
session("bbspassword")=password
session("usertype")="bbs"
session.timeout=60
response.Redirect(server_v1)
end if 
end if
end if
%>


本来登录后应该在首页显示用户信息的!可是登录后确提示找不到网页~~
请各位大虾帮帮忙啊~~~
小弟感激不尽

回复列表 (共1个回复)

沙发

response.Redirect(server_v1)

这里的server_v1,直接写路径 如: index.asp

我来回复

您尚未登录,请登录后再回复。点此登录或注册