?? lendsave.asp
字號(hào):
<%response.expires=0%>
<%Response.Buffer=true%>
<!-- #include file="../conn_lr.asp"-->
<!-- #include file="../css.asp"-->
<%
oabusyname=session("oabusyname")
oabusyusername=session("oabusyusername")
oabusyuserdept=session("oabusyuserdept")
oabusyuserlevel=session("oabusyuserlevel")
if oabusyusername="" then
response.write("<script language=""javascript"">")
response.write("window.top.location.href='../../default.asp';")
response.write("</script>")
response.end
end if
%>
<!-- #include file="../inc/css.asp" -->
<% '定義變量
dim Number,opFlag
'dim returntime,nowdate,lendtime,vnumber
SET rs=Server.CreateObject("ADODB.RecordSet")
rs.ActiveConnection = Session("conn")
rs.CursorType = 1
rs.LockType =3
opFlag=Request.QueryString("opFlag")
Number=Request.QueryString("Number")
if opFlag="cmdAddNew" then
'保存新增文件信息
Response.write("<span class=vtext><font color=red><b>信息已經(jīng)添加成功!</b></font></span>")
else
if opFlag="cmdBack" then
rs.Open(Session("SQL"))
rs.Move Number
nowdate=now()
returntime=rs("returntime")
if returntime="尚未歸還" then
lendtime=rs("lendtime")
vnumber=rs("vnumber")
Session("conn").execute("update doclend set returntime='" & nowdate & "' where vnumber='" & vnumber & "' and lendtime='" & lendtime &"'" )
Session("conn").execute("update document set vout=vout+1 where vnumber='" & vnumber & "'")
end if
rs.Update
Response.write("<span class=vtext><font color=red><b>該項(xiàng)已經(jīng)成功歸還!</b></font></span>")
else
rs.open "select * from doclend"
rs.Addnew
rs("vnumber")=Request.Form("vnumber")
rs("docstyle")=Request.Form("docstyle")
rs("lend")=Request.Form("lend")
rs("pass")=Request.Form("pass")
rs("lendtime")=Request.Form("lendtime")
rs("returntime")=Request.Form("returntime")
rs("affix")=Request.Form("affix")
rs("uses")=Request.Form("uses")
rs.Update
rs.close
rs.open("select * from document where vnumber='" & request("vnumber") & "'")
rs("vout")=CInt(rs("vout"))-1
rs.update
Response.write("<span class=vtext><font color=red><b>該項(xiàng)信息已經(jīng)成功添加!</b></font></span>")
end if
end if
rs.close
set rs=nothing
'重定向
response.redirect "lend.asp"
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -