⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 employ.asp

📁 WEB客户管理系统+小型OA系统。一个不错的程序
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% Option Explicit %>
<!--#include file="conn/conn.asp" -->
<!--#include file="setup.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><% = siteTitle %></title>
<link href="cn001.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function chkLogin()
{
    var strUser = document.elogin.item1.value;
	var strPws = document.elogin.item2.value;
	if(strUser == ""){
	    alert("请输入账号。");
		document.elogin.item1.focus();
		return false;
	}
	if(strPws == ""){
        alert("请输入密码。");
		document.elogin.item2.focus();
		return false;
	}
	window.setTimeout("cleanPws()",1000);
}

function cleanPws()
{
    document.all.item2.value = "";
}
-->
</script>
</head>

<body>
<!--#include file="head.asp" -->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td valign="top">当前位置:<a href="default.asp">温州中网</a> &gt;&gt; 员工中心 
      <hr align="center" size="1" noshade color="#E9F3FE">
      <table width="360" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#E9F3FE">
        <form name="elogin" action="http://www.china-net.com/crm02/login.asp?action=login" method="post" onSubmit="return chkLogin();" target="_blank">
		<tr align="center"> 
          <td height="22" colspan="2" class="titletd">员 工 登 录</td>
        </tr>
        <tr> 
          <td width="80" align="right">账号:</td>
          <td height="24" bgcolor="#FFFFFF">
<input name="item1" type="text" id="item1" size="24" maxlength="12"></td>
        </tr>
        <tr> 
          <td width="80" align="right">密码:</td>
          <td height="24" bgcolor="#FFFFFF">
<input name="item2" type="password" id="item2" size="24" maxlength="12"></td>
        </tr>
        <tr> 
          <td width="80" align="right">&nbsp;</td>
          <td height="24" bgcolor="#FFFFFF">
<input name="imageField53" type="image" src="images/login.gif" width="36" height="20" border="0"></td>
        </tr>
		</form>
      </table>
      <br>
      <br>
      <table width="360" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td><p>注意事项:<br>
              1.账号、密码由管理员通过邮件提供;<br>
              2.忘记密码,请直接和管理员联系。</p>
            </td>
        </tr>
      </table> </td>
    <td width="17" align="center" valign="top" background="images/dot17x4.gif">&nbsp;</td>
    <td width="161" align="center" valign="top" bgcolor="#E9F3Fe"> 
      <%
If Session("userName") = "" Or Session("userPass") <> True Then
    Session("thisPage") = Request.ServerVariables("HTTP_REFERER")
%>
      <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#E9F3FE">
        <form name="login" action="login.asp?action=login" method="post">
          <tr> 
            <td height="20" align="center" class="titletd">用 户 登 录</td>
          </tr>
          <tr> 
            <td height="24" align="center">账号: 
              <input name="userName" type="text" id="userName" size="12" maxlength="16"> 
            </td>
          </tr>
          <tr> 
            <td height="24" align="center">密码: 
              <input name="userPasswords" type="password" id="pws4" size="12" maxlength="16"></td>
          </tr>
          <tr> 
            <td height="24" align="center"> <input name="imageField5" type="image" src="images/login.gif" width="36" height="20" border="0"></td>
          </tr>
          <tr> 
            <td height="24" align="center"><a href="reg.asp" class="redem">注册</a> 
              找回密码</td>
          </tr>
        </form>
      </table>
      <%
Else
%>
      <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#E9F3FE">
        <form name="isLogin" action="login.asp" method="post">
          <tr> 
            <td height="20" align="center" class="titletd">用 户 信 息</td>
          </tr>
          <tr> 
            <td height="24" align="center" class="redem">
              <% = Session("userName") %>
            </td>
          </tr>
          <tr> 
            <td height="24" align="center">您已经登录</td>
          </tr>
          <tr> 
            <td height="24" align="center"> <input name="imageField52" type="image" src="images/logout.gif" width="36" height="20" border="0" onClick="location.href='login.asp?action=logout';"></td>
          </tr>
          <tr> 
            <td height="24" align="center"><a href="reg.asp?action=edit&userId=<% = Session("userId") %>">修改资料</a></td>
          </tr>
        </form>
      </table>
      <%
End If
%>
      <table width="100%" height="10" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td bgcolor="#FFFFFF"><img src="images/null5.gif" width="5" height="5"></td>
        </tr>
      </table> 
      <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#E9F3FE">
        <tr> 
          <td height="20" align="center" class="titletd">客 服 中 心</td>
        </tr>
        <tr> 
          <td valign="top" class="mar5td"> 
            <%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select Top 10 * From ser Order By serId Desc",conn,3,1
Do While Not rs.BOF And Not rs.EOF
    Response.Write("<span class='raquo'>&raquo;</span>&nbsp;<a href='services.asp?serId=" & rs("serId") & "' target='_blank'>" & rs("serTitle") & "</a><br>")
	rs.MoveNext
Loop
rs.Close
Set rs = Nothing
%>
          </td>
        </tr>
        <tr> 
          <td align="right"><a href="services.asp"><span class="raquo">&raquo;</span>&nbsp;更多服务...</a></td>
        </tr>
      </table>
      <table width="100%" height="10" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td bgcolor="#FFFFFF"><img src="images/null5.gif" width="5" height="5"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#E9F3FE">
        <tr> 
          <td height="20" align="center" class="titletd">推 荐 客 户</td>
        </tr>
        <tr> 
          <td valign="top" class="mar5td"> 
            <%
Call showLinks("推荐客户",5)
%>
          </td>
        </tr>
        <tr> 
          <td align="right"><a href="clients.asp" target="_blank"><span class="raquo">&raquo;</span>&nbsp;更多客户...</a></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center" valign="top"><hr align="center" size="2" noshade color="#E9F3FE"> 
      <a href="about_us.asp"> 
      <%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From menu Where menuLocal = '1' Order By menuList Asc",conn,3,1
Do While Not rs.BOF And Not rs.EOF
    Response.Write("| <a href='menu.asp?menuId=" & rs("menuId") & "' target='_blank'>" & rs("menuName") & "</a> ")
	rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Response.Write("|")
%>
      <br>
      Copyright &copy;2003 温州市中网计算机技术服务有限公司<br>
      地址:浙江省温州市车站大道金河大厦1804 邮编:325000<br>
      电话:0577-88658715 88658716 88658717 传真:0577-88658719<br>
      瑞安业务部:瑞安市万松路41号四楼 电话:0577-65896579</a><br>
      乐清业务部:乐清柳市翔金花园402室 电话:0577-62733221</td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

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