main.asp
来自「适用于网络/信息企业」· ASP 代码 · 共 110 行
ASP
110 行
<!--#include file="../INC/Conn.asp"-->
<%
if Session("Eboer_CRM_Employee_ID")="" then
response.redirect "../Default.asp"
end if
sql="select * from Employee Where Employee_ID = '"& Session("Eboer_CRM_Employee_ID") &"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
Employee_Flag = Rs("Employee_Flag")
End iF
Rs.Close
Set Rs = Nothing
Flags = ""
Employee_Flag_Name = ""
Flag_1 = 0
Flag_Str = len(Employee_Flag)/2
if Flag_Str > 0 Then
for i = 1 to Flag_Str
Set Rs_F = Conn.Execute("Select * From Flag Where Flag = '"& left(Employee_Flag,Flag_1+2) &"'")
If Not(Rs_F.eof and Rs_F.BOF) Then
Employee_Flag_Name = Employee_Flag_Name & Rs_F("Title") &" "
End IF
Rs_F.Close
Set Rs_F = Nothing
Flag_1 = Flag_1 + 2
Flags = Employee_Flag_Name
next
End iF
%>
<HTML>
<HEAD>
<TITLE>亿博尔客户关系管理(CRM)-用户控制面板</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META NAME="COPYRIGHT" CONTENT="CYBERTECH">
<SCRIPT language=javascript src="inc/frame.js"></SCRIPT>
<link href="Images/Admin.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
</HEAD>
<BODY style="MARGIN: 0px" onLoad="MM_preloadImages('Images/top/top_4_2.gif','Images/top/top_8_2.gif','Images/top/top_0_2.gif')" language=javascript scroll=no>
<TABLE width="100%" height="100%" border=0 cellPadding=0 cellSpacing=1 class="tableBorder">
<TBODY>
<TR align="center" bgcolor="#EBEBEB">
<TD height="25" colspan="3">
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left">用户ID：<%=Session("Eboer_CRM_Employee_ID")%> 职位：<%=Flags%></td>
<td align="right"><a href="./logout.asp">退出登录</a></td>
</tr>
</table>
</TR>
<TR>
<TD width="25%" align=middle vAlign=top noWrap bgcolor="ffffff" id=frmLeft name="frmLeft"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#B4B4B4">
<tr>
<td bgcolor="ffffff"><IFRAME frameBorder=0 id=BoardTitle name=left src="Menu.asp" style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 100%; Z-INDEX: 5"></IFRAME></td>
</tr>
</table>
<TD width="0" bgcolor="#F2F2F2" style="WIDTH: 1pt">
<TABLE height="" border=0 cellPadding=0 cellSpacing=0>
<TBODY><TR>
<TD Align=right onclick=SwitchLeftBar()><SPAN id=switchPoint></span><SPAN class=navPoint2 id=switchPoint2></SPAN><SPAN id=switchPoint4 ></SPAN></TBODY>
</TABLE><TABLE border=0 cellPadding=0 cellSpacing=0 height="100%">
<TBODY>
<TR>
<TD Align=center onclick=SwitchLeftBar() style="HEIGHT: 100%"><SPAN class=navPoint1 id=switchPoint><a TITLE="打开/关闭左侧菜单"><img src="Images/top/left.gif" width="8" height="129"></a></SPAN>
</TBODY>
</TABLE>
</TD>
<TD width="75%" valign="top" bgcolor="ffffff" style="WIDTH: 100%"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#B4B4B4">
<tr>
<td height="13" bgcolor="ffffff"><IFRAME frameBorder=0 id=FrmRight name=right src="Home.asp" style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 100%; Z-INDEX: 1"></IFRAME></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
</BODY></HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?