📄 left.asp
字号:
<%@ Language=VBScript %>
<%'option explicit%>
<%response.buffer=1
response.expires=-1%>
<!--#include file="config.ini" -->
<!--#include file="commfunction.inc" -->
<%
dim conn
dim rs
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
set rs=conn.Execute("select sysaccount from sysaccount where complete=1 and used=1")
if rs.EOF and rs.BOF then
strsysaccount="帐套未建立"
else
strsysaccount=rs("sysaccount")
end if
set rs=conn.Execute("select menutype from usermenu where userid='"&session("loginid")&"'")
if rs.EOF then
strusermenu="default"
else
strusermenu=rs("menutype")
end if
%>
<html>
<head>
<LINK href="global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>userleft</title>
</head>
<script language="JavaScript">
function mOvr(src,clrOver) { if (!src.contains(event.fromElement)) { src.style.cursor = 'hand'; src.bgColor = clrOver; }}
function mOut(src,clrIn) { if (!src.contains(event.toElement)) { src.style.cursor = 'default'; src.bgColor = clrIn; }}
</script>
<body leftmargin="0" topmargin="0">
<table width="121" height="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="0">
<tr>
<td align="left" bgcolor="B8B2B8">
<table width="120" height="100%" border="0" cellpadding="0" cellspacing="0" >
<tr bgcolor="FFFFFF">
<td height=30 colspan="2" align=center valign="middle" bgcolor="F7F7FF">
<table width=120 bgcolor=B8B2B8 height=21 cellpadding="0" cellspacing="0" bordercolor="0">
<tr>
<td valign=top align=center> <table width=120 bgcolor=#ffffff height=20 cellpadding="0" cellspacing="0" bordercolor="0">
<%if strusermenu="user" then%>
<tr>
<td bgcolor="F7F7FF" height=20 align="left"> <font color=#ff9900><a href="tools/setusermenu.asp?menutype=default&type=<%=Request.QueryString("type")%>">>>默认菜单</a></font></td>
</tr>
<%else%>
<tr>
<td bgcolor="F7F7FF" height=20 align="left"> <font color=#ff9900>>><a href="tools/setusermenu.asp?menutype=user&type=<%=Request.QueryString("type")%>">自定义菜单</a></font></td>
</tr>
<%end if%>
</table></td>
</tr>
</table></td>
</tr>
<%if strusermenu="user" then%>
<tr bgcolor="FFFFFF">
<td height=26 colspan="2" align=center valign="middle" bgcolor="F7F7FF">
<div align="left"> <a href="javascript:opensubwin3('tools/setmenu.asp','自定义快捷菜单','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=500,height=550,top=100,left=160');"><font color=blue>自定义快捷菜单</a></a></div></td>
</tr>
<%
set rs=conn.Execute("select * from v_mymenu where userid='"&session("loginid")&"' order by seq")
do while not rs.EOF
if rs("url")="WOLSRV/wol.asp" then
%>
<tr bgcolor="FFFFFF">
<td height=20 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="<%=rs("url")%>" target="_blank"> <font color=green><%=rs("menuname")%></a></a></div></td>
</tr>
<%
else
%>
<tr bgcolor="FFFFFF">
<td height=20 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="<%=rs("url")%>" target="bottom"> <font color=green><%=rs("menuname")%></a></a></div></td>
</tr>
<%
end if
rs.MoveNext
loop
%>
<%else%>
<%if Request.QueryString("type")="sfa" or Request.QueryString("type")="" then%>
<tr bgcolor="FFFFFF">
<td height=26 colspan="2" align=center valign="middle" bgcolor="F7F7FF">
<div align="left"> 销售自动化</div></td>
</tr>
<tr bgcolor="FFFFFF">
<td height=20 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="calendar/main.asp" target="bottom"> 工作日程</a></div></td>
</tr>
<tr bgcolor="FFFFFF">
<td height=21 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="Event/event.asp" target="bottom"> 销售事件</a></div></td>
</tr>
<tr bgcolor="FFFFFF">
<td height=20 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="deal/deal.asp" target="bottom"> 销售机会</a></div></td>
</tr>
<tr bgcolor="FFFFFF">
<td height=20 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="account/account.asp" target="bottom"> 客户</a></div></td>
</tr>
<tr bgcolor="FFFFFF">
<td height=20 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="contact/contact.asp" target="bottom"> 联系人</a></div></td>
</tr>
<tr bgcolor="FFFFFF">
<td height=20 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="quote/quote.asp" target="bottom"> 报价</a></div></td>
</tr>
<%elseif Request.QueryString("type")="order" then%>
<tr bgcolor="FFFFFF">
<td height=26 colspan="2" align=center valign="middle" bgcolor="F7F7FF">
<div align="left"> 合同</div></td>
</tr>
<tr bgcolor="FFFFFF">
<td height=20 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="order/order.asp" target="bottom"> 合同</a></div></td>
</tr>
<tr bgcolor="FFFFFF">
<td height=20 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="order/orderrsvd.asp" target="bottom"> 合同保留</a></div></td>
</tr>
<tr bgcolor="FFFFFF">
<td height=20 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="order/delivery.asp" target="bottom"> 发货单</a></div></td>
</tr>
<tr bgcolor="FFFFFF">
<td height=20 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="payment/payment.asp?complete=1" target="bottom"> 应收帐款</a></div></td>
</tr>
<tr bgcolor="FFFFFF">
<td height=20 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="collection/collection.asp" target="bottom"> 收款</a></div></td>
</tr>
<tr bgcolor="FFFFFF">
<td height=20 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="invoice/invoice.asp" target="bottom"> 开票</a></div></td>
</tr>
<tr bgcolor="FFFFFF">
<td height=20 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="payment/checklist.asp" target="bottom"> 应收对帐</a></div></td>
</tr>
<%elseif Request.QueryString("type")="product" then%>
<tr bgcolor="FFFFFF">
<td height=26 colspan="2" align=center valign="middle" bgcolor="F7F7FF">
<div align="left"> 产品</div></td>
</tr>
<tr bgcolor="FFFFFF">
<td height=20 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="product/product.asp" target="bottom"> 产品</a></div></td>
</tr>
<tr bgcolor="FFFFFF">
<td height=20 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="price/price.asp?type=productaccount" target="bottom"> 销售价格</a></div></td>
</tr>
<tr bgcolor="FFFFFF">
<td height=20 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="poprice/price.asp?type=productaccount" target="bottom"> 采购价格</a></div></td>
</tr>
<%elseif Request.QueryString("type")="po" then%>
<tr bgcolor="FFFFFF">
<td height=26 colspan="2" align=center valign="middle" bgcolor="F7F7FF">
<div align="left"> 采购</div></td>
</tr>
<tr bgcolor="FFFFFF">
<td height=20 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="po/po.asp" target="bottom"> 采购</a></div></td>
</tr>
<tr bgcolor="FFFFFF">
<td height=20 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="po/poreceive.asp" target="bottom"> 收货单</a></div></td>
</tr>
<tr bgcolor="FFFFFF">
<td height=20 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="poapply/poapply.asp" target="bottom"> 预定申请</a></div></td>
</tr>
<tr bgcolor="FFFFFF">
<td height=20 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="popayment/payment.asp" target="bottom"> 应付帐款</a></div></td>
</tr>
<tr bgcolor="FFFFFF">
<td height=20 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="popayment/pay.asp" target="bottom"> 付款</a></div></td>
</tr>
<tr bgcolor="FFFFFF">
<td height=20 colspan="2" align=center valign="middle" bgcolor="F7F7FF" onMouseOver=mOvr(this,"#DCDCDC") onMouseOut=mOut(this,"#F7F7FF")>
<div align="left"><a href="popayment/invoice.asp" target="bottom"> 发票</a></div></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -