baosun.asp

对学校物资管理系统的一份设计

<!--#include file = "Startup.asp"-->
<!-- #include file="Function.asp" -->
<%
call adminer()
Call jifanggl()

id=replace(trim(request("id")),",","")
if id="" then
response.write "<script>alert('操作错误！');"&chr(13)
response.write "histroy.back();"
response.write "</script>"
end if 

utpye=replace(trim(request("utpye")),",","")
if utpye="报修" then
set rs=server.createobject("adodb.recordset")
sql="select 名称,状态,报修记录,备注 from cangku where id="&id
rs.open sql,oConn,1,2
rs("状态")="报修中"
rs("报修记录")=date()&"申请报修！"
rs("备注")=rs("备注")&date()&"申请报修！"
wuname=rs("名称")
rs.update
rs.close

set rs=server.createobject("adodb.recordset")
sql="select * from rizhi"
rs.open sql,oConn,1,2
rs.addnew
rs("操作人")=session("username")
rs("操作时间")=date()
rs("操作介绍")="报修操作"
rs("物资名")=wuname
rs("物资ID")=id
rs.update
rs.close

response.write "<script>alert('申请报修成功！');"&chr(13)
response.write "window.close();"
response.write "</script>"
end if 


if utpye="报损" then
set rs=server.createobject("adodb.recordset")
sql="select 名称,状态,报修记录,备注 from cangku where id="&id
rs.open sql,oConn,1,2
rs("状态")="报损中"
rs("备注")=rs("备注")&date()&"申请报损！"
wuname=rs("名称")
rs.update
rs.close

set rs=server.createobject("adodb.recordset")
sql="select * from rizhi"
rs.open sql,oConn,1,2
rs.addnew
rs("操作人")=session("username")
rs("操作时间")=date()
rs("操作介绍")="报损操作"
rs("物资名")=wuname
rs("物资ID")=id
rs.update
rs.close

response.write "<script>alert('申请报损成功！');"&chr(13)
response.write "window.close();"
response.write "</script>"
end if 
%>