| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 444 人关注过本帖
标题:请教,为什么我的这个验证程序总跳到quit.asp这个网页呢,请指教!1
只看楼主 加入收藏
COCO9221
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2007-11-12
收藏
 问题点数:0 回复次数:0 
请教,为什么我的这个验证程序总跳到quit.asp这个网页呢,请指教!1

请教,为什么我的这个验证程序总跳到quit.asp这个网页呢,请指教!1


<!--#INCLUDE FILE="connection.asp" -->
<%
if request("username")="" and request("password")="" then
Session("Ulogin")="no"
Response.Redirect("index.htm")
else

Uname=request("username")
Upass=request("password")
IP= Request.ServerVariables("REMOTE_ADDR")
nowtime=now()
sj=cstr(year(nowtime))+"-"+cstr(month(nowtime))+"-"+cstr(day(nowtime))+" "+cstr(hour(nowtime))+":"+right("0"+cstr(minute(nowtime)),2)+":"+right("0"+cstr(second(nowtime)),2)
shijian=cstr(year(nowtime))+right("0"+cstr(month(nowtime)),2)+right("0"+cstr(day(nowtime)),2)+right("0"+cstr(hour(nowtime)),2)+right("0"+cstr(minute(nowtime)),2)

Set rs= Server.CreateObject("ADODB.Recordset")
strSql="select * from user where 用户名='"&Uname&"' and 密码='"&Upass&"'"
rs.open strSql,Conn,1,3
if rs.eof then
Session("Ulogin")="no"
response.redirect "login.asp?id=error"

else
if rs("审核")=false then
response.redirect "login.asp?id=pass"
end if
'response.write rs("登陆时间")
'response.end
rs("状态")=true
rs("登陆IP")=IP
rs("Utime")=shijian
rs("times")=rs("times")+1

rs.update
Session("Uid")=rs("id")
Session("Uname")=rs("用户名")
Session("Rname")=rs("姓名")
Session("Upass")=rs("密码")
Session("Upart")=rs("部门")
Session("Urule")=rs("权限")
Session("tel")=rs("电话")
Session("Utime")=rs("Utime")
'Session("IP")=rs("登录IP")
'response.write Session("IP")
'response.end
Session("Ulogin")="yes"
Session("email")=rs("信箱")
session("mobile")=rs("mobile")
session("time")=rs("时间")

%>


<script language="JavaScript">

function tmt_fullscreen(url, scrollo) {
var larg_schermo = screen.availWidth - 10;
var altez_schermo = screen.availHeight - 75;
window.open(url, "", "width=" + larg_schermo + ",height=" + altez_schermo + ",top=0,left=0,menubar=yes,scrollbars=" + scrollo + "");
}
tmt_fullscreen("main.asp");

<%
end if
end if
%>
<% rs.Close %>
<% Conn.Close %>
<% set Conn = nothing
%>
</script>
<script>
document.location.href="quit.asp"
</script>

搜索更多相关主题的帖子: 网页 quit asp 指教 
2007-11-12 15:02
快速回复:请教,为什么我的这个验证程序总跳到quit.asp这个网页呢,请指教!1
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015631 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved