wuzi_move2.asp

来自「对学校物资管理系统的一份设计」· ASP 代码 · 共 46 行

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

id=replace(trim(request("id")),",","")
jfbm=replace(trim(request("jfbm")),",","")

set rs=server.CreateObject("adodb.recordset")
sql="select * from cangku where id="&id
'response.write sql
rs.open sql,oConn,1,2

wuname=rs("名称")

if left(jfbm,1)="1" then
rs("所属部门")=right(jfbm,len(jfbm)-1)
rs("所属机房")=""

else

rs("所属部门")=""
rs("所属机房")=right(jfbm,len(jfbm)-1)
end if 
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>"
response.write "alert('转移成功！');"&chr(13)
response.write "window.close();"
response.write "</script>"
%>