hx_function.asp

精美OA网络办公系统,带PSD文件.可任意修改.

      ii=1
	   do until Nrs.eof
		response.Write "<tr><td background='hximages/line.gif' height='20'>&nbsp;"&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><tr><td valign='top'><table width='100%' cellspacing=0 cellpadding=0><tr><td width='100%' bgcolor='FFFBE8'><table width='100%' cellspacing=0 cellpadding=0><tr> <td height='23' background='hximages\titlebg.gif'>&nbsp;<img src='HXIMAGES/Message/newmail.GIF' align='absmiddle'> <font color=FFFBE8>内部邮件</font></td></tr>"
		if mailrs.recordcount<=0 then
		  response.write "<tr><td background='hximages/line.gif' height='25'>&nbsp;暂时还没有收到邮件</td></tr>"
		else
			ii=1
			do until mailrs.eof 
			  response.Write "<tr> <td background='hximages/line.gif' height='20'>&nbsp;"&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>"

	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>"
			response.Write "<tr><table width='100%' cellspacing cellpadding><tr> <td height='23' background='hximages\titlebg.gif'>&nbsp;<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'>&nbsp;<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'>&nbsp;暂时无人外出</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'>&nbsp;<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'>&nbsp;暂无常用网址</td></tr>"
	         else
			   ii=1
			   do until urlrs.eof
			    response.Write "<tr> <td background='hximages/line.gif' height='20'>&nbsp;"&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'>&nbsp;<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'>&nbsp;<a target='right' href='CustomRank.asp'><font color='#FFFBE8'>&gt;&gt; 客户级别</font></a></td></tr>"
        if WS_S.MemberPriv("WS_SaleManageCustomInfoManage")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='CustomInfoManage.asp'><font color='#FFFBE8'>&gt;&gt; 客户管理</font></a></td></tr>"
        if WS_S.MemberPriv("WS_SaleManageCustomContactManage")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='CustomContactManage.asp'><font color='#FFFBE8'>&gt;&gt; 联系人管理</font></a></td></tr>"
        if WS_S.MemberPriv("WS_SaleManageCustomConnectManage")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='CustomConnectManage.asp'><font color='#FFFBE8'>&gt;&gt; 交往信息管理</font></a></td></tr>"
        if WS_S.MemberPriv("WS_SaleManageCustomSearch")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='CustomSearch.asp'><font color='#FFFBE8'>&gt;&gt; 客户查询</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'>&nbsp;<a target='right' href='ProductManage.asp'><font color='#FFFBE8'>&gt;&gt; 产品管理</font></a></td></tr>"
  if WS_S.MemberPriv("WS_SaleManageProductSearch")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='ProductSearch.asp'><font color='#FFFBE8'>&gt;&gt;  产品查询</font></a></td></tr>"
  if WS_S.MemberPriv("WS_SaleManageProductSaleRecord")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='ProductSaleRecord.asp'><font color='#FFFBE8'>&gt;&gt;  销售纪录</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'>&nbsp;<a target='right' href='SaleShopManage.asp'><font color='#FFFBE8'>&gt;&gt; 供应商管理 </font></a></td></tr>"
  if WS_S.MemberPriv("WS_SaleManageSaleShopSearch")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='SaleShopSearch.asp'><font color='#FFFBE8'>&gt;&gt; 供应商查询</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
       if instr(Officearr,"PublicAffairsOfficeAdd")>0 then rs("WS_PublicAffairsOfficeAdd")=1 else rs("WS_PublicAffairsOfficeAdd")=0 end if
       if instr(Officearr,"PublicAffairsOfficeDel")>0 then rs("WS_PublicAffairsOfficeDel")=1 else rs("WS_PublicAffairsOfficeDel")=0 end if
       if instr(Officearr,"PublicAffairsDocumentView")>0 then rs("WS_PublicAffairsDocumentView")=1 else rs("WS_PublicAffairsDocumentView")=0 end if
       if instr(Officearr,"PublicAffairsDocumentEdit")>0 then rs("WS_PublicAffairsDocumentEdit")=1 else rs("WS_PublicAffairsDocumentEdit")=0 end if
       if instr(Officearr,"PublicAffairsDocumentAdd")>0 then rs("WS_PublicAffairsDocumentAdd")=1 else rs("WS_PublicAffairsDocumentAdd")=0 end if
       if instr(Officearr,"PublicAffairsDocumentDel")>0 then rs("WS_PublicAffairsDocumentDel")=1 else rs("WS_PublicAffairsDocumentDel")=0 end if
       if instr(Officearr,"PublicAffairsDocumentTypeMange")>0 then rs("WS_PublicAffairsDocumentTypeMange")=1 else rs("WS_PublicAffairsDocumentTypeMange")=0 end if
       if instr(Officearr,"PublicAffairsBookView")>0 then rs("WS_PublicAffairsBookView")=1 else rs("WS_PublicAffairsBookView")=0 end if
       if instr(Officearr,"PublicAffairsBookAdd")>0 then rs("WS_PublicAffairsBookAdd")=1 else rs("WS_PublicAffairsBookAdd")=0 end if
	   if instr(Officearr,"PublicAffairsBookManage")>0 then rs("WS_PublicAffairsBookManage")=1 else rs("WS_PublicAffairsBookManage")=0 end if
	   if instr(Officearr,"PublicAffairsCarManage")>0 then rs("WS_PublicAffairsCarManage")=1 else rs("WS_PublicAffairsCarManage")=0 end if
	   if instr(Officearr,"PublicAffairsCarApply")>0 then rs("WS_PublicAffairsCarApply")=1 else rs("WS_PublicAffairsCarApply")=0 end if
	   if instr(Officearr,"PublicAffairsCarView")>0 then rs("WS_PublicAffairsCarView")=1 else rs("WS_PublicAffairsCarView")=0 end if
	   if instr(Officearr,"PublicAffairsCarModify")>0 then rs("WS_PublicAffairsCarModify")=1 else rs("WS_PublicAffairsCarModify")=0 end if
       if instr(Officearr,"PublicAffairsMeetingManage")>0 then rs("WS_PublicAffairsMeetingManage")=1 else rs("WS_PublicAffairsMeetingManage")=0 end if