📄 signatureadd.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">
<%
Set FileObj=Server.CreateObject("DBstep.FileUpLoad")
mPassword=Trim(FileObj.Request("Password"))
mMarkName=Trim(FileObj.Request("MarkName"))
mUserID=Trim(FileObj.Request("UserID"))
mMarkSize=FileObj.FileSize("MarkFile")
mMarkType=FileObj.ExtName("MarkFile")
mMarkDate=Now()
'判断是否存在相同标签
mSql="select MarkName From tbioaOffice_Signature where MarkName='" & mMarkName & "'"
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open mSql,oConn,1,1
If Not Rs.EOF then
Response.Write "保存失败，数据库中已存在相同的印签〖"+Rs("MarkName")+"〗<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
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "tbioaOffice_Signature", oConn, 2, 2
RS.AddNew
RS("PassWord") = mPassWord
RS("MarkName") = mMarkName
RS("MarkType") = mMarkType
RS("MarkBody").AppendChunk FileObj.FileBody("MarkFile")
RS("MarkSize") = mMarkSize
RS("MarkDate") = mMarkDate
RS("UserID") = mUserID
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 + -