?? 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"))
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 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("users") = input_users
RS("usermod") = input_usermod
RS("MarkType") = mMarkType
RS("MarkBody").AppendChunk FileObj.FileBody("MarkFile")
RS("MarkSize") = mMarkSize
RS("MarkDate") = mMarkDate
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 + -