📄 user_dl.asp

📁 红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统
💻 ASP
字号:
<%Response.Expires=0%>
<%
on error resume next
response.expiresabsolute=dateadd("s",1,now())
if session("siteid")="" or isempty(session("siteid")) then
	session.abandon
	response.write("<script language='javascript'>")
	response.write("alert(""对不起，您已经过期，请重新打开快狗！"");")
	response.write("parent.close();")
	response.write("</script>")
	response.end
end if	
yhm=trim(request.form("yhm"))
mm=trim(request.form("mm"))
faceid=request("faceid")
if yhm<>"" and mm<>"" then
%>
<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<%
	set rs=server.createobject("adodb.recordset")
	rs.open "select * from userinfo where id="&session("siteid"),conn,1,1
	if rs.recordcount>0 then
		if rs("yhm")<>yhm then
			rs.close
			conn.close
			response.write("<script language='javascript'>")
			response.write("alert('用户名错误！');")
			response.write("history.go(-1);")
			response.write("</script>")
		else if rs("mm")<>mm then
			rs.close
			conn.close
			response.write("<script language='javascript'>")
			response.write("alert('密码错误！');")
			response.write("history.go(-1);")
			response.write("</script>")
		else
			session("manager")="1"
			sitelc=trim(rs("lc"))
			if sitelc="" then
				sitelc="名称为空"
			end if
			if find_online_manager(session.sessionID)=0 then
				call write_online_manager(rs("mc1"),rs("url1"),sitelc,faceid)
				if find_online_user(session("siteid"))=0 then
					session("username")=sitelc
					call write_online_user(session("siteid"),faceid)
				else
					application.lock
					onlineuser=application("onlineuser"&session("siteid"))
					dimsums=ubound(onlineuser)
					for i=0 to dimsums
						if instr(onlineuser(i),session.sessionID&"$")>0 then
							infostr=split(onlineuser(i),"$")
							infostr(1)=sitelc
							infostr(2)="1"
							onlineuser(i)=infostr(0)&"$"&infostr(1)&"$"&infostr(2)&"$"&infostr(3)&"$"&infostr(4)&"$"&infostr(5)
							exit for
						end if
					next
					application("onlineuser"&session("siteid"))=onlineuser
					application.unlock
				end if
				session("username")=sitelc
			end if
			response.write("<script language='javascript'>")
			Response.Write("parent.username.value="&chr(34)&sitelc&chr(34)&";")
			Response.Write("parent.refflag.value="&chr(34)&"1"&chr(34)&";")
			Response.Write("parent.pageflag.value="&chr(34)&"1"&chr(34)&";")
			Response.Write("document.location.href="&chr(34)&"disp_online_user.asp?sitenumber="&chr(34)&"+parent.sitenumber.value;")
			response.write("</script>")
			rs.close
			conn.close
			Response.end
		end if
	end if
end if
end if
%>
<html>
<head>
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="expires" content="web,26 Feb 1960 08:21:57 GMT">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>站长登录</title>
<link rel="stylesheet" type="text/css" href="style.css">
<script language="javascript">
function check_form(thisForm)
{
	if (thisForm.yhm.value=="")
		{
			alert("请输入用户名！");
			thisForm.yhm.focus();
			return(false);
		}
	if (thisForm.yhm.value.length>10)
		{
			alert("用户名太长！");
			thisForm.yhm.focus();
			return(false);
		}
	if (thisForm.mm.value=="")
		{
			alert("请输入密码！");
			thisForm.mm.focus();
			return(false);
		}
	if (thisForm.mm.value.length>16)
		{
			alert("密码太长！");
			thisForm.mm.focus();
			return(false);
		}
	return(true);	
}
</script>
</head>

<body leftmargin="1" topmargin="1" bgcolor="#8482c6">
<form method="post" action="user_dl.asp?faceid=<%=faceid%>" onsubmit="return check_form(this)">
  <br>
  <center>站长登录</center>
  <br>
  用户名：
  <br>
  <input name="yhm" size="13" maxlength="10" style="FONT-FAMILY: 宋体; FONT-SIZE: 9pt; HEIGHT: 20px">
  <br>
  密  码：
  <br>
  <input type="password" name="mm" size="13" maxlength="16" style="FONT-FAMILY: 宋体; FONT-SIZE: 9pt; HEIGHT: 20px">
  <br>
  <p align="right"><input type="submit" value="登录" name="B1" style="FONT-FAMILY: 宋体; FONT-SIZE: 9pt; HEIGHT: 20px">
</form></P>

</body>

</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -