<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%
WS_DOID=request("WS_DOID")
if WS_DOID="" or isnull(WS_DOID) or (WS_DOID<>"" and not isnumeric(WS_DOID)) then	HX_GoBack "非法操作",""  
ColumnName="":Tablename="HX_Document":Orderby=" where WS_DOID="&WS_DOID
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if rs.recordcount<=0 then  HX_GoBack "非法操作",""
msg="":msg1=""
	  if rs("WS_DocumetUID")=CINT(LOGINUID) and rs("WS_DocumetUID")>0 THEN
	     select case rs("WS_DocumentExpose")
	    case 0 msg1="完全公开"
	    case 1
		  for ii=0 to ubound(split(rs("WS_DocumetLicManID"),"|"))-1
			 call WS_S.HX_OutUserInfo(split(rs("WS_DocumetLicManID"),"|")(ii))
		     if msg<>"" then
		       msg=msg&"、"&OutName
			 else
			   msg=msg&OutName
			end if
		  next
		  msg1="半公开"
		case 2 msg1="保密"
	   end select	
	  ELSE
	   select case rs("WS_DocumentExpose")
	    case 0 msg1="完全公开"
	    case 1
		  if ubound(split(rs("WS_DocumetLicManID"),"|"))>1 then
		    if instr(rs("WS_DocumetLicManID"),"|"& LOGINUID &"|")>0 THEN
			 ELSE
			  response.write "<script>alert('权限不足，不能观看！');window.close();</script>"
	          response.End() 
			end if
		  elseif ubound(split(rs("WS_DocumetLicManID"),"|"))=1 then
		    IF CINT(REPLACE(rs("WS_DocumetLicManID"),"|",""))=LOGINUID THEN
			ELSE
			  response.write "<script>alert('权限不足，不能观看！');window.close();</script>"
	          response.End()
			END IF
		  ELSE
		    response.write "<script>alert('权限不足，不能观看！');window.close();</script>"
	        response.End()	
		  end if
		  for ii=0 to ubound(split(rs("WS_DocumetLicManID"),"|"))-1
			 call WS_S.HX_OutUserInfo(split(rs("WS_DocumetLicManID"),"|")(ii))
		     if msg<>"" then
		       msg=msg&"、"&OutName
			 else
			   msg=msg&OutName
			end if
		  next
		  msg1="半公开"
		case 2 msg1="保密"
	   end select	   
	  END IF
    response.write "<head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>"&rs("WS_DocumentName")&"</title><link rel=stylesheet type=text/css href='../HXinclude/HX_css.css'><script src='../HXinclude/HX_Function.js'></script></head><body topmargin='10' leftmargin='0' bottommargin='10' bgcolor='#D4D0C8'><fieldset><legend> 基本信息 </legend><table width='98%'  border='0' cellspacing='1' cellpadding='3' align='center'><tr><td width='28%'> 撰写人："
   if rs("WS_DocumetUID")>0 then
	call WS_S.HX_OutUserInfo(rs("WS_DocumetUID"))
	response.write "<a style='cursor:hand;' onclick=""openwin(700,580,'../HXManpowerResource/userinfolook.asp?WS_Uid="&rs("WS_DocumetUID")&"')"">"&OutName&"</a>"
   end if
   response.write "</td><td colspan='2'>文件名：<font color=red>"&rs("WS_DocumentName")&"</font></td></tr><tr><td colspan='3'>授权对象：<font color=blue>"&msg&"</font></td></tr><tr></table></fieldset><br><fieldset><legend> 具体内容 </legend><table width='98%'  border='0' cellspacing='1' cellpadding='3' align='center'><tr><td width='16%'> 公开程度</td><td width='36%'>"&msg1&"</td><td width='16%'> 附件</td><td width='32%'>"
   if rs("WS_DocumetFile")<>"" then  response.write "<a href="&rs("WS_DocumetFile")&" target='_blank'>下载</a>" else response.Write "无"
 response.write "</td></tr><tr><td> 文件类别</td><td>"&conn.execute("select * from HX_DocumentClass where WS_DCID="&rs("WS_DCID"))("WS_DocumentName")&"</td><td> 入档时间</td><td>"&rs("WS_DocumentInputDate")&"</td></tr><tr><td height='217' valign=top>简要描述</td><td colspan='3' valign=top>"
if rs("WS_DocumetMemo")<>"" then response.write replace(rs("WS_DocumetMemo"),chr(10),"<br>")
response.write "</td></tr></table></fieldset>"%>