shenpisubpost.asp

本oa系统内部短信.手机短信.文件传输.公文收发.邮件服务.共享下载.内部论坛等功能

<% 
Response.ExpiresAbsolute=now()-1
Response.CacheControl="no-cache"
%>
<%on error resume next
'在页头写:
Dim StartTime,EndTime
StartTime=timer() '创建一个计时器,单位：毫秒,页面开始执行时间
%>
<%server.ScriptTimeout=1800%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
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="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
%>
<%if upload.form("申请事由")="" then %>
<script language="javascript">
{
alert("请输入申请事由！");history.go(-1)
}
</script>
<%response.end
end if%>
<%if upload.form("content")="" then %>
<script language="javascript">
{
alert("请输入详细内容！");history.go(-1)
}
</script>
<%response.end
end if%>
<%if upload.form("申请人")="" then %>
<script language="javascript">
{
alert("请输入申请人！");history.go(-1)
}
</script>
<%response.end
end if%>

<%

 formPath=upload.form("filepath")
shiyou=upload.form("申请事由")
content=upload.form("content")
shengqingren=upload.form("申请人")
c=upload.form("草稿")
demo=upload.form("备注")
huizhi=upload.form("huizhi")
%>
<%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 shenpiinfofdaf  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
response.write file.FilePath&file.FileName&" ("&cint(file.FileSize/1024)&"K) => "&formPath&File.FileName&" 成功!<br>"
  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 shengpisubmitaqrafdvasd"
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")

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  ''删除此对象
if icount<>0 then
Htmend iCount&" 个文件上传结束!"
else
response.write " 0个文件上传结束,空文件不予以存储!"
end if
sub HtmEnd(Msg)
 set upload=nothing
end sub


%>

<%
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 * FROM shengpisubmitaqrafdvasd"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 3
Recordset1.LockType = 3
Recordset1.Open()
Recordset1.addnew
Recordset1("添加人帐号")=Session("userssdfgfhtrh")
Recordset1("添加人姓名")=Session("names")
Recordset1("添加人部门")=Session("bumen")
Recordset1("申请事由")=shiyou
Recordset1("详细说明")=content
Recordset1("备注")=demo
Recordset1("申请人")=shengqingren
Recordset1("草稿")=c
Recordset1("添加年份")=year(now())
Recordset1("添加月份")=month(now())
Recordset1("添加日")=day(now())
Recordset1("添加ip")=ip
Recordset1.update
Recordset1_numRows = 0
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
session("times")=FormatNumber((StartTime-EndTime)*1000,0,-1,0,0)/1000
%>
<%session("shenpishiyou")=shiyou
session("shenqingren")=shengqingren
response.redirect "ifr.asp"%>