📄 default.asp

📁 企业办公简单管理系统,可以发布信息以及论坛
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!-- #include file="conn/logors.asp" -->
<!-- #include file="inc/chkinput.inc" -->
<html>
<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=site_title%></title>
</head>
<%=styletext%>

<DIV class=menuskin id=popmenu 
onmouseover="clearhidemenu();highlightmenu(event,'on')" style="Z-INDEX: 100" 
onmouseout="highlightmenu(event,'off');dynamichide(event)"></DIV><!--顶部表格-->

<SCRIPT language=JavaScript src="style/main.js"></SCRIPT>

<body>
<table width="750"  height="200" align="center" >
  <tr>
    <td class=TableTitle2 height="97">
	  <!-- #include file="sitehead.asp" -->
	</td>
  </tr>
  <tr>
    <td height="100" valign="top">


<% 
	set rslogin=createobject("adodb.recordset") 
	if request("action")="passcheck" then
		dim username
		dim userpass

		username=trim(request("username"))
		userpass=trim(request("userpass"))
		sql="select * from cci_user where username='" & username & "'"
		
		rslogin.Open sql,connObj,1,1
		if not rslogin.EOF then
			if rslogin("userpass")=mistake(userpass) or isnull(rslogin("userpass")) then
				session("userid")=rslogin("id")
				session("username")=username
				session("deptid")=rslogin("deptid")
				session("roleid")=rslogin("roleid")
				session("stationid")=rslogin("stationid")
				session("name")=rslogin("name")
				
				response.Cookies("kzh")("username")=username
				response.Cookies("kzh")("userid")=cstr(rslogin("id"))
				response.Cookies("kzh")("userpass")=cstr(userpass)
				
				rslogin.close
				
				if request.Form("CookieDate")=1  then
					Response.Cookies("kzh").Expires = Date +1
				elseif request.Form("CookieDate")=2 then
					Response.Cookies("kzh").Expires = Date +30
				elseif request.Form("CookieDate")=3 then
					Response.Cookies("kzh").Expires = Date +365
				end if

				response.redirect "defaultA.asp"
			else
				rslogin.close
				Response.Redirect("messageA.asp?msgurl=登陆&rediurl=default.asp&msginfo=登录不成功，请重新登陆1")
			end if
		else
			rslogin.close
			Response.Redirect("messageA.asp?msgurl=登陆&rediurl=default.asp&msginfo=登录不成功，请重新登陆2")
		end if
	elseif request.Cookies("kzh")("username")<>"" and request("login")<>"1" then
		sql="select * from cci_user where username='" & request.Cookies("kzh")("username") & "'"
		
		rslogin.Open sql,connObj,3,1
		if not rslogin.EOF then
			if rslogin("userpass")=mistake(request.Cookies("kzh")("userpass"))  then
				if session("userid")="" or session("userid")<>cstr(rslogin("id"))  then
					session("userid")=cstr(rslogin("id"))
				end if				

				session("userid")=rslogin("id")
				session("username")=username
				session("userpass")=cstr(userpass)
				session("deptid")=rslogin("deptid")
				session("roleid")=rslogin("roleid")
				session("name")=rslogin("name")
				session("stationid")=rslogin("stationid")
				
				rslogin.close
				response.redirect "defaultA.asp"
			else
				rslogin.close
				Response.Redirect("messageA.asp?msgurl=登陆&rediurl=default.asp&msginfo=登录不成功，请重新登陆")
			end if
		else
			rslogin.close
			Response.Redirect("messageA.asp?msgurl=登陆&rediurl=default.asp&msginfo=登录不成功，请重新登陆")
		end if
	end if
	
%>	

<% navigation_flag=1 %>
<!-- #include file="func_navigationbar.asp" -->
      <table width="100%" align=center cellpadding=1 cellspacing=1 class=tableborder1>
        <form action="default.asp" method=post>
          <INPUT name=action type=hidden value=passcheck>
          <tr> 
            <th valign=middle colspan=2 align=center height=25>请输入您的用户名、密码登录到<%=site_title%></th>
          </tr>
          <tr> 
            <td valign=middle class=tablebody1>请输入您的用户名 </td>
            <td valign=middle class=tablebody1><INPUT name=username type=text> 
              &nbsp; </td>
          </tr>
          <tr> 
            <td valign=middle class=tablebody1>请输入您的密码 </td>
            <td valign=middle class=tablebody1><INPUT name=userpass type=password > 
              &nbsp; <a href=message.asp?rediurl=default.asp&msgurl=%CA%D7%D2%B3&msginfo=%C3%DC%C2%EB%BB%D6%B8%B4%B9%A6%C4%DC%D4%DD%B2%BB%CC%E1%B9%A9!>忘记密码？</a> 
            </td>
          </tr>
          <tr> 
            <td class=tablebody1 valign=top width=30% ><b>Cookie 选项</b><BR>
              请选择你的 Cookie 保存时间，下次访问可以方便输入。 </td>
            <td valign=middle class=tablebody1> <input type=radio name=CookieDate value=0 checked>
              不保存，关闭浏览器就失效<br> <input type=radio name=CookieDate value=1>
              保存一天<br> <input type=radio name=CookieDate value=2>
              保存一月<br> <input type=radio name=CookieDate value=3>
              保存一年<br> </td>
          </tr>
          <tr> 
            <td class=tablebody2 valign=middle colspan=2 align=center> <input type=submit name=submit value="登 录"> 
            </td>
          </tr>
        </form>
      </table> </td>
  </tr>
  <tr>
    <td>
	  <!-- #include file="sitefloor.asp" -->    </td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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