📄 documentshows.asp

📁 又一套oa 系统,供大家使用学习,更多的源代码正在上传中,好的程序应该大家共同使用

💻 ASP

字号:

<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%if WS_S.MemberPriv("WS_PublicAffairsDocumentView")<>1 then HX_GoBack "对不起,您的权限不够!",""
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'><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><hr><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>" end if 
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>"	    
%>

💿 文件大小 2964 K

👤 上传用户 hufei108

📂 所属分类 OA系统

🏷️ 相关标签

#家 #源代码 #正

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -