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

📄 officeeidt.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 HX_GoBack "对不起,您的权限不够!",""
ColumnName="":Tablename="HX_Office":action=request("action"):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  
 WS_OfficeName=request("WS_OfficeName"):WS_OfficeNum=request("WS_OfficeNum"):WS_OfficeManageID=request("WS_OfficeManageUID"):WS_OfficeBuyID=request("WS_OfficeBuyUID"):WS_OfficeUnitPrice=request("WS_OfficeUnitPrice"):WS_OfficeMeasurement=request("WS_OfficeMeasurement"):WS_OfficeBuydate=request("OfficeBuydate"):WS_OfficeAddDate=request("OfficeAddDate"):WS_OfficeContent=request("OfficeContent")
 Orderby=" where WS_OFID="&WS_OFID
 if action="saveinfo"  then Orderby=" where WS_OFID<>"&WS_OFID&" and WS_OfficeName='"&WS_OfficeName&"'"
 set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
select case action
 case "saveinfo"
  if rs.recordcount>0 then
    Call HX_GoBack(WS_OfficeName&"办公用品已存在!","")
  else
    call WS_S.HX_RSClose(rs)
    Orderby=" where WS_OFID="&WS_OFID
    set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)	
	rs("WS_OfficeName")=WS_OfficeName
	if WS_OfficeNum<>"" and isnumeric(WS_OfficeNum) then rs("WS_OfficeNum")=WS_OfficeNum
	if WS_OfficeManageID<>"" and isnumeric(WS_OfficeManageID) then  rs("WS_OfficeManageID")=WS_OfficeManageID
	if WS_OfficeBuyID<>"" and isnumeric(WS_OfficeBuyID) then  rs("WS_OfficeBuyID")=WS_OfficeBuyID
	rs("WS_OfficeUnitPrice")=WS_OfficeUnitPrice
	rs("WS_OfficeMeasurement")=WS_OfficeMeasurement
	if isdate(WS_OfficeBuydate) then rs("WS_OfficeBuydate")=WS_OfficeBuydate
	if isdate(WS_OfficeAddDate) then rs("WS_OfficeAddDate")=WS_OfficeAddDate
	rs("WS_OfficeContent")=WS_OfficeContent
	rs.update
	response.write "<script>alert('修改成功');window.opener.location.reload();window.close();</script>"
    response.end
  end if
case "del"
  conn.execute("delete from HX_Office where WS_OFID="&WS_OFID)
  call WS_S.HX_RSClose(rs)
  response.write "<script>alert('删除成功');window.opener.location.reload();window.close();</script>"
  response.end
end select
if rs.recordcount<=0 then
    response.write "<script>alert('非法操作');window.close();</script>"
    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'><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'><form name='form1' method='post' action='?action=saveinfo' onSubmit='return offieccheck();'><tr bgcolor=f1f1f1><td width='13%'><div align='right'>名  称:</div></td><td colspan='3'><input name='WS_OfficeName' type='text' value='"&rs("WS_OfficeName")&"' size='40' maxlength='40'><font color=red> *</font></td></tr><tr bgcolor='f1f1f1'><td><div align='right'>单  价:</div></td><td colspan='3'><input name='WS_OfficeUnitPrice' type='text' style='ime-mode:disabled' value='"&rs("WS_OfficeUnitPrice")&"' size='15' maxlength='40'>元 <font color=red>* 请填写数字,否则系统将被格式化成0</font></td></tr><tr bgcolor='f1f1f1'><td><div align='right'>数  量:</div></td><td width='31%'><input name='WS_OfficeNum' type='text' value='"&rs("WS_OfficeNum")&"' size='10' maxlength='4' style='ime-mode:disabled' onKeyPress='event.returnValue=IsDigit();'></td><td width='15%'><div align='right'>单  位:</div></td><td width='41%'><input name='WS_OfficeMeasurement' type='text' value='"&rs("WS_OfficeMeasurement")&"' size='10' maxlength='10'></td></tr><tr bgcolor='f1f1f1'><td><div align='right'>保 管 员:</div></td><input name='WS_OfficeManageUid' type='hidden' value='"&rs("WS_OfficeManageID")&"'><td><input name='WS_OfficeManageName' type='text' value='"
	if rs("WS_OfficeManageID")>0 then
	  Call WS_S.HX_OutUserInfo(rs("WS_OfficeManageID"))
	  response.write Outdepartment&OutAppointment&OutName
	end if
	response.write "' size='20' maxlength='40' readonly> <input onclick=""openwin(510,500,'../HXinclude/HX_Checkuser.asp?checkuser=OfficeManage')"" type='button' value='选择' class='bdlogin' title='点击选择保管员'></td><td><div align='right'>购 买 人:</div></td><input name='WS_OfficeBuyUid' type='hidden' value='"&rs("WS_OfficeBuyID")&"'><td><input name='WS_OfficeBuyName' type='text' value='"
	if rs("WS_OfficeManageID")>0 then
	  Call WS_S.HX_OutUserInfo(rs("WS_OfficeBuyID"))
	  response.write Outdepartment&OutAppointment&OutName
	end if
	response.write "' size='20' maxlength='40' readonly> <input onclick=""openwin(510,500,'../HXinclude/HX_Checkuser.asp?checkuser=OfficeBuy')"" type='button' value='选择' class='bdlogin' title='点击选择购买人'></td></tr><tr bgcolor='f1f1f1'><td><div align='right'>购买时间:</div></td><td><input name='OfficeBuydate' type='text' value='"&rs("WS_OfficeBuydate")&"' size='20' maxlength='40' readonly> <input onclick=""popUpcalendar(this, form1.OfficeBuydate, 'yyyy-mm-dd')"" type='button' value='选择' class='bdlogin' title='点击选择购买时间'></td><td><div align='right'>入库时间:</div></td><td><input name='OfficeAddDate' type='text' value='"&rs("WS_OfficeAddDate")&"' size='20' maxlength='40' readonly> <input name='button' type='button' class='bdlogin' onClick=""popUpcalendar(this, form1.OfficeAddDate, 'yyyy-mm-dd')"" value='选择' title='点击选择入库时间'></td></tr><tr bgcolor='f1f1f1'><td valign='top'><div align='right'>备  注:</div></td><td colspan='3'><textarea name='OfficeContent' cols='75' rows='10' class='bgline'>"&rs("WS_OfficeContent")&"</textarea></td></tr><tr bgcolor='f1f1f1'><td>&nbsp;</td><input name='WS_OFID' type='hidden' value='"&WS_OFID&"'><td colspan='3'><input type='submit' name='Submit' value=' 修 改 '> <input type='button' name='Submit2' value=' 删 除 ' onclick=""location.href='?action=del&WS_OFID="&WS_OFID&"'""> <input type='reset' name='Submit2' value=' 重 输 '> <input type='button' name='Submit3' value=' 关 闭 ' onclick='javasecript:window.close();'></td></tr></form></table></td></tr></table>"
call WS_S.HX_RSClose(rs)%>

⌨️ 快捷键说明

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