shouwenpost.asp

来自「绿叶oa系统办公自动化 2008.工作日志管理,文件管理」· ASP 代码 · 共 208 行

<% 
Response.ExpiresAbsolute=now()-1
Response.CacheControl="no-cache"
%>
<%on error resume next

Dim StartTime,EndTime
StartTime=timer()
%>
<%server.ScriptTimeout=1800%>
<%
MM_authorizedUsers=""
MM_authFailedURL="../../index.asp"
MM_grantAccess=false
If Session("userssdfgfhtrh") <> "" Then
  If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<!--#include file="../../toall/shenpi/upload_5xsoft.inc"-->
<!--#include file="../../Connections/oavbsconn.asp" -->
<!--#include file="../../Connections/ifr/ifrasp.asp" -->
<%
Server.ScriptTimeout=900
dim upload,file,formName,formPath,iCount,fileformat
set upload=new upload_5xSoft
%>
<%
 formPath=upload.form("filepath")
content=upload.form("content")
fasongren=session("names")
beizhu=upload.form("备注")
laiwenjiguan=upload.form("来文机关")
laiwenzihao=upload.form("来文字号")
laiwenriqi=upload.form("来文日期")
shouwenriqi=upload.form("收文日期")
banwanriqi=upload.form("办完日期")
shiyou=upload.form("事由")
nibanyijian=upload.form("拟办意见")
lingdaopishi=upload.form("content")
banlijieguo=upload.form("办理结果")
kaiguan=upload.form("kaiguan")
if kaiguan="0" then 
kaiguan="否"
else
kaiguan="是"
end if
%>
<%if upload.form("filepath")<>"" then  %>
<%
 if right(formPath,1)<>"/" then formPath=formPath&"/" 
iCount=0
for each formName in upload.file 
 set file=upload.file(formName) 
	fileformat="."&Mid(file.filename,InStrRev(file.filename,".")+1)
    	fileformatxz="."&Mid(file.filename,InStrRev(file.filename,".")+1)%>
<!--#include FILE="../gw/ftyepseesrfgtsf.asp"-->
 <%
dim flength,fpath,fname
 if file.FileSize>0 then
flength=cint(file.FileSize/1024)
fpath=formPath&File.FileName
fname=file.FileName
session("fnames")=fname
Dim datalog__MMColParam 
datalog__MMColParam = "1"
If (file.FileName  <> "") Then 
datalog__MMColParam = file.FileName 
End If
Dim datalog__vargeter
datalog__vargeter = "1"
If (upload.form("接收部门") <> "") Then 
  datalog__vargeter = upload.form("接收部门")
End If
Dim datalog
Dim datalog_numRows
Set datalog = Server.CreateObject("ADODB.Recordset")
datalog.ActiveConnection = MM_oavbsconn_STRING
datalog.Source = "SELECT *  FROM shouwenfiles  WHERE 文件名 = '" + Replace(datalog__MMColParam, "'", "''") + "'"
datalog.CursorType = 0
datalog.CursorLocation = 3
datalog.LockType = 3
datalog.Open()
if not datalog.eof then 
response.Redirect("../gw/wrong.asp")
end if
on error resume next
file.SaveAs Server.mappath(formPath&file.FileName)
if err.number<>0 then
   	response.write"<script>alert('"&Session("names")&"很抱歉，您上传的文件 "&file.FileName&" 含有,.;等非法字符，请去掉该类字符继续上传，谢谢！');location='"&request.ServerVariables("HTTP_REFERER")&"'</script>"
response.end()
end if
  iCount=iCount+1
  dim total
total=1
dim ks
ks="k"
Dim getmaxgongwenid
Dim getmaxgongwenid_numRows
Set getmaxgongwenid = Server.CreateObject("ADODB.Recordset")
getmaxgongwenid.ActiveConnection = MM_oavbsconn_STRING
getmaxgongwenid.Source = "SELECT max(id)+1 as themaxid  FROM shouwen"
getmaxgongwenid.CursorType = 0
getmaxgongwenid.CursorLocation = 3
getmaxgongwenid.LockType = 3
getmaxgongwenid.Open()
%>
<%
do while total<=iCount and datalog.eof 
datalog.addnew
datalog("邮件编号")=getmaxgongwenid("themaxid")
total=total+1
datalog("文件名")= fname
datalog("文件路径")=fpath
datalog("上传人帐号")=Session("userssdfgfhtrh")
datalog("上传人姓名")=Session("names")
datalog("上传人部门")=Session("bumen")
if flength=0 then
flength=1
end if
datalog("文件大小")=flength&"KB"
datalog.update
datalog_numRows = 0
loop
 end if
set file=nothing
next
getmaxgongwenid.Close()
Set getmaxgongwenid = Nothing


datalog.Close()
Set datalog = Nothing
set upload=nothing  ''删除此对象
Htmend iCount&" 个文件上传结束!"
sub HtmEnd(Msg)
 set upload=nothing
end sub


%>
<%ftype.Close()
set ftype = Nothing%>
<%ftype111.Close()
set ftype111 = Nothing%>
<%
end if
%>
 <%
 dim ip
ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If ip = "" Then ip = Request.ServerVariables("REMOTE_ADDR")
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT 添加人帐号,添加人姓名,添加人部门,来文机关,来文字号,收文日期,来文日期,办完日期,事由,拟办意见,添加年份,添加日,添加月份,添加ip,开关,发送人,附件数 FROM shouwen"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 3
Recordset1.LockType = 3
Recordset1.Open()
Recordset1.addnew
Recordset1("添加人帐号")=Session("userssdfgfhtrh")
Recordset1("添加人姓名")=Session("names")
Recordset1("添加人部门")=Session("bumen")
Recordset1("备注")=beizhu
Recordset1("来文机关")=laiwenjiguan
Recordset1("来文字号")=laiwenzihao
Recordset1("来文日期")=laiwenriqi
Recordset1("收文日期")=shouwenriqi
Recordset1("办完日期")=banwanriqi
Recordset1("事由")=shiyou
Recordset1("拟办意见")=nibanyijian
Recordset1("添加年份")=year(now())
Recordset1("添加月份")=month(now())
Recordset1("添加日")=day(now())
Recordset1("添加ip")=ip
Recordset1("开关")=kaiguan
Recordset1("发送人")=session("names")
Recordset1("附件数")=iCount

Recordset1.update

Recordset1_numRows = 0
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>


<%
session("times")=FormatNumber((StartTime-EndTime)*1000,0,-1,0,0)/1000
%>
<%session("shenpishiyou")=wenjianbiaoti
session("shenqingren")=session("names")
response.redirect "ifr.asp" '如果第一则需要ifr.asp来更新files数据的邮件ID，如果不是第一次上传文件则该ifr.asp在后面也是无效的。具体可以分析ifra.asp%>