?? save.asp
字號:
<%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
%>
<% '定義變量
dim Number,opFlag
SET rs=Server.CreateObject("ADODB.RecordSet")
rs.ActiveConnection = Session("conn")
rs.CursorType = 1
rs.LockType =3
opFlag=Request.QueryString("opFlag")
Number=Request.QueryString("Number")
dim ab,ba,ag,af
select case opFlag
'保存新增文件信息
case "cmdAddNew"
rs.open "select * from document where vnumber='" & request.Form("vnumber") & "'",Session("conn"),1,3
if rs.eof then
rs.Addnew
rs("vtitle")=Request.Form("vtitle")
rs("vnumber")=Request.Form("vnumber")
rs("vstyle")=Request.Form("vstyle")
rs("vtime")=Request.Form("vtime")
rs("doctime")=Request.Form("doctime")
rs("saveurl")=Request.Form("saveurl")
rs("former")=Request.Form("former")
ag=Request.Form("again")
if ag="" then
rs("again")="0"
else
rs("again")=ag
end if
af=Request.Form("affix")
if af="" then
rs("affix")="0"
else
rs("affix")=af
end if
rs("secret")=Request.Form("secret")
rs("deal")=Request.Form("deal")
rs("vauthor")=Request.Form("vauthor")
'response.end
rs("saveyear")=Request.Form("saveyear")
rs("vtext")=Request.Form("vtext")
ab=CInt(rs("former"))
ba=CInt(rs("again"))
rs("vout")=ab+ba
rs.Update
'Response.write("<span class=vtext><font color=red><b>登記成功!</b></font></span>")
else
response.write("<script language=javascript>alert('您所輸入的檔案編號已經(jīng)存在,請重新輸入!');window.history.back()</script>")
Response.end
end if
'保存修改文件信息
'else
case "cmdEdit"
rs.Open Session("SQL")
rs.Move Number
rs("vtitle")=Request.Form("vtitle")
rs("vnumber")=Request.Form("vnumber")
rs("vstyle")=Request.Form("vstyle")
rs("vtime")=Request.Form("vtime")
rs("doctime")=Request.Form("doctime")
rs("saveurl")=Request.Form("saveurl")
rs("former")=Request.Form("former")
ag=Request.Form("again")
if ag="" then
rs("again")="0"
else
rs("again")=ag
end if
af=Request.Form("affix")
if af="" then
rs("affix")="0"
else
rs("affix")=af
end if
rs("secret")=Request.Form("secret")
rs("deal")=Request.Form("deal")
rs("vauthor")=Request.Form("vauthor")
rs("saveyear")=Request.Form("saveyear")
rs("vtext")=Request.Form("vtext")
ab=CInt(rs("former"))
ba=CInt(rs("again"))
rs("vout")=ab+ba
rs.Update
'if opFlag=
case "cmdAddNew1"
rs.open "select * from document where vnumber='" & request.Form("vnumber") & "'",Session("conn"),1,3
if rs.eof then
rs.Addnew
rs("vtitle")=Request.Form("vtitle")
rs("vnumber")=Request.Form("vnumber")
rs("vstyle")=Request.Form("vstyle")
rs("vtime")=Request.Form("vtime")
rs("doctime")=Request.Form("doctime")
rs("saveurl")=Request.Form("saveurl")
rs("former")=Request.Form("former")
ag=Request.Form("again")
if ag="" then
rs("again")="0"
else
rs("again")=ag
end if
af=Request.Form("affix")
if af="" then
rs("affix")="0"
else
rs("affix")=af
end if
rs("secret")=Request.Form("secret")
rs("deal")=Request.Form("deal")
rs("vauthor")=Request.Form("vauthor")
'response.end
rs("saveyear")=Request.Form("saveyear")
rs("vtext")=Request.Form("vtext")
ab=CInt(rs("former"))
ba=CInt(rs("again"))
rs("vout")=ab+ba
rs.Update
'Response.write("<span class=vtext><font color=red><b>登記成功!</b></font></span>")
else
response.write("<script language=javascript>alert('您所輸入的檔案編號已經(jīng)存在,請重新輸入!');window.history.back()</script>")
Response.end
end if
'end if
Response.write("<span class=vtext><font color=red><b>該項信息已經(jīng)成功修改!</b></font></span>")
end select
'end if
rs.close
set rs=nothing
'重定向
response.redirect "main.asp?opFlag=cmdEdit"+Session("isdepartment")
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -