📄 signatureedit.asp
字号:
<%
'功能：
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
'------------------------------------------------设置参数
LoginID=trim(session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
'------------------------------------------------
%>
<%
Response.buffer = true
%>
<html>
<head>
<title>iWebOffice2003——公章管理</title>
<link rel='stylesheet' type='text/css' href='../css/main.css'>
</head>
<body bgcolor="#ffffff">
<br>
<%
Set FileObj=Server.CreateObject("DBstep.FileUpLoad")
mSignatureID=Trim(FileObj.Request("SignatureID"))
mPassword=Trim(FileObj.Request("Password"))
mMarkName=Trim(FileObj.Request("MarkName"))
input_users=Trim(FileObj.Request("input_users"))'使用者
input_usermod=Trim(FileObj.Request("input_usermod"))'使用者属性
mMarkSize=FileObj.FileSize("MarkFile")
mMarkType=FileObj.ExtName("MarkFile")
mMarkDate=Now()
'判断是否存在相同标签
mSql="select MarkName From tbioaOffice_Signature where SignatureID <> " & mSignatureID & " and MarkName='" & mMarkName & "'"
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open mSql,oConn,1,1
If not Rs.EOF then
Response.Write "修改失败，数据库中已存在相同的标签 <input type='button' value='返 回' onclick='javascript:history.back();' class='button0' onmouseout=className='button0' onmouseover=className='button1'>"
mResult=false
Else
mResult=true
End If
Rs.Close
Set Rs = Nothing
if mResult then
mSql="select * From tbioaOffice_Signature where SignatureID = " & mSignatureID
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open mSql, oConn, 2, 2
RS("PassWord") = mPassWord
RS("MarkName") = mMarkName
RS("users") = input_users
RS("usermod") = input_usermod
if FileObj.FileSize("MarkFile")>0 then
RS("MarkBody").AppendChunk FileObj.FileBody("MarkFile")
RS("MarkType") = mMarkType
RS("MarkSize") = mMarkSize
RS("MarkDate") = mMarkDate
end if
RS("UserID") = 0
RS.Update
RS.Close
Response.Redirect "SignatureList.asp"
end if
Set FileObj=nothing
%>
</body>
</html>
<%'释放对象变量
<!--#include file="../inc/conn_close.asp"-->
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -