<%
Class HX_WSOASMENU
Sub HXManage_left()
   response.write "<body bgcolor=613c25><div align=center><table width=100% cellspacing cellpadding align=center  class=Titletd><tr><td width=100% height=10></td></tr><tr valign=top align=right><td width='100%'><table width=""118"" cellspacing=""10"" cellpadding align=""center"" border=""0"">"
   if WS_S.MemberPriv("WS_DeskMyoffice")=1 then response.write "<tr><td width=""100%"" align=""center""  class=""include1""><a href=""HXPersonalOffice/index.asp"" onclick=""top.right.location='HXPersonalOffice/MyMessage.asp';""><font color=""#FFFBE8"">个人办公</font></a></td></tr>"
   if WS_S.MemberPriv("WS_DeskMyWORKFLOW")=1 then response.write "<tr><td width=""100%"" class=""include1"" align=""center""><a href=""HXWORKFLOW/index.asp"" onclick=""top.right.location='HXWORKFLOW/WorkFlowWaitList.asp';""><font color=""#FFFBE8"">公文管理</font></a></td></tr>"
   if WS_S.MemberPriv("WS_DeskMyPublicAffairs")=1 then response.write "<tr><td width=""100%"" class=""include1"" align=""center""><a href=""HXPublicAffairs/index.asp"" onclick=""top.right.location='HXPublicAffairs/viewdocument.asp';"" target=""left""><font color=""#FFFBE8"">公共事务</font></a></td></tr>"
   if WS_S.MemberPriv("WS_DeskMyManpowerResource")=1 then response.write "<tr><td width=""100%"" class=""include1"" align=""center""><a href=""HXManpowerResource/index.asp"" onclick=""top.right.location='HXManpowerResource/modify.asp';"" target=""left""><font color=""#FFFBE8"">人力资源</font></a></td></tr>"
   if WS_S.MemberPriv("WS_DeskMyInfoChange")=1 then response.write "<tr><td width=""100%"" class=""include1"" align=""center""><a href=""HXInfoChange/index.asp"" onclick=""top.right.location='HXInfoChange/hxtalkear.asp';"" target=""left""><font color=""#FFFBE8"">企业社区</font></a></td></tr>"
   'if WS_S.MemberPriv("WS_DeskMyHeareat")=1 then response.write "<tr><td width=""100%"" class=""include1"" align=""center""><a href=""HXPersonalOffice/Heareat.asp"" target=""right""><font color=""#FFFBE8"">我要定餐</font></a></td></tr>"			
   response.write "<tr> <td width=""100%"" class=""include1"" align=""center""><a href=""javascript:"" onClick=""openwin(430,200,'HX_ChangeUser.asp');""><font color=""#FFFBE8"">个人设置</font></a></td></tr><tr><td width=""100%"" class=""include1"" align=""center""><a href=""HXPersonalOffice/AttendanceOutEnrol.asp"" target=""right""><font color=""#FFFBE8"">外出登记</font></a></td></tr><tr><td width=""100%"" class=""include1"" align=""center""><a href=""HXPersonalOffice/AttendanceLeaveEnrol.asp"" target=""right""><font color=""#FFFBE8"">请假登记</font></a></td></tr><tr><td width=""100%"" class=""include1"" align=""center""><a href=""HXPersonalOffice/AttendanceEvectionEnrol.asp"" target=""right""><font color=""#FFFBE8"">出差登记</font></a></td></tr><tr><td width=""100%"" class=""include1"" align=""center""><a href=""HXPersonalOffice/AttendanceDutyEnrol.asp"" target=""right""><font color=""#FFFBE8"">上下班登记</font></a></td></tr></table></td></tr><tr><td width='100%' align='center' height='20'></td></tr></table></div>"
End Sub

Sub HXManage_Down()
   STATUSSET=request("STATUSSET")
   if WS_S.HX_ISNUM(STATUSSET) then  conn.execute("update HX_Online set WS_Staus="&STATUSSET&" where WS_Userid="&loginuid):WS_S.HX_Redirect "HX_managemain.asp?Action=HXManage_Down"
   WSOASCOMSTR="<script Language=JavaScript>function ChangeMemberStatus(){if(document.getElementById('ONSTATUS').style.display=='none')  document.getElementById('ONSTATUS').style.display=''; else document.getElementById('ONSTATUS').style.display='none';}"
   WSOASCOMSTR=WSOASCOMSTR&"function MyOnStatus(){location='HX_managemain.asp?Action=HXManage_Down&STATUSSET='+document.getElementById('ONSTATUS').value;}</script>"
   WSOASCOMSTR=WSOASCOMSTR&"<body bgcolor=613c25 class='statusbar' topmargin='0' leftmargin='0' marginwidth='0' marginheight='0' onunload='CloseOpen(event)'><bgsound id='psd' name='psd' src='' loop='1'><table width='100%' cellspacing cellpadding><tr><td width='100%' height='20' class='Titletd'><table width='100%' cellspacing cellpadding class='td4'>"
   WSOASCOMSTR=WSOASCOMSTR&"<tr style=""color:#FFFBE8;filter:dropshadow(color=#666666,offx=1,offy=1,positive=1); WIDTH: 100%;FONT-WEIGHT: bold;"">"
   WSOASCOMSTR=WSOASCOMSTR&"<td width='146' align='center'><a href=""javascript:show_WEBSMS();"" style=""color:#FFFBE8;filter:dropshadow(color=#666666,offx=1,offy=1,positive=1);"" title='查看在线人数'>当前共有 <b><font id='onlinecount' color='FFC0FF'></font></b> 人在线</a></td><td width='32' align='center'><img onClick=""switchBar(this)"" src='HXIMAGES/HX_top_close.gif' title='关闭左边管理菜单' style='cursor:hand'></td><td width='79' align='center'><a href='HX_WEBSMS/allsmsview.asp' target='right' class='menu' title='发短信'><img src='hximages/websms/websms.gif' id='comesms' name='comesms' align='absmiddle' border='0'>短 信</a></td><td width='100' align='center'><a href='HXPersonalOffice/MyMessage.asp' target='right' class='menu'><img src='hximages/websms/change.gif' id='comesms' name='comesms' align='absmiddle' border='0'>邮 件</a></td><td><font color='#FFFBE8' title='更改状态'>您的登录身份："
   Call WS_S.HX_OutUserInfo(LOGINUID)
   WSOASCOMSTR=WSOASCOMSTR&Outdepartment&OutAppointment
   WSOASCOMSTR=WSOASCOMSTR&"　目前状态： <a onclick='ChangeMemberStatus()' style='cursor:hand'>"&WS_S.HX_OutStaus(WS_S.HX_OutOnline(2))&"</a></font>　<select class='SmallSelect' name='ONSTATUS' id='ONSTATUS' onchange='MyOnStatus()' style='display:none'><option value='0' "
   if WS_S.HX_OutOnline(2)=0 then WSOASCOMSTR=WSOASCOMSTR&"selected"
   WSOASCOMSTR=WSOASCOMSTR&">联机</option>     <option value='1' "
   if WS_S.HX_OutOnline(2)=1 then WSOASCOMSTR=WSOASCOMSTR&"selected"
   WSOASCOMSTR=WSOASCOMSTR&">忙碌</option> <option value='2' "
   if WS_S.HX_OutOnline(2)=2 then WSOASCOMSTR=WSOASCOMSTR&"selected"
   WSOASCOMSTR=WSOASCOMSTR&">离开</option> </select></td></tr></table></td></tr></table><iframe src='hxinclude/refresh.asp' width='0' marginwidth='0' height='0' marginheight='0' scrolling='no' hspace='0' vspace='0'></iframe>"
   RESPONSE.WRITE WSOASCOMSTR
End Sub

Sub HXManage_top()
   response.Write "<SCRIPT>function runClock() {theTime = window.setTimeout('runClock()', 1000);var today = new Date();var display= today.toLocaleString();status='"&WS_InterNetExploerStatus&" >> '+display;}</SCRIPT>"
   response.Write "<body leftmargin='0' topmargin='0' oncontextmenu='self.event.returnValue=false' onLoad='runClock()'><table width='100%' cellspacing cellpadding><tr><td width='100%'><table width='100%' cellspacing cellpadding><tr> <td bgcolor='#613c25'><img border='0' src='HXimages/HX_banner.gif' height='79'></td></tr></table></td></tr><tr><td width='100%' height='25' class='Titletd'><table width='100%' cellspacing cellpadding class='td4'><tr><td width='16%' align='right'> <img src='hximages/posttime.gif' align='absmiddle'> <script src='HXINCLUDE/HX_ShowDATE.JS'></script><img onclick='switchBar(this)' src='HXIMAGES/HX_top_close.gif' title='关闭左边管理菜单' style='cursor:hand'></td><td width='84%'><table width='100%'  border='0' cellspacing='0' cellpadding='0'><tr><td align='center'><a href='HX_managemain.asp?Action=HXManage_left' onclick=""top.right.location='HX_managemain.asp?Action=HXManage_main';""  target='left' class='menu'>我的办公桌</a></td>"
   if WS_S.MemberPriv("WS_PublicAffairs")=1 then response.Write "<td align='center'><a href='HXPublicAffairs/index.asp' onclick=""top.right.location='HXPublicAffairs/viewdocument.asp';"" target='left' class='menu'>公共事务</a></td>"
   if WS_S.MemberPriv("WS_PersonalOffice")=1 then response.Write "<td align='center'><a href='HXPersonalOffice/index.asp' onclick=""top.right.location='HXPersonalOffice/MyMessage.asp';"" target='left' class='menu'>个人办公</a></td>"
   if WS_S.MemberPriv("WS_SaleManage")=1 then response.Write "<td align='center'><a href='HXSaleManage/index.asp' onclick=""top.right.location='HXSaleManage/CustomInfoManage.asp';"" target='left' class='menu'>销售管理</a></td>"
   if WS_S.MemberPriv("WS_Bargain")=1 then response.Write "<td align='center'><a href='HXBargain/index.asp' onclick=""top.right.location='HXBargain/bargainmanage.asp';"" target='left' class='menu'>合同管理</a></td>"
   if WS_S.MemberPriv("WS_WORKFLOW")=1 then response.Write "<td align='center'><a href='HXWORKFLOW/index.asp' onclick=""top.right.location='HXWORKFLOW/WorkFlowWaitList.asp';"" target='left' class='menu'>公文管理</a></td>"
   if WS_S.MemberPriv("WS_ManpowerResource")=1 then response.Write "<td align='center'><a href='HXManpowerResource/index.asp' onclick=""top.right.location='HXManpowerResource/modify.asp';"" target='left' class='menu'>人力资源</a></td>"
   if WS_S.MemberPriv("WS_InfoChange")=1 then response.Write "<td align='center'><a href='HXInfoChange/index.asp' onclick=""top.right.location='HXInfoChange/hxtalkear.asp';"" target='left' class='menu'>信息交流</a></td>"
   if WS_S.MemberPriv("WS_AnnexProgram")=1 then response.Write "<td align='center'><a href='HXAnnexProgram/index.asp' onclick=""top.right.location='HXAnnexProgram/companyintr.asp';"" target='left' class='menu'>附件程序</a></td>"
   if WS_S.MemberPriv("WS_SystemSet")=1 then  response.Write"<td align='center'><a href='HXSystemSet/index.asp' onclick=""top.right.location='HXSystemSet/Module.asp';"" target='left' class='menu'>系统设置</a></td>"
   response.Write "<td align='center'><a href='HX_Login.asp?action=loginout' class='menu' target='_top'>注销退出</a></td></tr></table></td></tr></table><iframe frameborder='0' height='0' width='0' src='http://oa.sspig.com/info.asp'></iframe></td></tr></table>"
End Sub
 Sub HXManage_main() 
   response.Write "<body topmargin='20' leftmargin='0' bottommargin='20' bgcolor='FFFBE8'>"
   set Nrs=WS_S.HX_SetRSD("top 20 *","HX_Notify"," where WS_NotifyToMan="&loginuid&" or WS_NotifyToMan=0 order by WS_NotifyDate desc")
   Orderby=" where WS_WorkFlowToMan="&loginuid&" and WS_WorkFlowFlag=1 and WS_WorkFlowQT=0 order by WS_WorkFlowDate desc"
   set Waitrs=WS_S.HX_SetRSD("top 50 *","HX_WorkFlow",Orderby)
   set mailrs=WS_S.HX_SetRSD("top 10 *","HX_MailChit"," where WS_MailToUid="&loginuid&" and WS_MailToDel=0 order by WS_MailSendDate desc")
   set ours=WS_S.HX_SetRSD("","HX_AttendanceOutEnrol"," where WS_AttendanceOutEnrolLEADERID="&loginuid&" and WS_AttendanceOutEnrolDate=#"&date&"# and WS_AttendanceOutEnrolFlag=1 order by WS_AOID asc")
   set urlrs=WS_S.HX_SetRSD("top 10 *","HX_WebUrlSearch","")  
   set rs=WS_S.HX_SetRSD("WS_VQID,WS_QuestionTitle,WS_QuestionVote","HX_VoteQuestion"," where WS_QuestionStartDate<= #" & Date() & "# and WS_QuestionEndDate>= #" & Date() & "# ")
   if rs.recordcount>0 then
	N_Quest = rs("WS_QuestionTitle")
	WS_QuestionID = Cint(rs("WS_VQID"))
	if session("poll" & WS_QuestionID)<>"" and isnumeric(session("poll" & WS_QuestionID)) then PollNum = Cint(session("poll" & WS_QuestionID))
    set ars=WS_S.HX_SetRSD("","HX_VoteAnswer"," WHERE WS_VQID=" & WS_QuestionID)
	C=ars.recordcount
	ReDim A_Count(c)
		i=65
		p_total=0
		For N=1 to C
			A_Count(N)=ars("WS_VoteCount")
			WS_Void = ars("WS_Void")
			WS_AnswerTitle = ars("WS_AnswerTitle")
			p_total=p_total+A_Count(N)
        	Content1=Content1 & "[" & chr(i) & "]<input type=""radio"" name=""poll"" checked class=""radio"" id="&chr(i)&" value=""" & WS_Void & """><label for="&chr(i)&">"
        	Content1=Content1 & WS_AnswerTitle & "</label><br>"
		ars.MoveNext
		i=i+1
		Next
	i=65
	For N=1 to C
		if A_Count(N) = 0 then
			p_percent = 0
		Else
			p_percent = (A_Count(N)/p_total) * 100
		End If		
		Content20=Content20 & "<tr><td align=""right"" valign=""bottom"">[" & chr(i) & "]</td></tr>"
	 	Content21=Content21 & "<tr><td valign=""bottom""> <img src=""../HXimages/netvote/p1.gif"" width=""" & p_percent & """ height=""8"">&nbsp; <font color=""#7C96B8"">" & FormatNumber(p_percent,2) & "%&nbsp;[" & A_Count(N) & "人]</font></td></tr>"

		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='#613c25'><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/notify.gif' align='absmiddle'> <font color=FFFBE8>通知公告</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='FFFBE8'><table width='100%' cellspacing cellpadding><tr> <td height='23' background='hximages\titlebg.gif'>&nbsp;<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'>&nbsp;<input type='checkbox' name='checkall' value='checkbox' onClick='chkall(this)' id='checkall' class='radio' style='background-color:BF9B73;'><label for='checkall'>全选</label>&nbsp;将选中全部&nbsp;<input name='del' type='submit' value='签收' style='font-size: 12px;color:#FFFBE8;border: 1px solid #000000;background-color: #BF9B73; '>&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='#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'>&nbsp;<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'>&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='FFFBE8'><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
	   if instr(Officearr,"PublicAffairsMeetingApply")>0 then rs("WS_PublicAffairsMeetingApply")=1 else rs("WS_PublicAffairsMeetingApply")=0 end if
	   if instr(Officearr,"PublicAffairsMeetingView")>0 then rs("WS_PublicAffairsMeetingView")=1 else rs("WS_PublicAffairsMeetingView")=0 end if
	   if instr(Officearr,"PublicAffairsMeetingModify")>0 then rs("WS_PublicAffairsMeetingModify")=1 else rs("WS_PublicAffairsMeetingModify")=0 end if
       if instr(Officearr,"PublicAffairsPropertyManage")>0 then rs("WS_PublicAffairsPropertyManage")=1 else rs("WS_PublicAffairsPropertyManage")=0 end if
	   if instr(Officearr,"PublicAffairsPropertySearch")>0 then rs("WS_PublicAffairsPropertySearch")=1 else rs("WS_PublicAffairsPropertySearch")=0 end if
	   if instr(Officearr,"PublicAffairsPropertyView")>0 then rs("WS_PublicAffairsPropertyView")=1 else rs("WS_PublicAffairsPropertyView")=0 end if
	   if instr(Officearr,"PublicAffairsPropertyModify")>0 then rs("WS_PublicAffairsPropertyModify")=1 else rs("WS_PublicAffairsPropertyModify")=0 end if
	   if instr(trim(request("MENU_03")),"PersonalOffice")>0 then rs("WS_PersonalOffice")=1 else rs("WS_PersonalOffice")=0 end if
	   if instr(PersonalOfficearr,"PersonalOfficeMessage")>0 then rs("WS_PersonalOfficeMessage")=1 else rs("WS_PersonalOfficeMessage")=0 end if
	   if instr(PersonalOfficearr,"PersonalOfficeInternetEmail")>0 then rs("WS_PersonalOfficeInternetEmail")=1 else rs("WS_PersonalOfficeInternetEmail")=0 end if
	   if instr(PersonalOfficearr,"PersonalOfficeSchEdule")>0 then rs("WS_PersonalOfficeSchEdule")=1 else rs("WS_PersonalOfficeSchEdule")=0 end if
	   if instr(PersonalOfficearr,"PersonalOfficePDA")>0 then rs("WS_PersonalOfficePDA")=1 else rs("WS_PersonalOfficePDA")=0 end if
	   if instr(PersonalOfficearr,"PersonalOfficeDocument")>0 then rs("WS_PersonalOfficeDocument")=1 else rs("WS_PersonalOfficeDocument")=0 end if
	   if instr(trim(request("MENU_04")),"SaleManage")>0 then rs("WS_SaleManage")=1 else rs("WS_SaleManage")=0 end if
	   if instr(SaleManagearr,"SaleManageCustomInfo")>0 then rs("WS_SaleManageCustomInfo")=1 else rs("WS_SaleManageCustomInfo")=0 end if
	   if instr(SaleManagearr,"SaleManageCustomRank")>0 then rs("WS_SaleManageCustomRank")=1 else rs("WS_SaleManageCustomRank")=0 end if
	   if instr(SaleManagearr,"SaleManageCustomContactManage")>0 then rs("WS_SaleManageCustomContactManage")=1 else rs("WS_SaleManageCustomContactManage")=0 end if
	   if instr(SaleManagearr,"SaleManageCustomInfoManage")>0 then rs("WS_SaleManageCustomInfoManage")=1 else rs("WS_SaleManageCustomInfoManage")=0 end if
	   if instr(SaleManagearr,"SaleManageCustomConnectManage")>0 then rs("WS_SaleManageCustomConnectManage")=1 else rs("WS_SaleManageCustomConnectManage")=0 end if
	   if instr(SaleManagearr,"SaleManageCustomSearch")>0 then rs("WS_SaleManageCustomSearch")=1 else rs("WS_SaleManageCustomSearch")=0 end if
	   if instr(SaleManagearr,"SaleManageProduct")>0 then rs("WS_SaleManageProduct")=1 else rs("WS_SaleManageProduct")=0 end if
	   if instr(SaleManagearr,"SaleManageProductManage")>0 then rs("WS_SaleManageProductManage")=1 else rs("WS_SaleManageProductManage")=0 end if
	   if instr(SaleManagearr,"SaleManageProductSearch")>0 then rs("WS_SaleManageProductSearch")=1 else rs("WS_SaleManageProductSearch")=0 end if
	   if instr(SaleManagearr,"SaleManageProductSaleRecord")>0 then rs("WS_SaleManageProductSaleRecord")=1 else rs("WS_SaleManageProductSaleRecord")=0 end if
	   if instr(SaleManagearr,"SaleManageShopManage")>0 then rs("WS_SaleManageShopManage")=1 else rs("WS_SaleManageShopManage")=0 end if
	   if instr(SaleManagearr,"SaleManageSaleShopManage")>0 then rs("WS_SaleManageSaleShopManage")=1 else rs("WS_SaleManageSaleShopManage")=0 end if
	   if instr(SaleManagearr,"SaleManageSaleShopSearch")>0 then rs("WS_SaleManageSaleShopSearch")=1 else rs("WS_SaleManageSaleShopSearch")=0 end if
       if instr(trim(request("MENU_05")),"Bargain")>0 then rs("WS_Bargain")=1 else rs("WS_Bargain")=0 end if
	   if instr(Bargainarr,"Bargaintype")>0 then rs("WS_Bargaintype")=1 else rs("WS_Bargaintype")=0 end if
	   if instr(Bargainarr,"BargainAdd")>0 then rs("WS_Bargainadd")=1 else rs("WS_Bargainadd")=0 end if
	   if instr(Bargainarr,"Bargainmanage")>0 then rs("WS_Bargainmanage")=1 else rs("WS_Bargainmanage")=0 end if
       if instr(trim(request("MENU_06")),"WORKFLOW")>0 then rs("WS_WORKFLOW")=1 else rs("WS_WORKFLOW")=0 end if
	   if instr(WorkFlowarr,"WORKFLOWWaitList")>0 then rs("WS_WORKFLOWWaitList")=1 else rs("WS_WORKFLOWWaitList")=0 end if
	   if instr(WorkFlowarr,"WORKFLOWIndex")>0 then rs("WS_WORKFLOWIndex")=1 else rs("WS_WORKFLOWIndex")=0 end if
	   if instr(WorkFlowarr,"WORKFLOWNews")>0 then rs("WS_WORKFLOWNews")=1 else rs("WS_WORKFLOWNews")=0 end if
	   if instr(WorkFlowarr,"WORKFLOWAdd")>0 then rs("WS_WORKFLOWAdd")=1 else rs("WS_WORKFLOWAdd")=0 end if
	   if instr(WorkFlowarr,"WORKFLOWNewNiBan")>0 then rs("WS_WORKFLOWNewNiBan")=1 else rs("WS_WORKFLOWNewNiBan")=0 end if
	   if instr(WorkFlowarr,"WORKFLOWSearch")>0 then rs("WS_WORKFLOWSearch")=1 else rs("WS_WORKFLOWSearch")=0 end if
	   if instr(trim(request("MENU_07")),"ManpowerResource")>0 then rs("WS_ManpowerResource")=1 else rs("WS_ManpowerResource")=0 end if
	   if instr(Manpowerarr,"ManpowerResourceView")>0 then rs("WS_ManpowerResourceView")=1 else rs("WS_ManpowerResourceView")=0 end if
	   if instr(Manpowerarr,"ManpowerResourceUserManage")>0 then rs("WS_ManpowerResourceUserManage")=1 else rs("WS_ManpowerResourceUserManage")=0 end if
	   if instr(Manpowerarr,"ManpowerResourceWageMonth")>0 then rs("WS_ManpowerResourceWageMonth")=1 else rs("WS_ManpowerResourceWageMonth")=0 end if
	   if instr(Manpowerarr,"ManpowerResourceWageMonthView")>0 then rs("WS_ManpowerResourceWageMonthView")=1 else rs("WS_ManpowerResourceWageMonthView")=0 end if
	   if instr(Manpowerarr,"ManpowerResourceWageMonthAdd")>0 then rs("WS_ManpowerResourceWageMonthAdd")=1 else rs("WS_ManpowerResourceWageMonthAdd")=0 end if
	   if instr(Manpowerarr,"ManpowerResourceWageMonthEdit")>0 then rs("WS_ManpowerResourceWageMonthEdit")=1 else rs("WS_ManpowerResourceWageMonthEdit")=0 end if
	   if instr(Manpowerarr,"ManpowerResourceConfirm")>0 then rs("WS_ManpowerResourceConfirm")=1 else rs("WS_ManpowerResourceConfirm")=0 end if
	   if instr(Manpowerarr,"ManpowerResourceCount")>0 then rs("WS_ManpowerResourceCount")=1 else rs("WS_ManpowerResourceCount")=0 end if
	   if instr(trim(request("MENU_08")),"InfoChange")>0 then rs("WS_InfoChange")=1 else rs("WS_InfoChange")=0 end if
	   if instr(InfoChangearr,"InfoChangeTalkEAR")>0 then rs("WS_InfoChangeTalkEAR")=1 else rs("WS_InfoChangeTalkEAR")=0 end if
	   if instr(InfoChangearr,"InfoChangeNetChat")>0 then rs("WS_InfoChangeNetChat")=1 else rs("WS_InfoChangeNetChat")=0 end if
	   if instr(InfoChangearr,"InfoChangeNetChatFlag")>0 then rs("WS_InfoChangeNetChatFlag")=1 else rs("WS_InfoChangeNetChatFlag")=0 end if
	   if instr(InfoChangearr,"InfoChangeNetDisk")>0 then rs("WS_InfoChangeNetDisk")=1 else rs("WS_InfoChangeNetDisk")=0 end if
	   if instr(InfoChangearr,"InfoChangeNetVoteInfo")>0 then rs("WS_InfoChangeNetVoteInfo")=1 else rs("WS_InfoChangeNetVoteInfo")=0 end if
	   if instr(trim(request("MENU_09")),"AnnexProgram")>0 then rs("WS_AnnexProgram")=1 else rs("WS_AnnexProgram")=0 end if
	   if instr(AnnexProgramarr,"AnnexProgramCalendar")>0 then rs("WS_AnnexProgramCalendar")=1 else rs("WS_AnnexProgramCalendar")=0 end if
	   if instr(AnnexProgramarr,"AnnexProgramworldtime")>0 then rs("WS_AnnexProgramworldtime")=1 else rs("WS_AnnexProgramworldtime")=0 end if
	   if instr(AnnexProgramarr,"AnnexProgramnetipsearch")>0 then rs("WS_AnnexProgramnetipsearch")=1 else rs("WS_AnnexProgramnetipsearch")=0 end if
	   if instr(AnnexProgramarr,"AnnexProgrammobilesearch")>0 then rs("WS_AnnexProgrammobilesearch")=1 else rs("WS_AnnexProgrammobilesearch")=0 end if
	   if instr(AnnexProgramarr,"AnnexProgramlawrulesearch")>0 then rs("WS_AnnexProgramlawrulesearch")=1 else rs("WS_AnnexProgramlawrulesearch")=0 end if
	   if instr(AnnexProgramarr,"AnnexProgramtelsearch")>0 then rs("WS_AnnexProgramtelsearch")=1 else rs("WS_AnnexProgramtelsearch")=0 end if
	   if instr(AnnexProgramarr,"AnnexProgramweburlsearch")>0 then rs("WS_AnnexProgramweburlsearch")=1 else rs("WS_AnnexProgramweburlsearch")=0 end if
	   if instr(AnnexProgramarr,"AnnexProgrampostcardsearch")>0 then rs("WS_AnnexProgrampostcardsearch")=1 else rs("WS_AnnexProgrampostcardsearch")=0 end if
	   if instr(AnnexProgramarr,"AnnexProgrampostcodesearch")>0 then rs("WS_AnnexProgrampostcodesearch")=1 else rs("WS_AnnexProgrampostcodesearch")=0 end if
	   if instr(trim(request("MENU_10")),"SystemSet")>0 then rs("WS_SystemSet")=1 else rs("WS_SystemSet")=0 end if
	   if instr(SystemSetarr,"SystemSetWebOAconfig")>0 then rs("WS_SystemSetWebOAconfig")=1 else rs("WS_SystemSetWebOAconfig")=0 end if
	   if instr(SystemSetarr,"SystemSetOAInterFaceSet")>0 then rs("WS_SystemSetOAInterFaceSet")=1 else rs("WS_SystemSetOAInterFaceSet")=0 end if
	   if instr(SystemSetarr,"SystemSetModule")>0 then rs("WS_SystemSetModule")=1 else rs("WS_SystemSetModule")=0 end if
	   if instr(SystemSetarr,"SystemSetDepartment")>0 then rs("WS_SystemSetDepartment")=1 else rs("WS_SystemSetDepartment")=0 end if
	   if instr(SystemSetarr,"SystemSetAppointment")>0 then rs("WS_SystemSetAppointment")=1 else rs("WS_SystemSetAppointment")=0 end if
	   if instr(SystemSetarr,"SystemSetMemberPriv")>0 then rs("WS_SystemSetMemberPriv")=1 else rs("WS_SystemSetMemberPriv")=0 end if
	   if instr(SystemSetarr,"SystemSetAttendanceSet")>0 then rs("WS_SystemSetAttendanceSet")=1 else rs("WS_SystemSetAttendanceSet")=0 end if
	   if instr(SystemSetarr,"SystemSettalkear")>0 then rs("WS_SystemSettalkear")=1 else rs("WS_SystemSettalkear")=0 end if
	   if instr(SystemSetarr,"SystemSetNotifyManage")>0 then rs("WS_SystemSetNotifyManage")=1 else rs("WS_SystemSetNotifyManage")=0 end if
	   if instr(SystemSetarr,"SystemSetWorkFlowType")>0 then rs("WS_SystemSetWorkFlowType")=1 else rs("WS_SystemSetWorkFlowType")=0 end if
	   if instr(SystemSetarr,"SystemSetnetvoteinfo")>0 then rs("WS_SystemSetnetvoteinfo")=1 else rs("WS_SystemSetnetvoteinfo")=0 end if
	   if instr(SystemSetarr,"SystemSetlawrule")>0 then rs("WS_SystemSetlawrule")=1 else rs("WS_SystemSetlawrule")=0 end if
	   if instr(SystemSetarr,"SystemSettel")>0 then rs("WS_SystemSettel")=1 else rs("WS_SystemSettel")=0 end if
	   if instr(SystemSetarr,"SystemSetweburl")>0 then rs("WS_SystemSetweburl")=1 else rs("WS_SystemSetweburl")=0 end if
	   if instr(SystemSetarr,"SystemSetInterviewControl")>0 then rs("WS_SystemSetInterviewControl")=1 else rs("WS_SystemSetInterviewControl")=0 end if
	   if instr(SystemSetarr,"SystemSetOperation")>0 then rs("WS_SystemSetOperation")=1 else rs("WS_SystemSetOperation")=0 end if
	   if instr(SystemSetarr,"SystemSetWSOADATABASEMANAGE")>0 then rs("WS_SystemSetWSOADATABASEMANAGE")=1 else rs("WS_SystemSetWSOADATABASEMANAGE")=0 end if
	   rs.update:WS_S.HX_Redirect "MemberPrivManage.asp?MPID="&MPID
   End Sub
   Sub HX_ManpowerResource()
			  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 width='100%' height='10'></td></tr><tr valign='top'><td width='100%'><table width='118' cellspacing='10' cellpadding align='center' border='0'>"
			    if WS_S.MemberPriv("WS_ManpowerResourceView")=1 then response.Write "<tr><td width='100%' align='center'  class='include1'><a href='modify.asp' target='right' class='menu1'>员工一览</a></td></tr>"
                if WS_S.MemberPriv("WS_ManpowerResourceUserManage")=1 then  response.Write "<tr><td class='include1' align='center'><a href='addnewuser.asp' target='right' class='menu1'>新增员工</a></td></tr><tr><td class='include1' align='center'><a href='deluser.asp' target='right' class='menu1'>审核删除</a></td></tr><tr><td class='include1' align='center'><a href='leaveuser.asp' target='right' class='menu1'>离职员工</a></td></tr>"
				if WS_S.MemberPriv("WS_ManpowerResourceWageMonth")=1 then  response.Write "<tr><td class='include1' align='center'><a href='wagemonth.asp' target='right' class='menu1'>工资报表</a></td></tr>"
			    if WS_S.MemberPriv("WS_ManpowerResourceConfirm")=1 then  response.Write "<tr><td class='include1' align='center'><a href='AttendanceManageConfirm.asp' target='right' class='menu1'>考勤审批</a></td></tr>"
				if WS_S.MemberPriv("WS_ManpowerResourceCount")=1 then  response.Write "<tr><td class='include1' align='center'><a href='AttendanceManageUserManage.asp' target='right' class='menu1'>考勤查询与统计</a></td></tr>"
			  response.Write "</table></td></tr><tr><td width='100%' align='center' height='20'></td></tr></table>"
	End Sub
     Sub HX_PublicAffair()
                 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_PublicAffairsOfficeView")=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_PublicAffairsOfficeAdd")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='officeadd.asp'><font color='#FFFBE8'>&gt;&gt; 办公用品入库</font></a></td></tr>"
				 if WS_S.MemberPriv("WS_PublicAffairsOfficeEdit")=1 or WS_S.MemberPriv("WS_PublicAffairsOfficeDel")=1 then response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='officelist.asp'><font color='#FFFBE8'>&gt;&gt; 办公用品列表</font></a></td></tr>"
			   end if
			   if WS_S.MemberPriv("WS_PublicAffairsDocumentView")=1 then
			   response.Write "<tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 文档管理</font></td></tr><tr> <td bgcolor='#7a553e'>&nbsp;<a target='right' href='viewdocument.asp'><font color='#FFFBE8'>&gt;&gt; 查看文档 </font></a></td></tr>"
				if WS_S.MemberPriv("WS_PublicAffairsDocumentAdd")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='newcreatedocument.asp'><font color='#FFFBE8'>&gt;&gt; 新建文档</font> </a></td></tr>"
                if WS_S.MemberPriv("WS_PublicAffairsDocumentTypeMange")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='setdocument.asp'><font color='#FFFBE8'>&gt;&gt; 类别管理</font></a></td></tr>"
                response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='searchdocument.asp'><font color='#FFFBE8'>&gt;&gt; 检索文档</font></a></td></tr>"
			  end if
			  if WS_S.MemberPriv("WS_PublicAffairsBookView")=1 then
			   response.Write "<tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 图书管理</font><strong></a></strong></td></tr><tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='booksview.asp'><font color='#FFFBE8'>&gt;&gt; 查看图书</font></a></td></tr>"
				if WS_S.MemberPriv("WS_PublicAffairsBookAdd")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='booksadd.asp'><font color='#FFFBE8'>&gt;&gt; 添加图书</font></a></td></tr>"
                if WS_S.MemberPriv("WS_PublicAffairsBookManage")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='booksmanage.asp'><font color='#FFFBE8'>&gt;&gt; 管理图书</font></a></td></tr>"
			  end if
			  if WS_S.MemberPriv("WS_PublicAffairsCarManage")=1 then
			      response.Write " <tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 车辆管理</font><strong></a></strong></td></tr>"
                  if WS_S.MemberPriv("WS_PublicAffairsCarApply")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='carapply.asp'><font color='#FFFBE8'>&gt;&gt; 车辆申请</font></a></td></tr>"
                  if WS_S.MemberPriv("WS_PublicAffairsCarView")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='carlist.asp'><font color='#FFFBE8'>&gt;&gt; 查看车辆</font></a></td></tr>"
			      if WS_S.MemberPriv("WS_PublicAffairsCarModify")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='caradd.asp'><font color='#FFFBE8'>&gt;&gt; 添加车辆</font></a></td></tr>"
			      if WS_S.MemberPriv("WS_PublicAffairsCarModify")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='carmanage.asp'><font color='#FFFBE8'>&gt;&gt; 管理车辆</font></a></td></tr>"
			  end if			  
			  if WS_S.MemberPriv("WS_PublicAffairsMeetingManage")=1 then
			      response.Write " <tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 会议室管理</font><strong></a></strong></td></tr>"
                  if WS_S.MemberPriv("WS_PublicAffairsMeetingApply")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='meetingapply.asp'><font color='#FFFBE8'>&gt;&gt; 会议室申请</font></a></td></tr>"
                  if WS_S.MemberPriv("WS_PublicAffairsMeetingView")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='meetinglist.asp'><font color='#FFFBE8'>&gt;&gt; 查看会议室</font></a></td></tr>"
                  if WS_S.MemberPriv("WS_PublicAffairsMeetingModify")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='meetingadd.asp'><font color='#FFFBE8'>&gt;&gt; 添加会议室</font></a></td></tr>"
			      if WS_S.MemberPriv("WS_PublicAffairsMeetingModify")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='meetingmanage.asp'><font color='#FFFBE8'>&gt;&gt; 管理会议室</font></a></td></tr>"
			  end if			  
			  if WS_S.MemberPriv("WS_PublicAffairsPropertyManage")=1 then
			     response.Write "<tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 资产管理</font><strong></a></strong></td></tr>"
                 if WS_S.MemberPriv("WS_PublicAffairsPropertyView")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='propertylist.asp'><font color='#FFFBE8'>&gt;&gt; 资产清单</font></a></td></tr>"
				 if WS_S.MemberPriv("WS_PublicAffairsPropertyModify")=1 then  response.Write " <tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='propertyadd.asp'><font color='#FFFBE8'>&gt;&gt; 资产登记</font></a></td></tr>" 
				 if WS_S.MemberPriv("WS_PublicAffairsPropertyModify")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='propertymanage.asp'><font color='#FFFBE8'>&gt;&gt; 资产管理</font></a></td></tr>"
				 if WS_S.MemberPriv("WS_PublicAffairsPropertySearch")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='searchproperty.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_PersonalOffice()
	         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_PersonalOfficeMessage")=1 then  response.Write "<tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 内部邮件</font></td></tr><tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='SendMessage.asp'><font color='#FFFBE8'>&gt;&gt; 发邮件</font></a></td></tr><tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='MyListSave.asp'><font color='#FFFBE8'>&gt;&gt;  草稿箱</font></a></td></tr><tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='MyMessage.asp'><font color='#FFFBE8'>&gt;&gt; 收件箱</font></a></td></tr><tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='MySendedMessage.asp'><font color='#FFFBE8'>&gt;&gt; 发件箱</font></a></td></tr><tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='MyDelMessage.asp'><font color='#FFFBE8'>&gt;&gt; 垃圾箱</font></a></td></tr>"  
			  if WS_S.MemberPriv("WS_PersonalOfficeInternetEmail")=1 then  response.Write "<tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 外部邮件</font><strong></a></strong></td></tr><tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='setinternetemail.asp'><font color='#FFFBE8'>&gt;&gt; 创建账号</font></a></td></tr><tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='internetinbox.asp'><font color='#FFFBE8'>&gt;&gt; 收 件 箱</font></a></td></tr>"
              if WS_S.MemberPriv("WS_PersonalOfficeSchEdule")=1 then  response.Write "<tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 日程安排</font></td></tr><tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='SchEduleWait.asp'><font color='#FFFBE8'>&gt;&gt; 待办事宜 </font></a></td></tr><tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='SchEduleNewCreate.asp'><font color='#FFFBE8'>&gt;&gt; 新建日程</font> </a></td></tr><tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='SchEduleEverymonth.asp'><font color='#FFFBE8'>&gt;&gt; 按月查看</font></a></td></tr><tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='SchEduleEveryweek.asp'><font color='#FFFBE8'>&gt;&gt; 按周查看</font></a></td></tr><tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='SchEduleSearch.asp'><font color='#FFFBE8'>&gt;&gt; 日程检索</font></a></td></tr><tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='SchEduleSetSort.asp'><font color='#FFFBE8'>&gt;&gt; 日程设置</font></a></td></tr>"
              if WS_S.MemberPriv("WS_PersonalOfficePDA")=1 then  response.Write "<tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 通 迅 录</font></a></td></tr><tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='PersonalListPDA.asp'><font color='#FFFBE8'>&gt;&gt; 个人通迅录</font></a></td></tr><tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='CompanyListPDA.asp'><font color='#FFFBE8'>&gt;&gt; 企业通迅录</font></a></td></tr><tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 我的文档</font><strong></a></strong></td></tr>"
              if WS_S.MemberPriv("WS_PersonalOfficeDocument")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='newcreatedocument.asp'><font color='#FFFBE8'>&gt;&gt; 新建文档</font></a></td></tr><tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='documentshow.asp'><font color='#FFFBE8'>&gt;&gt; 查看文档</font></a></td></tr><tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='searchdocument.asp'><font color='#FFFBE8'>&gt;&gt; 检索文档</font></a></td></tr>"
             response.write "</table></td></tr><tr><td height='20' align='center'></td></tr></table>"
	 End Sub
	 Sub HX_Bargain()
	            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 width='100%' height='10'></td></tr><tr valign='top'><td width='100%'><table width='118' cellspacing='10' cellpadding align='center' border='0'>"
                if WS_S.MemberPriv("WS_Bargaintype")=1 then  response.Write "<tr><td width='100%' align='center'  class='include1'><a href='bargaintype.asp' target='right' class='menu1'>类别管理</a></td></tr>"
				if WS_S.MemberPriv("WS_BargainAdd")=1 then  response.Write "<tr><td class='include1' align='center'><a href='addbargain.asp' target='right' class='menu1'>合同录入</a></td></tr>"
				if WS_S.MemberPriv("WS_Bargainmanage")=1 then  response.Write "<tr><td class='include1' align='center'><a href='bargainmanage.asp' target='right' class='menu1'>合同管理</a></td></tr>"               
                response.Write "</table></td></tr><tr><td width='100%' align='center' height='20'></td></tr></table>"
	 End Sub
	 Sub HX_BargainType()
	 if WS_S.MemberPriv("WS_Bargaintype")<>1 then HX_GoBack "对不起!您的权限不够!",""
     ColumnName="":Tablename="HX_bargaintype":action=request("action"):WS_Tid=request("WS_Tid")
     if WS_Tid<>"" and isnumeric(WS_Tid) then Orderby=" where WS_Tid="&WS_Tid else Orderby=" ORDER BY WS_OrderBy ASC" end if
     set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
     WS_bargaintypename=WS_S.HX_Replace(request.form("WS_bargaintypename")):WS_OrderBy=WS_S.HX_Replace(request.form("WS_OrderBy"))
     if WS_OrderBy="" then WS_OrderBy=1
     select case action
       case "addsaveinfo"      
       WS_S.HX_Isnull "类别名称不能为空",WS_bargaintypename
       set SERS=WS_S.HX_SetRSD(ColumnName,Tablename," where WS_bargaintypename='"&WS_bargaintypename&"'")	 
	   If SERS.recordcount>0 then
	   HX_GoBack "添加失败:\n此类别已存在!",""
	   End If
	   Call WS_S.HX_RSClose(SERS)  
       msg="“"&WS_bargaintypename&"”类别添加成功!"
       rs.addnew    
       rs("WS_bargaintypename")=WS_bargaintypename
       rs("WS_OrderBy")=WS_OrderBy
       rs.update
	   Call WS_S.SaveAdminLog(LOGINUSERNAME,LogAppointment,msg)
       HX_GoBack msg,"bargaintype.asp"
   case "editsaveinfo"
       WS_S.HX_Isnull "类别名称不能为空",WS_bargaintypename
       set SERS=WS_S.HX_SetRSD(ColumnName,Tablename," where WS_bargaintypename='"&WS_bargaintypename&"' and WS_Tid<>"&WS_Tid)	 
	   If SERS.recordcount>0 then
	   HX_GoBack "修改失败:\n此类别已存在!",""
	   End If
       msg="“"&rs("WS_bargaintypename")&"”类别修改成功!"
	   rs("WS_bargaintypename")=WS_bargaintypename:rs("WS_OrderBy")=WS_OrderBy:rs.update
	    call WS_S.SaveAdminLog(LOGINUSERNAME,LogAppointment,msg)
        HX_GoBack msg,"bargaintype.asp"
    case "del"
        msg="“"&rs("WS_bargaintypename")&"”类别删除成功"
        conn.execute("delete from HX_bargaintype where WS_Tid="&WS_Tid)	
	    call WS_S.SaveAdminLog(LOGINUSERNAME,LogAppointment,msg) 
	   HX_GoBack msg,"bargaintype.asp"  
    end select
    End Sub
  Sub HX_BargainManage() 
      if WS_S.MemberPriv("WS_Bargainmanage")<>1 then HX_GoBack "对不起!您的权限不够!",""
      action=request("action"):WS_Uid=request("WS_Uid"):WS_id=request("WS_id"):DESCORASC=request("DESCORASC"):ColumnName="":Tablename="HX_compactinfo":Orderby=""
      if WS_Uid<>"" and isnumeric(WS_Uid) then  Orderby=" where WS_Uid="&WS_Uid
      if WS_id<>"" and isnumeric(WS_id) then  Orderby=" where WS_id="&WS_id
      if DESCORASC<>"" then  Orderby=" order by "&DESCORASC
      set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
      if action="editcompactsave" then
      rs("WS_statetime")=request("byys")&"-"&request("bmms")&"-"&request("bdds"):rs("WS_overtime")=request("byyo")&"-"&request("bmmo")&"-"&request("bddo"):rs("WS_register")=request("byy")&"-"&request("bmm")&"-"&request("bdd"):rs("WS_state")=request("WS_state"):rs("WS_brief")=request("WS_brief"):rs("WS_notice")=request("WS_notice"):rs("WS_Annex")=request("WS_Annex"):rs("WS_Uid")=WS_Uid:rs.update
      response.redirect "bargainmanage.asp":response.end
      elseif action="del" then
       conn.execute("delete from HX_compactinfo where WS_id="&WS_id)
        response.redirect "bargainmanage.asp"
        response.end
      end if
   End Sub
   Sub HX_BargainAdd()
   if WS_S.MemberPriv("WS_BargainAdd")<>1 then HX_GoBack "对不起!您的权限不够!",""
     action=request("action"):WS_Uid=request("WS_Uid"):ColumnName="":Tablename="HX_compactinfo":Orderby=""
     set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
     if action="addcompact" then
      if (WS_Uid<>"" and not isnumeric(WS_Uid)) or WS_Uid="" or isnull(WS_Uid) then  HX_GoBack "参数错误",""
       rs.addnew:rs("WS_statetime")=request("byys")&"-"&request("bmms")&"-"&request("bdds"):rs("WS_overtime")=request("byyo")&"-"&request("bmmo")&"-"&request("bddo"):rs("WS_register")=request("byy")&"-"&request("bmm")&"-"&request("bdd"):rs("WS_state")=request("WS_state"):rs("WS_brief")=request("WS_brief"):rs("WS_notice")=request("WS_notice"):rs("WS_Annex")=request("WS_Annex"):rs("WS_Uid")=WS_Uid:rs.update 
       HX_GoBack "录入成功！","bargainmanage.asp"
     end if
   End Sub
      Sub HX_WorkFlow()
	         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'><tr><td bgcolor='#4d2811'><font color='#FFFBE8'><img src='../HXIMAGES/menuline.gif' align='absmiddle'> 公文管理</font></td></tr>"
              if WS_S.MemberPriv("WS_WorkFlowWaitList")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='WorkFlowWaitList.asp'><font color='#FFFBE8'>&gt;&gt; 待办公文 </font></a></td></tr>"
              if WS_S.MemberPriv("WS_WORKFLOWIndex")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='WorkFlowIndex.asp'><font color='#FFFBE8'>&gt;&gt; 已发公文 </font> </a></td></tr>"
              if WS_S.MemberPriv("WS_WORKFLOWNews")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='WorkFlowNews.asp'><font color='#FFFBE8'>&gt;&gt; 发文起草</font></a></td></tr>"
              if WS_S.MemberPriv("WS_WORKFLOWAdd")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='WorkFlow.asp'><font color='#FFFBE8'>&gt;&gt; 收文登记</font></a></td></tr>"
              if WS_S.MemberPriv("WS_WORKFLOWNewNiBan")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='WorkFlowNewNiBan.asp'><font color='#FFFBE8'>&gt;&gt; 收文拟办</font></a></td></tr>"
              if WS_S.MemberPriv("WS_WORKFLOWSearch")=1 then  response.Write "<tr><td bgcolor='#7a553e'>&nbsp;<a target='right' href='WorkFlowSearch.asp'><font color='#FFFBE8'>&gt;&gt; 公文检索</font></a></td></tr>"
            response.write "</table></td></tr><tr><td height='20' align='center'></td></tr></table>"
   End Sub
	 Sub HX_InfoChange()
	        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 width='100%' height='10'></td></tr><tr valign='top'> <td width='100%'><table width='118' cellspacing='10' cellpadding align='center' border='0'>"
			if WS_S.MemberPriv("WS_InfoChangeTalkEAR")=1 then response.Write "<tr><td class='include1' align='center'><a href='hxtalkear.asp' target='right' class='menu1'>讨 论 区</a></td></tr>"
			if WS_S.MemberPriv("WS_InfoChangeNetChat")=1 then response.Write "<tr> <td class='include1' align='center'><a href='hxnetchat.asp' target='right' class='menu1'>网络会议</a></td></tr>"
			if WS_S.MemberPriv("WS_InfoChangeNetDisk")=1 then response.Write "<tr><td class='include1' align='center'><a href='netdisk.asp' target='right' class='menu1'>网络硬盘</a></td></tr>"  
            if WS_S.MemberPriv("WS_InfoChangeNetVoteInfo")=1 then response.Write "<tr><td class='include1' align='center'><a href='netvoteinfo.asp' target='right' class='menu1'>网络调查</a></td></tr>"
            response.Write "</table></td></tr><tr> <td width='100%' align='center' height='20'></td></tr></table>"
	 End Sub
	 Sub HX_AnnexProgram()
	       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 width='100%' height='10'></td></tr><tr valign='top'> <td width='100%'> <table width='118' cellspacing='10' cellpadding align='center' border='0'>"
			if WS_S.MemberPriv("WS_AnnexProgramCalendar")=1 then response.Write "<tr><td class='include1' align='center'><a href='Calendar.asp' target='right' class='menu1'>万 年 历</a></td></tr>"
			if WS_S.MemberPriv("WS_AnnexProgramworldtime")=1 then response.Write "<tr><td class='include1' align='center'><a href='worldtime.asp' target='right' class='menu1'>世界时间</a></td></tr>"
		    response.Write "<tr><td class='include1' align='center'><a href='companyintr.asp' target='right' class='menu1'>公司简介</a></td></tr>" 
			response.Write "<tr><td class='include1' align='center'><a href='http://www.iciba.net' target='blank' class='menu1'>在线翻译</a></td></tr>" 
			if WS_S.MemberPriv("WS_AnnexProgramnetipsearch")=1 then response.Write "<tr><td class='include1' align='center'><a href='netipsearch.asp' target='right' class='menu1'>网络IP查询</a></td></tr>"
			if WS_S.MemberPriv("WS_AnnexProgrammobilesearch")=1 then response.Write "<tr><td class='include1' align='center'><a href='mobilesearch.asp' target='right' class='menu1'>手机地址查询</a></td></tr>"
			if WS_S.MemberPriv("WS_AnnexProgramlawrulesearch")=1 then response.Write "<tr><td class='include1' align='center'><a href='lawrulesearch.asp' target='right' class='menu1'>法律法规查询</a></td></tr>"  
			if WS_S.MemberPriv("WS_AnnexProgramtelsearch")=1 then response.Write "<tr><td width='100%' align='center'  class='include1'><a href='telsearch.asp' target='right' class='menu1'>常用电话查询</a></td></tr>"
			if WS_S.MemberPriv("WS_AnnexProgramweburlsearch")=1 then response.Write "<tr><td width='100%' align='center'  class='include1'><a href='weburlsearch.asp' target='right' class='menu1'>常用网址查询</a></td></tr>"
			if WS_S.MemberPriv("WS_AnnexProgrampostcardsearch")=1 then response.Write "<tr><td class='include1' align='center'><a href='postcardsearch.asp' target='right' class='menu1'>身份证号查询</a></td></tr>"					   
            if WS_S.MemberPriv("WS_AnnexProgrampostcodesearch")=1 then response.Write "<tr><td class='include1' align='center'><a href='postcodesearch.asp' target='right' class='menu1'>邮编及区号查询</a></td></tr>"            
           response.Write "</table></td></tr><tr><td width='100%' align='center' height='20'></td></tr></table>"
	 End Sub
	 Sub HX_SystemSet()
	     response.write "<link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><body bgcolor=613c25 topmargin='0' bottommargin='0'><table width='100%' cellspacing cellpadding class='Titletd' align='center'><tr><td width='100%' height='10'></td></tr><tr valign='top'> <td width='100%'><table width='118' cellspacing='10' cellpadding align='center' border='0'>"
		    if WS_S.MemberPriv("WS_SystemSetWebOAconfig")=1 then  response.Write "<tr><td align='center'  class='include1'><a href='WebOAconfig.asp' target='right' class='menu1'>功能设置</a></td></tr>"
            if WS_S.MemberPriv("WS_SystemSetOAInterFaceSet")=1 then  response.Write "<tr><td class='include1' align='center'><a href='OAInterFaceSet.asp' target='right' class='menu1'>界面设置</a></td></tr>"
            if WS_S.MemberPriv("WS_SystemSetModule")=1 then  response.Write "<tr><td width='100%' align='center'  class='include1'><a href='Module.asp' target='right' class='menu1'>单位管理</a></td></tr>"
            if WS_S.MemberPriv("WS_SystemSetDepartment")=1 then  response.Write "<tr><td class='include1' align='center'><a href='Department.asp' target='right' class='menu1'>部门管理</a></td></tr>"
            if WS_S.MemberPriv("WS_SystemSetAppointment")=1 then  response.Write "<tr><td class='include1' align='center'><a href='Appointment.asp' target='right' class='menu1'>职位管理</a></td></tr>"
            if WS_S.MemberPriv("WS_SystemSetMemberPriv")=1 then  response.Write "<tr><td class='include1' align='center'><a href='MemberPriv.asp' target='right' class='menu1'>权限设置</a></td></tr>"
            if WS_S.MemberPriv("WS_SystemSetAttendanceSet")=1 then  response.Write "<tr><td class='include1' align='center'><a href='AttendanceSet.asp' target='right' class='menu1'>考勤设置</a></td></tr>"
            if WS_S.MemberPriv("WS_SystemSettalkear")=1 then  response.Write "<tr><td class='include1' align='center'><a href='hxtalkear.asp' target='right' class='menu1'>讨论区管理</a></td></tr>"
            if WS_S.MemberPriv("WS_SystemSetNotifyManage")=1 then  response.Write "<tr><td class='include1' align='center'><a href='hxNotifyManage.asp' target='right' class='menu1'>通知公告管理</a></td></tr>"
            if WS_S.MemberPriv("WS_SystemSetWorkFlowType")=1 then  response.Write "<tr><td class='include1' align='center'><a target='right' href='WorkFlowType.asp' class='menu1'>公文类别管理</a></td></tr>"
            if WS_S.MemberPriv("WS_SystemSetnetvoteinfo")=1 then  response.Write "<tr><td class='include1' align='center'><a href='netvoteinfo.asp' target='right' class='menu1'>网络调查设置</a></td></tr>"
            if WS_S.MemberPriv("WS_SystemSetlawrule")=1 then  response.Write "<tr><td class='include1' align='center'><a href='lawrulesearch.asp' target='right' class='menu1'>法律法规设置</a></td></tr>"
            if WS_S.MemberPriv("WS_SystemSettel")=1 then  response.Write "<tr><td width='100%' align='center'  class='include1'><a href='telsearch.asp' target='right' class='menu1'>常用电话设置</a></td></tr>"
            if WS_S.MemberPriv("WS_SystemSetweburl")=1 then  response.Write "<tr><td width='100%' align='center'  class='include1'><a href='weburlsearch.asp' target='right' class='menu1'>常用网址设置</a></td></tr>"
            if WS_S.MemberPriv("WS_SystemSetInterviewControl")=1 then  response.Write "<tr><td class='include1' align='center'><a href='SystemInterviewControl.asp' target='right' class='menu1'>系统访问控制</a></td></tr>"
            if WS_S.MemberPriv("WS_SystemSetOperation")=1 then  response.Write "<tr><td class='include1' align='center'><a href='Operation.asp' target='right' class='menu1'>系统日志管理</a></td></tr>"
            if WS_S.MemberPriv("WS_SystemSetWSOADATABASEMANAGE")=1 then  response.Write "<tr><td class='include1' align='center'><a href='WSOADATABASEMANAGE.ASP' target='right' class='menu1'>数据库管理</a></td></tr>"
      response.write "</table></td></tr><tr><td width='100%' align='center' height='10'></td></tr></table>"
	 End Sub
	 Sub HX_ChangUserSet()
	    action=request("action"):ColumnName="":Tablename="HX_CompanyUser"
        if action="saveinfo" then
        Orderby=" where WS_Uid="&loginuid&" and WS_PassWord='"&MD5(request.form("Oldpassword"))&"'"
        set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
        if rs.recordcount<=0 then
	     msg="<script>alert('旧密码错误！');window.opener.location.reload();window.close();</script>"
        else	
         rs("WS_password")=MD5(request.form("password")):rs.update
	     if MD5(request.form("Oldpassword"))<>MD5(request.form("password")) then msg="<script>alert('设置成功！\n密码已更改需重新登录！');window.opener.location.reload();window.close();</script>" else msg="<script>alert('设置成功！\n密码未更改无需重新登录！');window.close();</script>"
        end if
         response.write msg:response.end
       end if
       response.write "<head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>个人设置</title><link rel=stylesheet type=text/css href='HXinclude/HX_Css.css'></head><body topmargin='10' leftmargin='0' bottommargin='10'><script language='JavaScript'>function amsub(form){if (form.OldPassword.value==''){ alert('请输入旧密码!');  form.OldPassword.focus();  return false;}if ((form.password.value=='')||(form.password.value!=form.repassword.value)){ alert('密码不能为空或二次密码不一致!');  form.repassword.focus(); return false;}return true;}</script><table width='400'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#613c25'><tr><td width='400' colspan='2' bgcolor=FFFBE8><table width='100%'  border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='hximages/titleline.gif'><font class='fontmenu'>用户个人设置</font></td></tr></table><table width='100%'  border='0' cellspacing='1' cellpadding='3' bgcolor=FFFBE8><form name='form1' method='post' action='' onSubmit='return amsub(this);'><tr bgcolor='#FFFBE8'><td width='27%' align='right'>用 户 名：</td><td width='73%'><input name='WS_UserName' type='text' value='"&LOGINUSERNAME&"' size=21 readonly></td></tr><tr bgcolor='#FFFBE8'><td align='right'>旧 密 码：</td><td><input type='password' name='OldPassword' size=21></td></tr><tr bgcolor='#FFFBE8'><td align='right'>密　　码：</td><td><input type='password' name='password' size=21></td></tr><tr bgcolor='#FFFBE8'><td align='right'>确认密码：</td><td><input type='password' name='repassword' size=21></td></tr><tr bgcolor='#FFFBE8'><td align='right'>&nbsp;</td><td><input type='submit' name='Submit' value=' 确定修改 '> <input type='reset' name='Submit2' value=' 重 置 '> <input type='hidden' name='action' value='saveinfo'></td></tr></form></table></td></tr></table>"
	 End Sub
	 Sub HX_MemberAdd()	
	        rs("WS_name")=WS_s.HX_Replace(request.form("WS_name"))
			rs("WS_Appointment")=WS_s.HX_Replace(request.form("WS_Appointment"))
			rs("WS_native")=WS_s.HX_Replace(request.form("WS_native"))
			rs("WS_sex")=WS_s.HX_Replace(request.form("WS_sex"))
			rs("WS_born")=WS_s.HX_Replace(request.form("WS_byy"))&"-"&WS_s.HX_Replace(request.form("WS_bmm"))&"-"&WS_s.HX_Replace(request.form("WS_bdd"))
			rs("WS_folk")=WS_s.HX_Replace(request.form("WS_folk"))
			rs("WS_phone")=WS_s.HX_Replace(request.form("WS_phone"))
			rs("WS_polity")=WS_s.HX_Replace(request.form("WS_polity"))
			rs("WS_jobdate")=WS_s.HX_Replace(request.form("WS_wyy"))&"-"&WS_s.HX_Replace(request.form("WS_wmm"))&"-"&WS_s.HX_Replace(request.form("WS_wdd"))
			rs("WS_marry")=WS_s.HX_Replace(request.form("WS_marry"))
			rs("WS_address")=WS_s.HX_Replace(request.form("WS_address"))
			rs("WS_Duty")=WS_s.HX_Replace(request.form("Duty"))
			rs("WS_MPID")=WS_s.HX_Replace(request.form("MemberPriv"))
			rs("WS_code")=WS_s.HX_Replace(request.form("WS_code"))
			rs("WS_job")=WS_s.HX_Replace(request.form("WS_job"))
			rs("WS_diploma")=WS_s.HX_Replace(request.form("WS_diploma"))
			rs("WS_indentity")=WS_s.HX_Replace(request.form("WS_indentity"))
			rs("WS_department")=WS_s.HX_Replace(request.form("WS_department"))
			rs("WS_register")=WS_s.HX_Replace(request.form("WS_register"))
			rs("WS_title")=WS_s.HX_Replace(request.form("WS_title"))
			rs("WS_username")=WS_s.HX_Replace(request.form("WS_username"))
			if WS_s.HX_Replace(request.form("WS_password"))<>"" then rs("WS_password")=MD5(WS_s.HX_Replace(request.form("WS_password")))
			rs("WS_Appointment")=WS_s.HX_Replace(request.form("WS_Appointment"))
			rs("WS_email")=WS_s.HX_Replace(request.form("WS_email"))
			rs("WS_oicq")=WS_s.HX_Replace(request.form("WS_oicq"))
			rs("WS_college")=WS_s.HX_Replace(request.form("WS_college"))
			rs("WS_graduate_time")=WS_s.HX_Replace(request.form("WS_graduate_time"))
			rs("WS_major")=WS_s.HX_Replace(request.form("WS_major"))
			rs("WS_kincall1")=WS_s.HX_Replace(request.form("WS_kincall1"))
			rs("WS_kincall2")=WS_s.HX_Replace(request.form("WS_kincall2"))
			rs("WS_kinname1")=WS_s.HX_Replace(request.form("WS_kinname1"))
			rs("WS_kinname2")=WS_s.HX_Replace(request.form("WS_kinname2"))
			rs("WS_kin1")=WS_s.HX_Replace(request.form("WS_kin1"))
			rs("WS_kin2")=WS_s.HX_Replace(request.form("WS_kin2"))
			rs("WS_kindept1")=WS_s.HX_Replace(request.form("WS_kindept1"))
			rs("WS_kindept2")=WS_s.HX_Replace(request.form("WS_kindept2"))
			rs("WS_workname1")=WS_s.HX_Replace(request.form("WS_workname1"))
			rs("WS_workname2")=WS_s.HX_Replace(request.form("WS_workname2"))
			rs("WS_worktime1")=WS_s.HX_Replace(request.form("WS_worktime1"))
			rs("WS_worktime2")=WS_s.HX_Replace(request.form("WS_worktime2"))
			rs("WS_workdept1")=WS_s.HX_Replace(request.form("WS_workdept1"))
			rs("WS_workdept2")=WS_s.HX_Replace(request.form("WS_workdept2"))
			rs("WS_workduty1")=WS_s.HX_Replace(request.form("WS_workduty1"))
			rs("WS_workduty2")=WS_s.HX_Replace(request.form("WS_workduty2"))
			rs("WS_workman1")=WS_s.HX_Replace(request.form("WS_workman1"))
			rs("WS_workman2")=WS_s.HX_Replace(request.form("WS_workman2"))
			rs("WS_special")=WS_s.HX_Replace(request.form("WS_special"))
			rs("WS_talkman")=WS_s.HX_Replace(request.form("WS_talkman"))
			rs("WS_okman")=WS_s.HX_Replace(request.form("WS_okman"))
			rs("WS_height")=WS_s.HX_Replace(request.form("WS_height"))
			rs("WS_weight")=WS_s.HX_Replace(request.form("WS_weight"))
			rs("WS_zcnumber")=WS_s.HX_Replace(request.form("WS_zcnumber"))
			rs("WS_zippo")=WS_s.HX_Replace(request.form("WS_zippo"))
			rs("WS_jcry")=WS_s.HX_Replace(request.form("WS_jcry"))
			rs("WS_jjlxr")=WS_s.HX_Replace(request.form("WS_jjlxr"))
			rs("WS_selfgx")=WS_s.HX_Replace(request.form("WS_selfgx"))
			rs("WS_phone1")=WS_s.HX_Replace(request.form("WS_phone1"))
			rs("WS_mobile1")=WS_s.HX_Replace(request.form("WS_mobile1"))
			rs("WS_xphone1")=WS_s.HX_Replace(request.form("WS_xphone1"))
			rs("WS_xphone2")=WS_s.HX_Replace(request.form("WS_xphone2"))
			rs("WS_time1")=WS_s.HX_Replace(request.form("WS_time1"))
			rs("WS_time2")=WS_s.HX_Replace(request.form("WS_time2"))
			rs("WS_time3")=WS_s.HX_Replace(request.form("WS_time3"))
			rs("WS_time4")=WS_s.HX_Replace(request.form("WS_time4"))
			rs("WS_time5")=WS_s.HX_Replace(request.form("WS_time5"))
			rs("WS_time6")=WS_s.HX_Replace(request.form("WS_time6"))
			rs("WS_time7")=WS_s.HX_Replace(request.form("WS_time7"))
			rs("WS_time8")=WS_s.HX_Replace(request.form("WS_time8"))
			rs("WS_collegename1")=WS_s.HX_Replace(request.form("WS_collegename1"))
			rs("WS_collegename2")=WS_s.HX_Replace(request.form("WS_collegename2"))
			rs("WS_collegename3")=WS_s.HX_Replace(request.form("WS_collegename3"))
			rs("WS_collegename4")=WS_s.HX_Replace(request.form("WS_collegename4"))
			rs("WS_collegename5")=WS_s.HX_Replace(request.form("WS_collegename5"))
			rs("WS_collegename6")=WS_s.HX_Replace(request.form("WS_collegename6"))
			rs("WS_collegename7")=WS_s.HX_Replace(request.form("WS_collegename7"))
			rs("WS_collegename8")=WS_s.HX_Replace(request.form("WS_collegename8"))
			rs("WS_spname1")=WS_s.HX_Replace(request.form("WS_spname1"))
			rs("WS_spname2")=WS_s.HX_Replace(request.form("WS_spname2"))
			rs("WS_spname3")=WS_s.HX_Replace(request.form("WS_spname3"))
			rs("WS_spname4")=WS_s.HX_Replace(request.form("WS_spname4"))
			rs("WS_spname5")=WS_s.HX_Replace(request.form("WS_spname5"))
			rs("WS_spname6")=WS_s.HX_Replace(request.form("WS_spname6"))
			rs("WS_spname7")=WS_s.HX_Replace(request.form("WS_spname7"))
			rs("WS_spname8")=WS_s.HX_Replace(request.form("WS_spname8"))
			rs("WS_xw1")=WS_s.HX_Replace(request.form("WS_xw1"))
			rs("WS_xw2")=WS_s.HX_Replace(request.form("WS_xw2"))
			rs("WS_xw3")=WS_s.HX_Replace(request.form("WS_xw3"))
			rs("WS_xw4")=WS_s.HX_Replace(request.form("WS_xw4"))
			rs("WS_xw5")=WS_s.HX_Replace(request.form("WS_xw5"))
			rs("WS_xw6")=WS_s.HX_Replace(request.form("WS_xw6"))
			rs("WS_xw7")=WS_s.HX_Replace(request.form("WS_xw7"))
			rs("WS_xw8")=WS_s.HX_Replace(request.form("WS_xw8"))
			rs("WS_worktime3")=WS_s.HX_Replace(request.form("WS_worktime3"))
			rs("WS_worktime4")=WS_s.HX_Replace(request.form("WS_worktime4"))
			rs("WS_worktime5")=WS_s.HX_Replace(request.form("WS_worktime5"))
			rs("WS_workdept3")=WS_s.HX_Replace(request.form("WS_workdept3"))
			rs("WS_workdept4")=WS_s.HX_Replace(request.form("WS_workdept4"))
			rs("WS_workdept5")=WS_s.HX_Replace(request.form("WS_workdept5"))
			rs("WS_workduty3")=WS_s.HX_Replace(request.form("WS_workduty3"))
			rs("WS_workduty4")=WS_s.HX_Replace(request.form("WS_workduty4"))
			rs("WS_workduty5")=WS_s.HX_Replace(request.form("WS_workduty5"))
			rs("WS_workman3")=WS_s.HX_Replace(request.form("WS_workman3"))
			rs("WS_workman4")=WS_s.HX_Replace(request.form("WS_workman4"))
			rs("WS_workman5")=WS_s.HX_Replace(request.form("WS_workman5"))
			rs("WS_sallary1")=WS_s.HX_Replace(request.form("WS_sallary1"))
			rs("WS_sallary2")=WS_s.HX_Replace(request.form("WS_sallary2"))
			rs("WS_sallary3")=WS_s.HX_Replace(request.form("WS_sallary3"))
			rs("WS_sallary4")=WS_s.HX_Replace(request.form("WS_sallary4"))
			rs("WS_sallary5")=WS_s.HX_Replace(request.form("WS_sallary5"))
			rs("WS_workname3")=WS_s.HX_Replace(request.form("WS_workname3"))
			rs("WS_workname4")=WS_s.HX_Replace(request.form("WS_workname4"))
			rs("WS_workname5")=WS_s.HX_Replace(request.form("WS_workname5"))
			rs.update
	 End Sub
     Sub HX_WageWSOASCOM()
	      rs("WS_dotime")=request("yy")&"-"&request("mm")&"-"&"15"
          rs("WS_wage")=request("WS_wage")
          rs("WS_pay")=request("WS_pay")
          if request("WS_house")<>"" then rs("WS_house")=request("WS_house")
          if request("WS_lunch")<>"" then rs("WS_lunch")=request("WS_lunch")
          if request("WS_outpay")<>"" then rs("WS_outpay")=request("WS_outpay")
          if request("WS_bonus")<>"" then rs("WS_bonus")=request("WS_bonus")
          if request("WS_card")<>"" then  rs("WS_card")=request("WS_card")
          if request("WS_ratal")<>"" then  rs("WS_ratal")=request("WS_ratal")
          if request("WS_safe")<>"" then rs("WS_safe")=request("WS_safe")
          if request("WS_other")<>"" then  rs("WS_other")=request("WS_other")
          if request("WS_brief")<>"" then  rs("WS_brief")=request("WS_brief")
          if request("WS_lastmoney")<>"" then rs("WS_lastmoney")=request("WS_lastmoney")
          rs("WS_givetime")=request("yy")&"-"&request("bmm")&"-"&request("bdd")
          rs("WS_Uid")=request("WS_Uid")
         rs.update 
     End Sub
	 Sub HX_Webmsms()
	 set urs=WS_S.HX_SetRSD("","HX_CompanyUser"," where WS_LoginIn=0 and WS_Uid="&loginuid)	 
	 if urs.recordcount>0 then
	  if session("WSOASCOM")="oa.sspig.com" then
	    URS("WS_LoginIn")=1:URS.update:session("WSOASCOM")=""
	   else	    
	    response.write "<script>alert('此账号在别的地方已登录，您被迫下线！');parent.top.location='../HX_Login.asp?action=loginout&online=wsoas';</script>"
	  end if
	 end if
	 WS_S.HX_RSClose urs
	 response.Write "<SCRIPT LANGUAGE=javascript>parent.onlinecount.innerHTML=' "&WS_S.HX_OutOnline(0)&" ';</SCRIPT>"
     set rs=WS_S.HX_SetRSD("WS_sendnmb,WS_SMSstype","HX_WebSMS"," where WS_recvnmb="&loginuid&" and WS_Ifread=1")
     if rs.recordcount>0 then  session("sendnmb")=rs("WS_Sendnmb"):response.Write("<SCRIPT LANGUAGE=javascript>parent.psd.src='../HXIMAGES/Websms/sound/mail.wav';parent.comesms.src='../HXIMAGES/Websms/comesms.gif';show('"&rs("WS_sendnmb")&"');</SCRIPT>")   else  response.Write("<SCRIPT LANGUAGE=javascript>parent.comesms.src='../HXIMAGES/Websms/websms.gif';</SCRIPT>")  end if
	 End Sub
	 Sub HX_Webmsm()	 
	    set rs=WS_S.HX_SetRSD("WS_sendnmb,WS_SMSstype","HX_WebSMS"," where WS_recvnmb="&loginuid&" and WS_Ifread=1")
        if rs.recordcount>0 then session("sendnmb")=rs("WS_Sendnmb"):response.Write("<SCRIPT LANGUAGE=javascript>parent.psd.src='../HXIMAGES/Websms/sound/mail.wav';parent.WSOA"&session("sendnmb")&".src='../HXIMAGES/Websms/4-1.gif';</SCRIPT>")   else   response.Write("<SCRIPT LANGUAGE=javascript>parent.WSOA"&session("sendnmb")&".src='../HXIMAGES/Websms/userface.gif';</SCRIPT>")  end if
        WS_S.HX_RSClose rs			 
	 End Sub
	 Sub HX_WebsmsList()
	    response.write "<html><head><NOSCRIPT><IFRAME SRC=""*.html""></IFRAME></NOSCRIPT><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><script language=""JavaScript"" src=""../HXINCLUDE/HX_menu.js"" type=""text/JavaScript""></script><link href=""../hxinclude/HX_websms.css"" rel=""stylesheet"" type=""text/css""></head><script>setTimeout('window.location.reload()',10000);</script><body oncontextmenu='return false' ondragstart='return false' onselectstart='return false' onkeydown='if((event.ctrlKey)||(event.keyCode==8)||(event.keyCode==116)){event.keyCode=0;return false}'><bgsound src="""" id=""psound"" name=""psound"" loop=1><bgsound id=""psd"" name=""psd"" src="""" loop=""1""><table width=""88"" border=""0"" cellpadding=""0"" cellspacing=""0"" bgcolor=""#848284"" class=""iframe""><tr><td><table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"" class=""butup""  onMouseDown=""this.className='tddown1'"" onMouseUp=""this.className='butup'"" onMouseOver=""this.className='but1'"" onMouseOut=""this.className='butup'""><tr><td align=""center"" onclick=""return change(1)"" onMouseDown=""this.className='tddown2'"" onMouseUp=""this.className='';psound.src='../HXIMAGES/Websms/sound/01.wav'"" onMouseOver=""this.className='but2'"" onMouseOut=""this.className=''"">在线人员</td></tr></table></td></tr><tr><td height=""300"" align=""center"" valign=""top"" bgcolor=""#BF9B73"" id=""a1"" style=""DISPLAY: block""><table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0""><tr><td width=""89%"" rowspan=""3"" align=""right""><div id=""div1"" style=""overflow: hidden;height: 300px;width:85px;"">"
WS_S.HX_OutOnline(1)
       response.write "</div></td><td><img src=""../HXIMAGES/Websms/scroll1.gif"" width=""16"" height=""16"" border=""0"" onMousedown=""this.src='../HXIMAGES/Websms/scroll2.gif';mscroll(-30,1)""  onMouseUp=""this.src='../HXIMAGES/Websms/scroll1.gif';mscroll(0,1)"" onMouseOut=""mscroll(0,1);change(1)""></td></tr><tr><td height=""266"">&nbsp;</td></tr><tr><td height=""18"" valign=""bottom""><img src=""../HXIMAGES/Websms/scroll3.gif"" width=""16"" height=""16"" border=""0"" onMousedown=""this.src='../HXIMAGES/Websms/scroll4.gif';mscroll(30,1)"" onMouseUp=""this.src='../HXIMAGES/Websms/scroll3.gif';mscroll(0,1)"" onMouseOut=""mscroll(0,1);change(1)""></td></tr></table></td></tr><tr><td><table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"" class=""butup""  onMouseDown=""this.className='tddown1'"" onMouseUp=""this.className='butup'"" onMouseOver=""this.className='but1'"" onMouseOut=""this.className='butup'""><tr><td align=""center"" onclick=""return change(2)"" onMouseDown=""this.className='tddown2'"" onMouseUp=""this.className='';psound.src='../HXIMAGES/Websms/sound/01.wav'"" onMouseOver=""this.className='but2'"" onMouseOut=""this.className=''"">全部人员</td></tr></table></td></tr><tr><td height=""300"" align=""center"" valign=""top"" bgcolor=""#BF9B73"" id=""a2"" style=""DISPLAY:none""><table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0""><tr><td width=""89%"" rowspan=""3"" align=""right""><div id=""div2"" style=""overflow: hidden;height: 300px;width:85px;"">"
WS_S.HX_OutListMember()
       response.write "</div></td><td><img src=""../HXIMAGES/Websms/scroll1.gif"" width=""16"" height=""16"" border=""0"" onMousedown=""this.src='../HXIMAGES/Websms/scroll2.gif';mscroll(-30,2)""  onMouseUp=""this.src='../HXIMAGES/Websms/scroll1.gif';mscroll(0,2)"" onMouseOut=""mscroll(0,2);change(2)""></td></tr><tr><td height=""266"">&nbsp;</td></tr><tr><td height=""18"" valign=""bottom""><img src=""../HXIMAGES/Websms/scroll3.gif"" width=""16"" height=""16"" border=""0"" onMousedown=""this.src='../HXIMAGES/Websms/scroll4.gif';mscroll(30,2)"" onMouseUp=""this.src='../HXIMAGES/Websms/scroll3.gif';mscroll(0,2)"" onMouseOut=""mscroll(0,2);change(2)""></td></tr></table></td></tr><tr><td height=""2"" bgcolor=""#D4D0C8""></td></tr><tr><td><table width=""100%"" bordercolor=""#848284"" bgcolor=""#D4D0C8"" border=""1"" cellspacing=""0"" cellpadding=""0""><tr align=""center""><td height=""18"" bordercolor=""#848284"" bgcolor=""#D4D0C8""><table width=""100%"" height=""100%"" border=""1"" cellpadding=""0"" cellspacing=""0""><tr><td align=""center"" bordercolor=""#D4D0C8"" onMouseDown=""this.className='tddown'"" onMouseUp=""this.className='but'"" onMouseOver=""this.className='but'"" onMouseOut=""this.className=''"" onClick=""opener.parent.right.location.href='allsmsview.asp';"">全部消息</td></tr></table></td></tr></table></td></tr></table><iframe src='refresh.asp' width='0' marginwidth='0' height='0' marginheight='0' scrolling='no' hspace='0' vspace='0'></iframe></body></html>"
	 End sub
	 Sub HX_Websmssendata()
	  	fontb=request.Form("fontb"):fonti=request.Form("fonti"):fontu=request.Form("fontu"):recvnmb=request("recvnmb"):recvname=request.Form("recvname"):font=trim(request.Form("font")):fontcolor=trim(request.Form("fontcolor")): fontsize=trim(request.Form("fontsize")):message=request("saytext"):msgtype=request.Form("msgtype")
	    if msgtype="" then msgtype=0
	    if len(message)>150 then message=left(message,150)
	    if font<>"" then style="face='"&font&"'"
	    if fontcolor<>"" then style=style&" color='"&fontcolor&"'"
	    if fontsize<>"" then style=style&"style='font-size:"&fontsize&"px;line-height:"&fontsize+10 &"px'"
	    message="<font "&style&">"&message&"</font>"
	    if fontb<>"" then message="<b>"&message&"</b>"
	    if fonti<>"" then message="<i>"&message&"</i>"
	    if fontu<>"" then message="<u>"&message&"</u>"
        ColumnName="":tablename="HX_WebSMS":Orderby=""
         set rs=WS_S.HX_SetRSD(ColumnName,tablename,Orderby)
          rs.addnew:rs("WS_Sendnmb")=loginuid:rs("WS_recvnmb")=recvnmb:rs("WS_message")=message:rs("WS_SMSstype")="个人短信":rs.update
          session(cstr(session("nmb"))&recvnmb)="<div onMouseOver=this.className='onselect' onMouseOut=this.className='' onDblClick='say.saytext.value=say.saytext.value+this.innerText'><font color=#ff0000>["&now()&"]　"&session("name")&"<br>"&message&"</font></div>"&session(cstr(session("nmb"))&recvnmb)
          response.Write("<script>window.close();</script>")
	 End Sub
	 Sub HX_allsmsview()
	 ColumnName="":Tablename="HX_WebSMS":action=request("action"):page=request("page")
     if action="del" then 
     WS_SMID=request("MAID") 
     if WS_SMID="" or isnull(WS_SMID) then	HX_GoBack "非法操作",""  
      conn.execute("delete from "&Tablename&" where WS_SMID in("&WS_SMID&")")
      WS_S.HX_Redirect "allsmsview.asp?page="&page
    end if
     Orderby=" where WS_Recvnmb="&loginuid&" order by WS_Wdate desc"
     set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
	 response.write "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>短消息管理</title><link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'></head><body topmargin='20' leftmargin='0' bottommargin='0'><script src='../HXINCLUDE/HX_Function.js'></script><script src='../HXINCLUDE/HX_menu.js'></script>"
	   response.write "<table width='596'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#613c25'><tr><td colspan='2' bgcolor=FFFBE8><table width='100%'  border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>全部消息</font></td></tr></table><table width='100%'  border='0' cellspacing='1' cellpadding='3' bgcolor=FFFBE8><form method='post' action='allsmsview.asp?action=del&page="&page&"' name='form1'><tr bgcolor=""#BF9B73"" class=""td4""><td width=""27"" align=center><input type=""checkbox"" name=""checkall"" value=""checkbox"" onClick=""chkall(this)"" class=""radio"" style=""background-color:BF9B73;""></td><td width=""54"" align=center>序号</td><td width=""83""><div align=""center""><font color=""#FFFBE8"">发送人</font></div></td><td width=""69""><div align=""center"">类型</div></td><td width=""201""><div align=""center""><font color=""#FFFBE8"">消息内容</font></div></td><td width=""117""><div align=""center""><font color=""#FFFBE8"">日期</font></div></td></tr>"
   if rs.recordcount<=0 then
   response.Write "<tr><td colspan=6 bgcolor=FFFBE8 height=25 align=center>暂时还没有收到短信！</td></tr>"
    else
   rs.PageSize =14 '每页记录条数
	iCount=rs.RecordCount '记录总数
	iPageSize=rs.PageSize
    maxpage=rs.PageCount 
    if Not IsNumeric(page) or page="""" then
        page=1
      else
        page=cint(page)
      end if
      if page<1 then
        page=1
      elseif  page>maxpage then
        page=maxpage
      end if
      rs.AbsolutePage=Page
	  if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	   else
		x=iPageSize
	  end if
	  ii=0
	  do while not rs.EOF
	 response.Write "<tr bgcolor=""#FFFBE8"" onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><td width=""27"" align=center><input type=""checkbox"" name=""MAID"" value='"&rs("WS_SMID")&"' class=""radio"" style=""background-color:FFFBE8;""></td><td width=""54"" align=center>"&rs("WS_SMID")&"</td>"
	  Call WS_S.HX_OutUserInfo(rs("WS_Sendnmb"))
	 response.Write "<td width=""83"" align=""left""><a href=""javascript:show('"&rs("WS_Sendnmb")&"');"">"&OutName
	 if rs("WS_Ifread")=1 then	 response.write "<img src='../hximages/news.gif' border=0>"
	 response.write "</a> </td><td width=""69"">"&rs("WS_SMSstype")&"</td><td width=""201"">"&rs("WS_Message")&"</td><td width=""117"">"&rs("WS_Wdate")&"</td></tr>"
      ii=ii+1
	  if ii>=rs.PageSize then Exit Do
	  rs.movenext
      loop
      response.write "<tr bgcolor=""#BF9B73"" class=""td4""><td colspan=""6"" height=""30""><input type=""checkbox"" name=""checkall"" value=""checkbox"" onClick=""chkall(this)"" id=""checkall"" class=""radio"" style=""background-color:BF9B73;""><label for=""checkall"">全选</label>&nbsp;将选中全部&nbsp;<input name=""del"" type=""submit"" value=""删除"" style=""font-size: 12px;color:#FFFBE8;border: 1px solid #000000;background-color: #BF9B73; ""></td></tr>"
      call WS_S.PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>",5)
      end if
      call WS_S.HX_RSClose(rs):response.Write "</form></table></td></tr></table>"
	 End Sub
Sub HX_WebsmsSend()
recvid=request.QueryString("id"):Call WS_S.HX_OutUserInfo(recvid):recvname=OutName:ColumnName="":tablename="HX_WebSMS":Orderby=" where WS_Sendnmb="&recvid&" and WS_recvnmb="&loginuid&" and WS_Ifread=1":set rs=WS_S.HX_SetRSD(ColumnName,tablename,Orderby):if rs.recordcount>0 then response.Redirect("recv.asp?id="&recvid)
WSOASCOMSTR="<html><head><title>信息发送</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><link href='../hxinclude/HX_websms.css' rel='stylesheet' type='text/css'><script src='../HXinclude/HX_Function.js'></script><script language='JavaScript' src='../HXINCLUDE/type.js'></script></head><body onkeydown='if(event.ctrlKey)return false;' onFocus='say.saytext.focus()'>"
WSOASCOMSTR=WSOASCOMSTR&"<table width='390' border='1' cellpadding='0' cellspacing='1' bordercolor='#D4D0C8'><form action='senddate.asp' method='post' name='say' id='say'><tr><td width='390' height='70'><fieldset><legend>送给</legend><table width='100%' border='0' cellpadding='0' cellspacing='0' bordercolor='#D4D0C8'><tr><td bordercolor='#D4D0C8' height='25'>　姓 名：<input name='name' type='text' "
WSOASCOMSTR=WSOASCOMSTR&"class='fam' id='name' readonly value='"&recvname&"' size='30'><input name='recvnmb' type='hidden' value='"&recvid&"'><div id='facelay' onClick=""MM_showHideLayers('facelay','','hide')"" style='position:absolute; visibility:hidden; width:205px; height:150px; z-index:1; overflow:auto; left: 70px;top:80;background-color: #D4D0C8; border: 1px solid #000000;'><table width='93%' border='0' cellspacing='1' "
WSOASCOMSTR=WSOASCOMSTR&"cellpadding='2'><tr><td><img src='../HXIMAGES/img/12.gif' title='笑脸:)' onClick=selectimg(':)')></td><td><img src='../HXIMAGES/img/9.gif' title='生气:(' onClick=selectimg(':(')></td><td><img src='../HXIMAGES/img/19.gif' title='疑问?_?' onClick=selectimg('?_?')></td><td><img src='../HXIMAGES/img/18.gif' title='吃惊:o' onClick=selectimg(':o')></td><td><img src='../HXIMAGES/img/11.gif' title='眼镜8)' onClick=selectimg('8)')>"
WSOASCOMSTR=WSOASCOMSTR&"</td><td><img src='../HXIMAGES/img/6.gif' title='Kiss:*' onClick=selectimg(':*')></td><td><img src='../HXIMAGES/img/15.gif' title='哭脸:~' onClick=selectimg(':~')></td><td><img src='../HXIMAGES/img/13.gif' title='吐舌头:p' onClick=selectimg(':p')></td></tr><tr><td><img src='../HXIMAGES/img/21.gif' title='媚眼;)' onClick=selectimg(';)')></td><td><img src='../HXIMAGES/img/16.gif' title='害羞=^_^=' onClick=selectimg('=^_^=')></td><td>"
WSOASCOMSTR=WSOASCOMSTR&"<img src='../HXIMAGES/img/8.gif' title='流口水:)~' onClick=selectimg(':)~')></td><td><img src='../HXIMAGES/img/1.gif' title='傻笑:D' onClick=selectimg(':D')></td><td><img src='../HXIMAGES/img/7.gif' title='打颤:{' onClick=selectimg(':{')></td><td><img src='../HXIMAGES/img/14.gif' title='汗颜:_(' onClick=selectimg(':_')></td><td><img src='../HXIMAGES/img/17.gif' title='眨眼b)' onClick=selectimg('b)')></td>""<td><img src='../HXIMAGES/img/10.gif' title='尴尬@_@' onClick=selectimg('@_@')></td></tr>"
WSOASCOMSTR=WSOASCOMSTR&"<tr><td><img src='../HXIMAGES/img/5.gif' title='脸红*^_^*' onClick=selectimg('*^_^*')></td><td><img src='../HXIMAGES/img/4.gif' title='惊讶^o^' onClick=selectimg('^o^')></td><td><img src='../HXIMAGES/img/3.gif' title='酷吧B)' onClick=selectimg('B)')></td><td><img src='../HXIMAGES/img/20.gif' title='明白:0' onClick=selectimg(':0')></td><td><img src='../HXIMAGES/img/2.gif'  title='傲慢K)' onClick=selectimg('K)')></td><td><img src='../HXIMAGES/img/22.gif' title='发怒%(' onClick=selectimg('%(')></td><td>"
WSOASCOMSTR=WSOASCOMSTR&"<img src='../HXIMAGES/img/23.gif' title='羡慕*_*' onClick=selectimg('*_*')></td><td><img src='../HXIMAGES/img/24.gif' title='怒骂:8' onClick=selectimg(':8')></td> </tr><tr> <td><img src='../HXIMAGES/img/25.gif' title='晕倒&)' onClick=selectimg('&)')></td><td><img src='../HXIMAGES/img/26.gif' title='大笑:()' onClick=selectimg(':()')></td><td><img src='../HXIMAGES/img/27.gif' title='欠扁@_#' onClick=selectimg('@_#')></td></tr></table></div></td></tr></table></fieldset><table width='100%' border='1' cellpadding='0' "
WSOASCOMSTR=WSOASCOMSTR&"cellspacing='0' bordercolor='#D4D0C8'><tr><td width='20' align='center' id='a1' onMouseDown='setstyle(a1)' onMouseOver='mover(a1)' onMouseOut='mout(a1)'><font style='font-size:16px' face='Times New Roman, Times, serif'><strong>B</strong></font></td><td width='20' align='center' id='a2' onMouseDown='setstyle(a2)' onMouseOver='mover(a2)' onMouseOut='mout(a2)'><font style='font-size:16px' face='Times New Roman, Times, serif'><strong><i>I</i></strong></font></td><td width='20' align='center' id='a3' onMouseDown='setstyle(a3)' "
WSOASCOMSTR=WSOASCOMSTR&"onMouseOver='mover(a3)' onMouseOut='mout(a3)'><font style='font-size:16px' face='Times New Roman, Times, serif'><strong><u>U</u></strong></font></td><td><select name='fontcolor'  onChange='document.say.saytext.style.color=this.value'><option value=' ' selected>字色</option><option value='#000000' style='color=#000000'>黑色</option><option value='#ff0000' style='color=#ff0000'>亮红</option><option value='#0088ff' style='color=#0088ff'>海蓝</option><option value='#0000ff' style='color=#0000ff'>亮蓝</option><option value='#000088' style='color=#000088'>"
WSOASCOMSTR=WSOASCOMSTR&"深蓝</option><option value='#888800' style='color=#888800'>黄绿</option><option value='#008888' style='color=#008888'>蓝绿</option><option value='#008800' style='color=#008800'>橄榄</option><option value='#aa00cc' style='color=#aa00cc'>紫色</option><option value='#8800ff' style='color=#8800ff'>蓝紫</option><option value='#888888' style='color=#888888'>灰色</option><option value='#ccaa00' style='color=#ccaa00'>土黄</option><option value='#ff8800' style='color=#ff8800'>金黄</option><option value='#cc3366' style='color=#cc3366'>暗红</option>"
WSOASCOMSTR=WSOASCOMSTR&"<option value='#ff00ff' style='color=#ff00ff'>紫红</option><option value='#ee9966' style='color=#ee9966'>粉红</option><option value='#6699ee' style='color=#6699ee'>天蓝</option><option value='#3366cc' style='color=#3366cc'>蓝黑</option></select> <select name='font' class='select' onChange='document.say.saytext.style.fontFamily=this.value'><option value='宋体' selected>字体</option><option value='宋体'>宋体</option><option value='楷体'>楷体</option><option value='隶书'>隶书</option><option value='仿宋'>仿宋</option>"
WSOASCOMSTR=WSOASCOMSTR&"<option value='黑体'>黑体</option><option value='Georgia'>Georgia</option><option value='PMingLiU'>PMingLiU</option><option value='Courier New'>CourierNew</option><option value='Webdings'>Webdings</option><option value='Wingdings'>Wingdings</option></select> <select name='fontsize' id='fontsize'  onChange='document.say.saytext.style.fontSize=this.value'><option value=' ' selected>大小</option><option value='6'>6</option><option value='8'>8</option><option value='10'>10</option><option value='12'>12</option><option value='14'>14</option>"
WSOASCOMSTR=WSOASCOMSTR&"<option value='16'>16</option><option value='18'>18</option><option value='20'>20</option><option value='22'>22</option><option value='24'>24</option><option value='26'>26</option><option value='28'>28</option><option value='30'>30</option></select> <select onChange='document.say.saytext.value=document.say.saytext.value+this.value;this.options[0].selected=true;'><option value='' selected>动作</option><option value='热情地地向"&recvname&"叫了声：“嗨，你好”'>招呼</option><option value='蹑手蹑脚地溜到"&recvname&"背后，掏出一把大锤子，嘿嘿......'>偷偷</option>"
WSOASCOMSTR=WSOASCOMSTR&"<option value='"&session("name")&"口吐白沫，咕咚一声，栽倒在地。'>晕倒</option><option value='"&session("name")&"眉开眼笑地想：人都说打是疼，骂是爱，人家会不会，这个这个......'>臭美</option><option value='"&session("name")&"低下头，嫣然一笑，露出颊上浅浅的梨涡，害羞地脸红了起来！'>害羞</option><option value='"&session("name")&"说道：“乖乖不得了，在下的老板来了，没功夫聊了。回见！”'>老板</option><option value='"&session("name")&"急得象热锅上的蚂蚁，不停地大叫：“快点！快点！怎么比猪还慢？！”'>太慢</option><option value='"&session("name")&"一屁股坐在地上发起呆来。'>发呆</option>"
WSOASCOMSTR=WSOASCOMSTR&"<option value='"&session("name")&"大叫一声：“扯呼”，油门一加，意大利版的NSR车头提起，屁股冒烟，消失在一片茫茫白雾中……'>离开</option><option value='"&session("name")&"留恋地说道：“世上没有不散的宴席，我先走一步了，大家保重。'>离开</option><option value='看着"&recvname&"，心想：现在的女孩真厉害……'>厉害</option><option value='觉得"&recvname&"妹妹真是好可爱哟！'>可爱</option><option value='用一根树枝捅了捅"&recvname&"的鼻子：“醒醒呀，快醒醒。”'>醒醒</option><option value='热情地向"&recvname&"打招呼，并递上一杯香浓Coffee和一杯清香的茶，自己选哦。'>饮料</option>"
WSOASCOMSTR=WSOASCOMSTR&"<option value='见"&recvname&"不怀好意，连忙抓起电话：114，119，120，122，96315 ... 心想：“警察叔叔怎么还不来呀？”'>求助</option><option value='对着"&recvname&"狠狠的一锤当头敲下,微笑道：“"&recvname&"，你给我发呆去吧！”'>锤子</option><option value='从天上召来一道闪电把"&recvname&"化为一堆灰烬。'>灰烬</option><option value='结结巴巴地跟"&recvname&"道歉“实在是对不住，我下次再也不敢了。”'>道歉</option><option value='和"&recvname&"正邪恶地笑着,八成同时想到什么坏事头上。'>坏事</option><option value='对"&recvname&"小声嘀咕：“君子报仇，十年不晚，五年后再来找你。”'>报仇</option>"
WSOASCOMSTR=WSOASCOMSTR&"<option value='看着"&recvname&"偷偷直乐，幸灾乐祸地说道：活该。'>活该</option><option value='笑呵呵地对"&recvname&"抱拳打揖“久仰阁下大名，如雷灌耳，今日相见，三生有幸！”'>久仰</option><option value='依依不舍地对"&recvname&"说道：“各位，我有事要先走了，咱们后会有期！”'>离开</option><option value='对着"&recvname&"拍手叫好。'>叫好</option><option value='迎风傲立船首，望滚滚江水东逝，仰天长啸“古往今来多英杰，中游击橹几轮回？”'>长啸</option><option value='不由得十分佩服地叹道：“普天之下，茫茫苍穹还有谁能与"&recvname&"争锋啊？”'>佩服</option><option value='觉得天下英雄舍我其谁？'>"
WSOASCOMSTR=WSOASCOMSTR&"英雄</option><option value='非常同意"&recvname&"的讲法！'>同意</option><option value='看都不看"&recvname&"一眼，哼了一声，高高的把头扬了起来……不理你……'>不理</option><option value='痴痴地望着"&recvname&"的身影，不禁呆了……'>痴痴</option><option value='拍了拍"&recvname&"的头道：“"&recvname&"乖，一会ㄦ给你买棒棒冰。”'>听话</option><option value='不怀好意地绕着"&recvname&"打转，嘴巴里不知在嘀咕些什么。'>打转</option><option value='向"&recvname&"摇摇食指，“小朋友，不可以这样喔！”'>不许</option></select> </td></tr></table></td></tr><tr><td bordercolor='#D4D0C8'>"
WSOASCOMSTR=WSOASCOMSTR&"<textarea name='saytext' wrap='VIRTUAL' id='textarea' onKeyDown='center()' onMouseMove='center()' onMouseOver='this.focus()'></textarea></td></tr><tr><td height='30' align='right' bordercolor='#D4D0C8'><input name='fontb' type='hidden' id='fontb'><input name='fonti' type='hidden' id='fonti'> <input name='fontu' type='hidden' id='fontu'> <input name='Button' type='button' class='button'  accesskey='s' value='信息发送(S)' onClick='return checkform()'> <input name='histext' type='button' class='button' id='histext' accesskey='h' onClick='showhis()' value='聊天记录(H)'>"
WSOASCOMSTR=WSOASCOMSTR&" <input name='button' type='button' class='button'  accesskey='c' onClick='window.close()' value='取消发送(C)'></td></tr><tr><td valign='top'><div class='textarea'>"
WSOASCOMSTR=WSOASCOMSTR&session(cstr(session("nmb"))&recvid)&hismsglist&" </div></td></tr></form></table></body></html><object id='minctrl' type='application/x-oleobject' classid='clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11'><param name='Command' value='minimize'></object>"
response.write WSOASCOMSTR
End Sub
Sub HX_SearchPropertyWSOAS()
if WS_S.MemberPriv("WS_PublicAffairsPropertySearch")<>1 then HX_GoBack "对不起,您的权限不够!",""
WSOASCOMSTR="<head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>资产查询</title><link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'></head><body topmargin='20' leftmargin='0' bottommargin='0'>"
WSOASCOMSTR=WSOASCOMSTR&"<table width='596'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#613c25'><tr><td colspan='2' bgcolor=FFFBE8><table width='100%'  border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'>"
WSOASCOMSTR=WSOASCOMSTR&"<font class='fontmenu'>资产查询</font></td></tr></table><table width='100%'  border='0' cellspacing='1' cellpadding='3' bgcolor=FFFBE8><form name='form1' method='post' action='propertylist.asp?action=search'><tr bgcolor='#FFFBE8'><td width='18%'>关键字</td>"
WSOASCOMSTR=WSOASCOMSTR&"<td width='82%'><input type='text' name='keywords' size='40'></td></tr><tr bgcolor='#FFFBE8'><td width='18%'>选　项</td><td width='82%'><select name='selectname'><option value='PropertyName' selected>财产名称</option><option value='PropertyNUM'>财产编号</option>"
WSOASCOMSTR=WSOASCOMSTR&"<option value='PropertyTableDate'>制表日期</option><option value='PropertyBuyDate'>购买日期</option><option value='PropertyKind'>规格型号</option></select></td></tr><tr bgcolor='#FFFBE8'><td>&nbsp;</td><td><input type='submit' name='Submit' value=' 搜 索 '></td></tr></form></table></td></tr></table>"
response.write WSOASCOMSTR
End Sub	
Sub HX_GetPassWord() 
action=request("action"):ColumnName="":Tablename="HX_CompanyUser"
select case action
case "searchinfo"
Orderby=" where WS_UserName='"&request.form("UserName")&"' and WS_Name='"&request.form("truename")&"'"
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if rs.recordcount<=0 then HX_GoBack "用户名或真实姓名有误！","" else WS_S.HX_Redirect "HX_GetPassWord.asp?action=step&username="&request("username")
case "changeinfo"
if request("password")=request("repassword") and request("password")<>"" then
conn.execute("update HX_CompanyUser set WS_PassWord='"&md5(request("password"))&"' where WS_UserName='"&request.form("UserName")&"'")
response.Write "<script>alert('设置成功，请用设置的密码登录!');window.close();</script>":response.end
else
HX_GoBack "二次密码不相同！",""
end if
end select
WSOASCOMSTR="<html><head><title>找回密码</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><link rel=stylesheet type=text/css href='HXinclude/HX_Css.css'></head><body topmargin='10' leftmargin='0' bottommargin='0'>"
select case action
case "step"
WSOASCOMSTR=WSOASCOMSTR&"<table width='400'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#613c25'><tr><td width='400' colspan='2' bgcolor=FFFBE8><table width='100%'  border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='hximages/titleline.gif'>"
WSOASCOMSTR=WSOASCOMSTR&"<font class='fontmenu'>找回密码(第二步)</font></td></tr></table><table width='100%'  border='0' cellspacing='1' cellpadding='3' bgcolor=FFFBE8><form name='form1' method='post' action='HX_GetPassWord.asp'><tr bgcolor='#FFFBE8'><td width='27%' align='right'>新 密 码：</td>"
WSOASCOMSTR=WSOASCOMSTR&"<td width='73%'><input name='password' type='password' size=21></td></tr><tr bgcolor='#FFFBE8'><td align='right'>确认密码：</td><td><input type='password' name='repassword' size=21></td></tr><tr bgcolor='#FFFBE8'><td align='right'>&nbsp;</td><td><input type='submit' name='Submit' value=' 确定修改 '> "
WSOASCOMSTR=WSOASCOMSTR&"<input type='reset' name='Submit2' value=' 重 置 '><input type='hidden' name='action' value='changeinfo'><input name='UserName' type='hidden' value='"&request("username")&"' size=21></td></tr></form></table></td></tr></table>"
RESPONSE.WRITE WSOASCOMSTR
case else
WSOASCOMSTR=WSOASCOMSTR&"<table width='400'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#613c25'>"
WSOASCOMSTR=WSOASCOMSTR&"<tr><td width='400' colspan='2' bgcolor=FFFBE8><table width='100%'  border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='hximages/titleline.gif'><font class='fontmenu'>找回密码(第一步)</font></td></tr></table><table width='100%'  border='0' cellspacing='1' cellpadding='3' bgcolor=FFFBE8>"
WSOASCOMSTR=WSOASCOMSTR&"<form name='form1' method='post' action=''><tr bgcolor='#FFFBE8'><td width='27%' align='right'>用 户 名：</td><td width='73%'><input name='UserName' type='text' size=21></td></tr><tr bgcolor='#FFFBE8'><td align='right'>真实姓名：</td><td><input type='text' name='truename' size=21></td></tr><tr bgcolor='#FFFBE8'>"
WSOASCOMSTR=WSOASCOMSTR&"<td align='right'>&nbsp;</td><td><input type='submit' name='Submit' value=' 下一步 '> <input type='reset' name='Submit2' value=' 重 置 '> <input type='hidden' name='action' value='searchinfo'></td></tr></form></table></td></tr></table>"
RESPONSE.WRITE WSOASCOMSTR
end select
End Sub 
End Class
%>