⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 officeview.asp

📁 一个比较完整的oa系统
💻 ASP
字号:
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<!--#include file ="../HXINCLUDE/SelectDate.asp"-->
<%if WS_S.MemberPriv("WS_PublicAffairsOfficeEdit")<>1 or WS_S.MemberPriv("WS_PublicAffairsOfficeDel")<>1 then response.Write "<script>alert('对不起,您的权限不够!');window.close();</script>":response.end
ColumnName="":Tablename="HX_Office":WS_OFID=request("WS_OFID")
 if WS_OFID="" or isnull(WS_OFID) or (WS_OFID<>"" and not isnumeric(WS_OFID)) then 	response.write "<script>alert('非法操作');window.close();</script>":response.end  
 Orderby=" where WS_OFID="&WS_OFID
 set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
 if rs.recordcount<=0 then response.write "<script>alert('非法操作');window.close();</script>":response.end 
 WS_OfficeName=rs("WS_OfficeName")
 WS_OfficeNum=rs("WS_OfficeNum")
 OfficeManageID=rs("WS_OfficeManageID")
 OfficeBuyID=rs("WS_OfficeBuyID")
 WS_OfficeUnitPrice=rs("WS_OfficeUnitPrice")
 WS_OfficeMeasurement=rs("WS_OfficeMeasurement")
 OfficeBuydate=rs("WS_OfficeBuydate")
 OfficeAddDate=rs("WS_OfficeAddDate")
 OfficeContent=rs("WS_OfficeContent")
 response.Write "<head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>查看信息"&WS_OfficeName&"</title><link rel=stylesheet type=text/css href='../HXinclude/HX_Css.css'><script src='../HXinclude/HX_Function.js'></script></head><body topmargin='20' leftmargin='0' bottommargin='0'><table width='596'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#115F8F'><tr><td colspan='2' bgcolor=ffffff><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'><tr bgcolor=f1f1f1><td width='13%'><div align='right'>名  称:</div></td><td colspan='3'>"&WS_OfficeName&"</td></tr><tr bgcolor='f1f1f1'><td><div align='right'>单  价:</div></td><td colspan='3'>"&WS_OfficeUnitPrice&" 元</td></tr><tr bgcolor='f1f1f1'><td><div align='right'>数  量:</div></td><td width='31%'>共"&WS_OfficeNum&WS_OfficeMeasurement
	set Urs=WS_S.HX_SetRSD("WS_USID","HX_OfficeUseed"," where WS_OFID="&rs("WS_OFID")) 
	if Urs.recordcount>0 then
	  num=conn.execute("select count(WS_OfficeReplyNum) as ReplyNum from HX_OfficeUseed where WS_OFID="&rs("WS_OFID"))(0)
	  if num=rs("WS_OfficeNum") then
	    response.write "<a href='javascript:' onclick=""openwin(650,380,'OfficeUseed.asp?action=View&WS_USID="&Urs("WS_USID")&"&WS_OFID="&rs("WS_OFID")&"')"" title='查看分发情况'><font color=red>全部分发</font></a>"
	  else
	    response.write "<a href='javascript:' onclick=""openwin(650,380,'OfficeUseed.asp?action=View&WS_USID="&Urs("WS_USID")&"&WS_OFID="&rs("WS_OFID")&"')"" title='查看分发情况'><font color=red>"&num&rs("WS_OfficeMeasurement")&"分发</font></a> "
	    response.write "<a href='javascript:' onclick=""openwin(650,380,'OfficeUseed.asp?action=View&WS_USID="&Urs("WS_USID")&"&WS_OFID="&rs("WS_OFID")&"')"" title='申请使用'><font color=blue>"&(rs("WS_OfficeNum")-num)&rs("WS_OfficeMeasurement")&"库存</font></a>"
	  end if
	else
	  response.write "<a href='javascript:' onclick=""openwin(650,380,'OfficeUseed.asp?action=reply&WS_OFID="&rs("WS_OFID")&"&WS_OFID="&rs("WS_OFID")&"')"" title='申请使用'><font color=blue>全部库存</font></a>"
	end if
	response.write "</td><td width='15%'><div align='right'>单  位:</div></td><td width='41%'>"&WS_OfficeMeasurement&"</td></tr><tr bgcolor='f1f1f1'><td><div align='right'>保 管 员:</div></td><td>"
	if OfficeManageID>0 then
	  Call WS_S.HX_OutUserInfo(OfficeManageID)
	  response.write "<a style='cursor:hand;' onclick=openwin(700,550,'../HXManpowerResource/userinfolook.asp?WS_Uid="&OfficeManageID&"') title='查看"&OutName&"的资料'>"&Outdepartment&OutAppointment&OutName&"</a>"
	end if
	response.write "</td><td><div align='right'>购 买 人:</div></td><td>"
	if OfficeManageID>0 then
	  Call WS_S.HX_OutUserInfo(OfficeBuyID)
	  response.write "<a style='cursor:hand;' onclick=openwin(700,550,'../HXManpowerResource/userinfolook.asp?WS_Uid="&OfficeManageID&"') title='查看"&OutName&"的资料'>"&Outdepartment&OutAppointment&OutName&"</a>"
	end if
	response.write "</td></tr><tr bgcolor='f1f1f1'><td><div align='right'>购买时间:</div></td><td>"&WS_S.Format_Time(OfficeBuydate,5)&"<td><div align='right'>入库时间:</div></td><td>"&WS_S.Format_Time(OfficeAddDate,5)&"</td></tr><tr bgcolor='f1f1f1'><td height='135' valign='top'><div align='right'>备  注:</div></td><td colspan='3' valign='top'>"&OfficeContent&"</td></tr><tr bgcolor='f1f1f1'><td>&nbsp;</td><td colspan='3' align=right><input type='reset' name='Submit2' value=' 打 印 ' onclick='window.print();'> <input type='button' name='Submit3' value=' 关 闭 ' onclick='window.close();'></td></tr></table></td></tr></table>"
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -