主题:【求助】登录无法显示问题
这是主页登录代码
<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"> </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("欢迎您 <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("欢迎您 <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("欢迎您 <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
%>
本来登录后应该在首页显示用户信息的!可是登录后确提示找不到网页~~
请各位大虾帮帮忙啊~~~
小弟感激不尽
<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"> </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("欢迎您 <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("欢迎您 <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("欢迎您 <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
%>
本来登录后应该在首页显示用户信息的!可是登录后确提示找不到网页~~
请各位大虾帮帮忙啊~~~
小弟感激不尽