hx_function.asp

政府网站集成OA办公考勤新闻发布网站信息管理会员管理

		Content30=Content30 & "<td width=""40"" valign=""bottom"" align=""center""><font color=""#7C96B8"">" & FormatNumber(p_percent,2) & "%</font><br><img src=""../HXimages/netvote/p2.gif"" width=""8"" height=""" & p_percent & """ vspace=""1""></td>"
		Content31=Content31 & "<td width=""40"" align=""center"">[" & chr(i) & "]</td>"
		i=i+1
	Next
end if
    response.Write "<table width='99%'  border='0' cellspacing='0' cellpadding='0' align='center'><tr><td valign='top'><table width='100%' cellspacing=1 cellpadding=0 bgcolor='#CCCCCC'><tr><td width='100%' bgcolor='FFFFFF'><table width='100%' cellspacing=0 cellpadding=0><tr> <td height='23' background='hximages\titlebg.gif'>&nbsp;<img src='HXIMAGES/notify.gif' align='absmiddle'> <font color=FFFFFF>通知公告</font></td></tr>"
	if Nrs.recordcount<=0 then
	response.write "<tr><td background='hximages/line.gif' height='25'>&nbsp;暂时还没有通知公告</td></tr>"
	else
      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></table></td></tr><tr><td width='100%' bgcolor='FFFFFF'><table width='100%' cellspacing cellpadding><tr> <td height='23' background='hximages\titlebg.gif'>&nbsp;<img src='hximages/erp.gif' align='absmiddle'>  <font color=FFFFFF>待办公文</font></td></tr><tr> <td width='100%' align=center><table width='100%'  border='0' cellspacing='1' cellpadding='3' bgcolor=ffffff><form method='post' action='HXWORKFLOW/WorkFlowWaitList.asp?action=del&page="&page&"' name='form1'><tr bgcolor='#A1BBE0' class='td4'><td width='20' align=center><input type='checkbox' name='checkall' value='checkbox' onClick='chkall(this)' class='radio' style='background-color:A1BBE0;'></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='#ECF2F2' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ECF2F2'> <td width='28' align=center><input type='checkbox' name='MAID' value='"&Waitrs("WS_FCID")&"' class='radio' style='background-color:ECF2F2;'></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='#A1BBE0' class='td4'><td colspan='15' height='30'>&nbsp;<input type='checkbox' name='checkall' value='checkbox' onClick='chkall(this)' id='checkall' class='radio' style='background-color:A1BBE0;'><label for='checkall'>全选</label>&nbsp;将选中全部&nbsp;<input name='del' type='submit' value='签收' style='font-size: 12px;color:#FFFFFF;border: 1px solid #000000;background-color: #A1BBE0; '>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</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='#CCCCCC'><tr><td width='100%' height='24' bgcolor='BDD6F7' align=center><script>calenderout();</script></td></tr><tr><td width='100%' bgcolor='FFFFFF'><table width='100%' cellspacing=0 cellpadding=0><tr> <td height='23' background='hximages\titlebg.gif'>&nbsp;<img src='HXIMAGES/Message/newmail.GIF'><font color=FFFFFF>内部邮件</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><tr><td width='100%' bgcolor='FFFFFF'><table width='100%' cellspacing cellpadding><tr> <td height='23' background='hximages\titlebg.gif'>&nbsp;<img src='hximages/calendar.gif'><font color=FFFFFF>工作日程</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='FFFFFF'>                    <table width='100%' cellspacing cellpadding><tr> <td height='23' background='hximages\titlebg.gif'>&nbsp;<img src='hximages/attendance.gif'>  <font color=FFFFFF>外出人员公告牌</font></td></tr><tr> <td width='100%' align=center>  <table width='100%'  border='0' cellspacing='1' cellpadding='0' bgcolor='A1BBE0'><tr bgcolor='F1f1f1'><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=ffffff 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='FFFFFF'> <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='FFFFFF'>                    <table width='100%' cellspacing=0 cellpadding=0><tr> <td height='23' background='hximages\titlebg.gif'>&nbsp;<img src='hximages/bookmark.gif'><font color=FFFFFF>常用网址</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='ffffff' 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='#ffffff'>在线调查</font></td></tr>     <tr><td bgcolor='#FFFFFF'>"&Content1&"</td></tr> <tr><td bgcolor='#FFFFFF'> <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=065485><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='#065485' align='center'>"
      if WS_S.MemberPriv("WS_SaleManageCustomInfo")=1 then  
        response.Write "<tr><td bgcolor='#344B6B'><font color='#FFFFFF'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 客户关系</font></td></tr>"
        if WS_S.MemberPriv("WS_SaleManageCustomRank")=1 then  response.Write "<tr><td bgcolor='#678DC0'>&nbsp;<a target='right' href='CustomRank.asp'><font color='#FFFFFF'>&gt;&gt; 客户级别</font></a></td></tr>"
        if WS_S.MemberPriv("WS_SaleManageCustomInfoManage")=1 then  response.Write "<tr><td bgcolor='#678DC0'>&nbsp;<a target='right' href='CustomInfoManage.asp'><font color='#FFFFFF'>&gt;&gt; 客户管理</font></a></td></tr>"
        if WS_S.MemberPriv("WS_SaleManageCustomContactManage")=1 then  response.Write "<tr><td bgcolor='#678DC0'>&nbsp;<a target='right' href='CustomContactManage.asp'><font color='#FFFFFF'>&gt;&gt; 联系人管理</font></a></td></tr>"
        if WS_S.MemberPriv("WS_SaleManageCustomConnectManage")=1 then  response.Write "<tr><td bgcolor='#678DC0'>&nbsp;<a target='right' href='CustomConnectManage.asp'><font color='#FFFFFF'>&gt;&gt; 交往信息管理</font></a></td></tr>"
        if WS_S.MemberPriv("WS_SaleManageCustomSearch")=1 then  response.Write "<tr><td bgcolor='#678DC0'>&nbsp;<a target='right' href='CustomSearch.asp'><font color='#FFFFFF'>&gt;&gt; 客户查询</font></a></td></tr>"
      end if
if WS_S.MemberPriv("WS_SaleManageProduct")=1 then  
  response.Write "<tr><td bgcolor='#344B6B'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> <font color='#FFFFFF'>产品销售</font></td></tr>"
  if WS_S.MemberPriv("WS_SaleManageProductManage")=1 then  response.Write "<tr><td bgcolor='#678DC0'>&nbsp;<a target='right' href='ProductManage.asp'><font color='#FFFFFF'>&gt;&gt; 产品管理</font></a></td></tr>"
  if WS_S.MemberPriv("WS_SaleManageProductSearch")=1 then  response.Write "<tr><td bgcolor='#678DC0'>&nbsp;<a target='right' href='ProductSearch.asp'><font color='#FFFFFF'>&gt;&gt;  产品查询</font></a></td></tr>"
  if WS_S.MemberPriv("WS_SaleManageProductSaleRecord")=1 then  response.Write "<tr><td bgcolor='#678DC0'>&nbsp;<a target='right' href='ProductSaleRecord.asp'><font color='#FFFFFF'>&gt;&gt;  销售纪录</font></a></td></tr>"
end if  
if WS_S.MemberPriv("WS_SaleManageShopManage")=1 then