📄 hx_function.bak.asp
字号:
else
ii=1
do until Nrs.eof
response.Write "<tr><td background='hximages/line.gif' height='20'> "&ii&"、<a href='javascript:' title='"&Nrs("WS_NotifyTitle")&"' onClick=""openwin(630,490,'HXPersonalOffice/ReadNotify.asp?WS_NNID="&Nrs("WS_NNID")&"')"">"&left(Nrs("WS_NotifyTitle"),20)&"</a></td></tr>"
ii=ii+1
Nrs.movenext
loop
end if
response.Write "<tr><td height='20' align='right'><a href='HXPersonalOffice/Notify.asp'><font color=red>全部>></font></a> </td></tr></table></td></tr><tr><td width='100%' bgcolor='FFFBE8'><table width='100%' cellspacing cellpadding><tr> <td height='23' background='hximages\titlebg.gif'> <img src='hximages/erp.gif' align='absmiddle'> <font color=FFFBE8>待办公文</font></td></tr><tr> <td width='100%' align=center><table width='100%' border='0' cellspacing='1' cellpadding='3' bgcolor=FFFBE8><form method='post' action='HXWORKFLOW/WorkFlowWaitList.asp?action=del&page="&page&"' name='form1'><tr bgcolor='#BF9B73' class='td4'><td width='20' align=center><input type='checkbox' name='checkall' value='checkbox' onClick='chkall(this)' class='radio' style='background-color:BF9B73;'></td><td width='117' align='center'>办文编号</td><td width='114' align='center'>标 题</td><td width='63' align='center'>公文类别 </td><td width='117' align='center'>正 文 </td><td width='68' align='center'>拟办意见</td><td width='52' align='center'>保密级别</td><td width='35' align='center'>附件</td><td width='62' align='center'>收文日期</td><td width='48' align='center'>状态</td><td width='61' align='center'>发文人</td></tr>"
if Waitrs.recordcount<=0 then
response.Write "<tr><td colspan=11 background='hximages/line.gif' height=25 align=center>暂时还没有待办公文！</td></tr>"
else
do while not Waitrs.EOF
response.Write "<tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'> <td width='28' align=center><input type='checkbox' name='MAID' value='"&Waitrs("WS_FCID")&"' class='radio' style='background-color:FFFBE8;'></td><td width='140'>"&Waitrs("WS_WorkFlowNumber")&"</td><td width='156'>"&Waitrs("WS_WorkFlowTitle")&"</td><td width='61' align=center>"&WS_S.HX_OutWorkFlowType(Waitrs("WS_WorkFlowFlowType"))&"</td><td width='145' title='"&Waitrs("WS_WorkFlowContent")&"'>"&left(Waitrs("WS_WorkFlowContent"),10)&"</td><td width='83' title='"&Waitrs("WS_WorkFlowBrief")&"'>"&left(Waitrs("WS_WorkFlowBrief"),10)&"</td><td width='61' align=center>"&Waitrs("WS_WorkFlowGrade")&"</td><td width='33' align=center>"
if Waitrs("WS_WorkFlowAnnex")<>"" then response.write "<a href='"&Waitrs("WS_WorkFlowAnnex")&"' target='_blank'><img src='../HXIMAGES/Message/sign.gif' border=0></a>"
response.Write "</td><td width='80' align=center>"&Waitrs("WS_WorkFlowDate")&"</td><td width='55' align=center>"
if Waitrs("WS_WorkFlowQT")=0 then response.Write "<font color=red>未签收</font>" else response.Write "<font color=blue title='签收日期："&Waitrs("WS_WorkFlowQTDate")&"'>已签收</font>"
response.write "</td><td width='67' align=center>"
Call WS_S.HX_OutUserInfo(Waitrs("WS_WorkFlowMan")):response.Write OutName
response.Write "</td></tr>"
Waitrs.movenext
loop
response.Write "<tr bgcolor='#BF9B73' class='td4'><td colspan='15' height='30'> <input type='checkbox' name='checkall' value='checkbox' onClick='chkall(this)' id='checkall' class='radio' style='background-color:BF9B73;'><label for='checkall'>全选</label> 将选中全部 <input name='del' type='submit' value='签收' style='font-size: 12px;color:#FFFBE8;border: 1px solid #000000;background-color: #BF9B73; '> </tr>"
end if
response.Write "</form></table></td></tr></table></td></tr></table></td><td width='3' valign='top'></td><td width='14%' valign='top'><table width='100%' cellspacing=1 cellpadding=0 bgcolor='#613c25'><tr><td width='100%' height='24' bgcolor='FFFBE8' align=center><script>calenderout();</script></td></tr><tr><td width='100%' bgcolor='FFFBE8'><table width='100%' cellspacing=0 cellpadding=0><tr> <td height='23' background='hximages\titlebg.gif'> <img src='HXIMAGES/Message/newmail.GIF'><font color=FFFBE8>内部邮件</font></td></tr>"
if mailrs.recordcount<=0 then
response.write "<tr><td background='hximages/line.gif' height='25'> 暂时还没有收到邮件</td></tr>"
else
ii=1
do until mailrs.eof
response.Write "<tr> <td background='hximages/line.gif' height='20'> "&ii&"、<a href='javascript:' title='"&mailrs("WS_MailObject")&"' onClick=""openwin(630,490,'HXPersonalOffice/Readmessage.asp?MAID="&mailrs("WS_MAID")&"')"">"&left(mailrs("WS_MailObject"),20)&"</a></td></tr>"
ii=ii+1
mailrs.movenext
loop
end if
response.Write "<tr> <td height='20' align='right'><a href='HXPersonalOffice/SendMessage.asp'><font color=red>撰写>></font></a> </td></tr></table></td></tr><tr><td width='100%' bgcolor='FFFBE8'><table width='100%' cellspacing cellpadding><tr> <td height='23' background='hximages\titlebg.gif'> <img src='hximages/calendar.gif'><font color=FFFBE8>工作日程</font></td></tr><tr> <td width='100%' align=center><iframe src='HXDdesk/HX_yeardate.asp' width='160' height='160' frameborder='0'></iframe> </td></tr></table></td></tr><tr><td width='100%' bgcolor='FFFBE8'> <table width='100%' cellspacing cellpadding><tr> <td height='23' background='hximages\titlebg.gif'> <img src='hximages/attendance.gif'> <font color=FFFBE8>外出人员公告牌</font></td></tr><tr> <td width='100%' align=center> <table width='100%' border='0' cellspacing='1' cellpadding='0' bgcolor='BF9B73'><tr bgcolor='FFFBE8'><td width='29%' height='24'>姓名</td><td width='38%'>外出时间</td><td width='33%'>归来时间</td></tr>"
if ours.recordcount<=0 then
response.Write "<tr><td bgcolor=FFFBE8 colspan=3 align=center background='hximages/line.gif' height='25'> 暂时无人外出</td></tr>"
else
do until ours.eof
Call WS_S.HX_OutUserInfo(ours("WS_AttendanceOutEnrolReplyID"))
response.Write "<tr bgcolor='FFFBE8'> <td height='22'>"&OutName&"</td><td>"&ours("WS_AttendanceOutEnrolTime1")&"</td><td>"&ours("WS_AttendanceOutEnrolTime2")&"</td></tr>"
ours.movenext
loop
end if
response.Write "</table></td></tr></table></td></tr><tr><td width='100%' bgcolor='FFFBE8'> <table width='100%' cellspacing=0 cellpadding=0><tr> <td height='23' background='hximages\titlebg.gif'> <img src='hximages/bookmark.gif'><font color=FFFBE8>常用网址</font></td></tr>"
if urlrs.recordcount<=0 then
response.Write "<tr><td align=center background='hximages/line.gif' height='25'> 暂无常用网址</td></tr>"
else
ii=1
do until urlrs.eof
response.Write "<tr> <td background='hximages/line.gif' height='20'> "&ii&"、<a href='http://"&replace(urlrs("WS_WebSearchUrl"),"http://","")&"' target='_blank'>"&urlrs("WS_WebSearchName")&"</a></td></tr>"
ii=ii+1
urlrs.movenext
loop
end if
response.Write "<tr><td height='20' align='right'><a href='HXAnnexProgram/weburlsearch.asp'><font color=red>全部>></font></a> </td></tr></table></td></tr><tr><td width='100%' height='24' bgcolor='FFFBE8' align=center> <table width='100%' border='0' cellspacing='0' cellpadding='0'><form action='HXInfoChange/netvoteinfo.asp?action=sendvote' method='post'><input type='hidden' name='WS_QuestionID' value='"&WS_QuestionID&"'><input type='hidden' name='N_Question' value='"&N_Quest&"'><tr><td height='23' background='hximages\titlebg.gif'> <img src='hximages/vote.gif'><font color='#FFFBE8'>在线调查</font></td></tr> <tr><td bgcolor='#FFFBE8'>"&Content1&"</td></tr> <tr><td bgcolor='#FFFBE8'> <input type='submit' value=' 提 交 ' "
If PollNum = WS_QuestionID Then response.write "disabled"
response.Write "<input type='reset' name='Submit3' value=' 重 选 '></td></tr></form></table> </td></tr></table> </td></tr></table>"
End Sub
Sub HX_SaleManage()
response.Write "<link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><body bgcolor=613c25><table width='100%' cellspacing cellpadding class='Titletd' align='center'><tr><td height='10'></td></tr><tr valign='top'> <td><table width='90%' border='0' cellspacing='1' cellpadding='5' bgcolor='#613c25' align='center'>"
if WS_S.MemberPriv("WS_SaleManageCustomInfo")=1 then
response.Write "<tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 客户关系</font></td></tr>"
if WS_S.MemberPriv("WS_SaleManageCustomRank")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='CustomRank.asp'><font color='#FFFBE8'>>> 客户级别</font></a></td></tr>"
if WS_S.MemberPriv("WS_SaleManageCustomInfoManage")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='CustomInfoManage.asp'><font color='#FFFBE8'>>> 客户管理</font></a></td></tr>"
if WS_S.MemberPriv("WS_SaleManageCustomContactManage")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='CustomContactManage.asp'><font color='#FFFBE8'>>> 联系人管理</font></a></td></tr>"
if WS_S.MemberPriv("WS_SaleManageCustomConnectManage")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='CustomConnectManage.asp'><font color='#FFFBE8'>>> 交往信息管理</font></a></td></tr>"
if WS_S.MemberPriv("WS_SaleManageCustomSearch")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='CustomSearch.asp'><font color='#FFFBE8'>>> 客户查询</font></a></td></tr>"
end if
if WS_S.MemberPriv("WS_SaleManageProduct")=1 then
response.Write "<tr><td bgcolor='#4d2811'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> <font color='#FFFBE8'>产品销售</font></td></tr>"
if WS_S.MemberPriv("WS_SaleManageProductManage")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='ProductManage.asp'><font color='#FFFBE8'>>> 产品管理</font></a></td></tr>"
if WS_S.MemberPriv("WS_SaleManageProductSearch")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='ProductSearch.asp'><font color='#FFFBE8'>>> 产品查询</font></a></td></tr>"
if WS_S.MemberPriv("WS_SaleManageProductSaleRecord")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='ProductSaleRecord.asp'><font color='#FFFBE8'>>> 销售纪录</font></a></td></tr>"
end if
if WS_S.MemberPriv("WS_SaleManageShopManage")=1 then
response.Write "<tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'>供应商</font></td></tr>"
if WS_S.MemberPriv("WS_SaleManageSaleShopManage")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='SaleShopManage.asp'><font color='#FFFBE8'>>> 供应商管理 </font></a></td></tr>"
if WS_S.MemberPriv("WS_SaleManageSaleShopSearch")=1 then response.Write "<tr><td bgcolor='#7a553e'> <a target='right' href='SaleShopSearch.asp'><font color='#FFFBE8'>>> 供应商查询</font> </a></td></tr> "
end if
response.Write "</table></td></tr><tr><td height='20' align='center'></td></tr></table>"
End Sub
Sub HX_MemberPrivManage()
DeskMyarr=trim(request("01")):Officearr=trim(request("02")):PersonalOfficearr=trim(request("03")):SaleManagearr=trim(request("04")):Bargainarr=trim(request("05")):WorkFlowarr=trim(request("06")):Manpowerarr=trim(request("07")):InfoChangearr=trim(request("08")):AnnexProgramarr=trim(request("09")):SystemSetarr=trim(request("10"))
if instr(DeskMyarr,"DeskMyoffice")>0 then rs("WS_DeskMyoffice")=1 else rs("WS_DeskMyoffice")=0 end if
if instr(DeskMyarr,"DeskMyWORKFLOW")>0 then rs("WS_DeskMyWORKFLOW")=1 else rs("WS_DeskMyWORKFLOW")=0 end if
if instr(DeskMyarr,"DeskMyPublicAffairs")>0 then rs("WS_DeskMyPublicAffairs")=1 else rs("WS_DeskMyPublicAffairs")=0 end if
if instr(DeskMyarr,"DeskMyManpowerResource")>0 then rs("WS_DeskMyManpowerResource")=1 else rs("WS_DeskMyManpowerResource")=0 end if
if instr(DeskMyarr,"DeskMyInfoChange")>0 then rs("WS_DeskMyInfoChange")=1 else rs("WS_DeskMyInfoChange")=0 end if
if instr(trim(request("MENU_02")),"PublicAffairs")>0 then rs("WS_PublicAffairs")=1 else rs("WS_PublicAffairs")=0 end if
if instr(Officearr,"PublicAffairsOfficeView")>0 then rs("WS_PublicAffairsOfficeView")=1 else rs("WS_PublicAffairsOfficeView")=0 end if
if instr(Officearr,"PublicAffairsOfficeEdit")>0 then rs("WS_PublicAffairsOfficeEdit")=1 else rs("WS_PublicAffairsOfficeEdit")=0 end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -